Probleme mit Client Server Anwendung.

[NeXoN]

Hab folgendes Problem mit einer Client Server Anwendung in Delphi.
Der Client soll auf den Server Connecten, der Server bemerkt das und soll darauf hin eine Msg Senden die der Client Ausliest und Ausgibt. Ansich nicht wirklich schwer.

Nur habe ich das Problem das irgendwie immer "Connection Closed Gracefully" als Fehlermeldung kommt wenn ich auf den Server connecten will.

Meiner Meinung nach findet er den Server nicht. Aber ich find den Fehler einfach nicht obwohl ich es zu 90% nach einem Tutorial gemacht hab.

Client:

procedure TForm1.Button1Click(Sender: TObject);
begin
  with IdTCPClient1 do begin
    Connect;
    try
      ListBox1.Items.Add(ReadLn);
    finally
      Disconnect;
    end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPCLient1.Active:=True;
IdTCPClient1.Host:='127.0.0.1';
IdTCPCLient1.Port:=1234;
end;

Server:

procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
begin
  with AThread.Connection do
  begin
    WriteLn('hi');
    Disconnect;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.Active:=True;
IdTCPServer1.DefaultPort:=1234;
end;

Vielleicht kann mir ja einer Helfen :>

Danke im vorraus...

Gruß

 

[WieGehts]

Hallo,
ich weiß nicht, ob ich richtig liege, aber das Disconnect; im Server gefällt mir nicht. In diesem Fall trennt doch der Server die Verbindung sofort wieder?

mfg
WieGehts