[ALexandr555]

Работаю с ClientSocket и ServerSoket
передаю вот такие пакеты фиксированного размера

Код:

TStruct = packed record
  ID: byte;
  IDComand: byte;
  mesg: string[256];
  param2: string[100];
  param3: string[100];
  chisl1: byte;
  chisl2: byte;
  end;

так вот мне бы как то увеличить например размер mesg до 1500, не известный размер не могу посылать, надо же пакеты ловить, есть мысль сделать просто

Код:

mesg: string;

без ограничения и дополнять пробелами до 1500 символов при отправке и тогда уже сразу считывать размер

Код:

Socket.ReceiveBuf(pacet, 1704);

[YVitaliy]

без ограничения и дополнять пробелами до 1500

Тогда строка, кажись, сама преобразуется в AnsiString. Так почему сначала не задать ее?

Код:

mesg: AnsiString;

[ALexandr555]

значит только так? а то затея как то не ахти, может другое что использовать? TCP бы вот подошли, только там мудрить надо что бы на клиентах был TCPсервер и TCPклиент, и на сервере аналогично.

[NumLock]

а что, тут

Код:

mesg: string[256];

ошибки нет "String literals may have at most 255 elements"?

Версия Delphi: Delphi 7

делай так:

Код:

mesg: array [0..1499] of Char;

[ALexandr555]

Есть ошибка не убрал после эксперементов просто)