The constructor TConnection. Create;
The 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; Sockets: TCustomWinSocket);
The begin
OutputDebugStringA (PChar (' 123123123123123 '));
end;
CodePudding user response:
You want to make sure that the server sends the data to the client?CodePudding user response: