Hola a todos
Estoy haciendo mis pruebitas con los componentes TcpClient y TcpServer y me he encontrado con un problema, les cuento:
Cuando envío un mensaje a mi app servidor lo hago así
Código Delphi
[-]
TcpClient1.Sendln('mensaje.......');
y para recibir en mi app servidor utilizo el evento OnAccept del TcpServer
Código Delphi
[-]
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
var
Mensaje : String;
begin
Mensaje := ClientSocket.Receiveln;
...............................
ClientSocket.Sendln('Respuesta');
end;
Recibo bien el mensaje de mi cliente, pero al mardarle la respuesta del servidor al cliente no recibo, no me sale ningún error. Esto es lo que tengo para recibir respuesta en mi cliente, en el evento OnReceive.
Código Delphi
[-]
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
Respuesta := TcpClient1.Receiveln;
end;
Me pueden decir que estoy haciendo mal por favor.
Saluditos y que tengan un bonito día.