WriteBuffer 发送大小只能是255？

[wealsh]

text:=memo1.text;大于255的字节都不能被发送？
Idtcpclient1.WriteBuffer(text,SizeOf(text));

[getit911]

Idtcpclient1.WriteBuffer(text[1],lenght(text));
应该是这样写吧。

[wealsh]

Idtcpclient1.WriteBuffer(text[1],lenght(text));
text 改为数组？？

[wealsh]

type

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

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

[getit911]

MyRecord = Packed Record，用这样定义Record，否则因为内存对齐，造成Sizeof返回不正确的值。

[wealsh]

type

Sendtest = packed record
command:string[5];
Text:string;
end;

改成这样不行啊？一发送就断开了连接

[日立奔腾浪潮微软松下联想]

string默认是长串，其实是一个指针，这样WriteBuffer写结构的时候肯定越界了。
这么定义：
type
Sendtest = packed record
command:string[5];
Text:array[0..4095] of char;
end;