Hi all,
In my an application, TTCPServer receives client's data,
then return response(in OnAccept event handler). But on client side,
TTCPClient can't receive(in OnReceive event handler) that response.
How to solve this problem? I MUST also keep a TTCPServer on client
side application?
here is some code:
Server side:
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
begin
// ...
ClientSocket.Sendln('Received OK.');
end;
client side:
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
Memo1.Lines.Add(Format('%s response from %s:%s',
[DateTimeToStr(Now), TCPClient1.RemoteHost, TCPClient1.RemotePort]));
Memo1.Lines.Add(Buf);
end;
TIA
Turbo Man
