Delphi DLL - TClientSocket 事件

Question

我有一个带有 TClientSocket 组件的 DLL，它用于与电话系统机器通信。该 DLL 在导出方法中仅具有 PChar 参数，并且不使用包。

当我使用 Delphi 应用程序加载 DLL 时，所有事件都工作正常，到目前为止没有问题。

我的客户正在从控制台 Win32 Cobol 程序调用此 DLL，并且 TClientSocket 在事件发生时不会触发事件，它使用主循环调用 DLL 中的检查方法来了解是否有从电话系统返回的内容，如果它返回 OK 然后调用 Get 方法，这就是问题发生的地方：

在 TClientSocket.OnRead 事件中，我调用 TClientSocket.Socket.ReceiveText，并且服务器应用程序有几次返回，这让我认为该事件只是当我从 DLL 调用方法并且 TClientSocket 在缓冲区中保存多个返回时触发。

问题是我找不到任何分隔符来分割这个返回值。

我该如何解决这个问题？是否可以向 DLL 添加任何内容，以确保每次不从 Delphi 程序调用 OnRead 事件时都会触发该事件？

Answer 1

你可能需要在你的 dll 中有一个消息循环..（控制台应用程序缺少消息泵..）。所以在你的 dll 构造函数中实现类似的东西：

var Msg : TMsg;
     res : Integer;

.
。
。

While true Do Begin
        res := Integer( GetMessage(Msg, 0, 0, 0 ));
        If res = -1 Then
          Exit  // error
        else if res = 0 then
          exit  // WM_QUIT received
        else begin
          TranslateMessage( Msg );
          DispatchMessage( Msg );
        end;
End; { While }

看看类似的线程
http://www.mofeel.net/1102- comp-lang-pascal-delphi-misc/2763.aspx

Answer 2

最近，我遇到了和你类似的问题，我的 dll 中的 clientsocket 可以与 delphi-exe 一起使用，但不能与 c-console exe 一起使用，我记得 tclientsocket 正在使用选择事件模式，这需要主线程来处理消息循环，因此，

如果您在 dll 中使用非阻塞模式的 tclientsocket，主机不应该阻塞主线程，并且必须执行消息循环（例如，在控制台中调用时）程序）。

有时我们无法修改主机代码（我遇到的情况），那么我们可以这样做，

socket.sendtext();
repeat s :=socket.recevtext; 
until timeout or length(s)>0; 

当然你需要检查 s 是否是完整的数据包等等。