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