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:
Server:
Vielleicht kann mir ja einer Helfen :>
Danke im vorraus...
Gruß
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:
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:
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ß