我在 TCP/IP 中有一个客户端，它发送带有 writeln 的字符串列表（同时）。
TCPserver如何知道它已经读取了所有数据？
在Onexecute事件中，我使用过：
If (not AThread.Terminated)and(athread.Connection.Connected) then
Memo1.lines.add(AThread.Connection.readln);
但问题是最后几行没有被读取。
【问题讨论】：
标签： delphi indy freepascal
您应该使用自己的WriteLn() 发送每个字符串，然后您可以：
在发送实际字符串之前发送字符串数。然后服务器可以先读取号码，然后拨打ReadLn()，无论号码显示多少次。
在字符串之后发送唯一的终止行。然后服务器可以继续调用ReadLn()，直到读取终止符。如果您需要发送一个可能与终止符不明确的字符串，请在发送前转义该字符串，然后让服务器在读取后对其进行转义。
Indy 有处理这两种情况的读/写方法，例如WriteStrings()、ReadStrings()、WriteRFCStrings()、Capture() 等。
在不相关的注释中，您不应该检查 AThread.Terminated 和 AThread.Connection.Connected 属性。如果您尝试读取或写入断开连接的套接字，让 Indy 引发异常，并让服务器处理该异常。此外，TIdTCPServer 是多线程的，在OnExecute 事件（或OnConnect、OnDisconnect 或OnException）中访问 UI 控件不是线程安全的。您必须与主 UI 线程同步才能安全地访问它们。
【讨论】：