动态DLL中使用socket出现不能OnRead不能被执行。求解决方法
求个解决方案。。。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;