delphi - 一次发送多于 2 行的问题

Question

我有套接字问题。
如果我使用 TClientSocket 发送多于两行的文本然后服务器收到一行而不是两行。

客户端部分:

ClientSocket1.Socket.SendText(Edit1.Text);//Text is 'Line1'
ClientSocket1.Socket.SendText(Edit2.Text);//Text is 'Line2'  

服务器部分:

var
s: String;
begin
s := Socket.ReceiveText;
Memo1.Lines.Add(S);

Memo1 创建的行是 'Line1Line2'
为什么？
对不起我的英语!

Answer 1

SendText 不发送 CRLF。如果您需要发送新行，则必须明确地执行此操作:

ClientSocket1.Socket.SendText(Edit1.Text + #13#10);
ClientSocket1.Socket.SendText(Edit2.Text + #13#10);