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:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

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:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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ß

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