动态DLL中使用socket出现不能OnRead不能被执行。求解决方法

Question

求个解决方案DLL封装socket后。发现onread不能执行！而且当EXE发来信息后不执行onread函数。。constructor TConnection.Create;
begin
    inherited;
    ClientSocket := TClientSocket.Create(nil);
    ClientSocket.Host := '127.0.0.1';
    ClientSocket.Port := 10095;
    ClientSocket.ClientType := ctNonBlocking;
    ClientSocket.OnRead := csocketRead;
    ClientSocket.Active := True;
    FsSocket := ClientSocket;
end;
procedure TConnection.csocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
    OutputDebugStringA(PChar('123123123123123'));
end;   

Answer 1

而且我把同样的客户端代码重新弄个EXE放进去就可以触发onread事件