WriteBuffer 如何发送大于255的字符？(50分)

type

Sendtest = packed record
command:string[5];
Text:string[255] ;//不加上255服务端读不到？？加上以后又不能完全发送？
end;


Sendtest.command:='text';
Sendtest.Text:=memo1.text;
Idtcpclient1.WriteBuffer(Sendtest,SizeOf(Sendtest));

1、不加255是long-str 对象

type
Sendtest = packed record
command: array[1..5] of char;
Text: array[1..512] of char;
end;

var
Sendtest: TSendtest;
begin
FillChar(Sendtest, SizeOf(Sendtest), 0);
StrPCopy(@Sendtest.command, 'text');
StrPCopy(@Sendtest.Text, Memo1.text);

Idtcpclient1.WriteBuffer(Sendtest,SizeOf(Sendtest));
end;

取出来时用ShowMessage(strpas(@Sendtest.Text));

多人接受答案了。