TICTACTOE Multiplayer - TCP/IP

[devnull]

1.) Fehler beim Erfassen von Daten,
und wie kann ein Server Daten vom Client bekommen ?
Ich kann weder Daten bekommen, noch senden.

Delphi-Quellcode:

uses idTCPServer, idComponent, idTCPComponent, idTCPClient,..;

[...]


   // Diese Prozedur sollte doch die Daten (hier:  'TESTZEILE') ab-
   // fangen und in ein EditFeld schreiben.
   // Geht aber nicht, da kommt ein Connection-Refuse ERROR
procedure TForm1.idTCPServer1Execute(ATh...);
begin
  Form1.Edit1.Text := AThread.Connection.ReadLn;
end;



   // Client sendet 'TESTZEILE' an Schnittstelle
procedure send_zeichenkette;
begin
  // Client initialisiert Server-Schnittstelle und connected
  idTCPClient1.Host := '127.0.0.1';
  idTCPClient1.Port := 5500;
  idTCPClient1.Connect;

  // Nicht senden, wenn nicht verbunden
  if idTCPClient1.Connected = false then exit;
  
  // Sollte TESTZEILE versenden
  try
    idTCPClient1.OpenwriteBuffer;
    try
      idTCPClient1.WriteLn ('TESTZEILE');
    finally
      idTCPClient1.CloseBuffer;
    end;
  finally
    idTCPClient1.Disconnect;
  end;
end;

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]