Hi,
ich versuche mich auch gerade am
TCP/
IP-Datenaustausch mit TTcpServer und TTcpCLient.
Ich habe auch alle Ratschläge hier befolgt, aber bei mir wird bei TCustomIpClient.SendLn('string') nicht das Ereignis OnReceive beim Client ausgelöst.
Delphi-Quellcode:
procedure TForm1.TcpServer1Accept(Sender: TObject;
ClientSocket: TCustomIpClient);
...
ClientSocket.Sendln('Test');
end;
Delphi-Quellcode:
procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PAnsiChar;
var DataLen: Integer);
begin
Memo2.Lines.Add('Test');
end;
Diese Testausgabe erscheint nicht. Was hab ich falsch gemacht?
