TcpServer ----> TcpClient senden und empfangen

[Johannes.Leupold]

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?

[rollstuhlfahrer]

Ich würde mal auf die Firewall tippen, sodass gar keine Verbindung entsteht.
Andernfalls würde ich den Umstieg auf die Indy-Komponenten vorschlagen, da ich mit diesen gute Erfahrungen gemacht habe.

Bernhard

[Johannes.Leupold]

Die Verbindung kommt zustande, denn der Server emüfängt Daten vum Client, aber beim Client kommen keine vom Server an...

Die Firewall blockt das Programm nach einigen Einstellungen nicht mehr.

Und ich bekomme immer den Socket Error 10054 (Connection reset by peer).

Weiß irgendjemand Rat?