我正在使用Indy 10在Delphi 7中制作客户端程序。
它必须使用TIdTCPClient连接到服务器，并保持连接以发送和获取命令和回复，直到程序关闭。
服务器只能为每个客户端维护一个常量连接以发送信息消息。 TIdTCPClient正在通过阅读线程进行监听。
问题：
我正在从某个过程向服务器发送请求（使用WriteLn）以获取字符串列表，例如。如何在不离开的情况下，以相同的程序获得该请求的答案（回复）？喜欢使用TIdHTTP。
我看到了两个解决方案：
从一个程序发出请求并在其他程序中处理它 - 代码和逻辑会更复杂。
对于过程中的每个请求，创建一个新的TIdTCPClient（Connect，WriteLn，ReadLn，Disconnect，Free）并处理请求。但我不喜欢这种解决方案，因为它会导致很大的开销。
答案 0 :(得分：0)
由于涉及阅读线程，它确实使事情变得复杂。阅读线程需要是接收所有回复的线程，然后它可以根据需要将它们分发给处理程序。
如果您不介意分解代码，那么您的第一个解决方案很好。这是最简单的解决方案，如果主线程是发出请求的解决方案，那么这是最好的解决方案。你永远不应该阻止主线程。
如你所说，你的第二个解决方案不是很好。
另一种解决方案是为每个请求创建一个TEvent，并将每个请求放入某个列表/队列中。在收到响应时，让读取线程找到并发出相应的事件信号。然后，发送过程可以等待事件，直到它被发信号通知（例如，TThread.Synchronize()以这种方式工作）。如果过程在主线程中运行，请使用MsgWaitForMultipleObjects()进行等待，这样您仍然可以在等待时为主消息队列提供服务。