Erstmal danke für die vielen antworten,
Ich habe jetzt die Socketkomponenten installiert und (mithilfe des Internets) einen kleinen Chat geschrieben. Dieser besteht aus zwei Programmen, zwischen denen man Narichten verschicken kann, was aber nur auf einem Rechner funktioniert hat.
Ich habe dann die
Ip mit der sich der Client verbindet auf die meines PCs geändert
ClientSocket1.Address:='172.16.136.11';
(Vorher war da die
Ip, die automatisch auf den eigenen Rechner zurückführt)
ClientSocket1.Address:='127.0.0.1';
Dann habe ich das Programm auf einen anderen Rechner(Im selben Netzwerk) kopiert und versucht mich mit dem dem Server zu verbinden, was aber zu einem Error geführt hat, der mithilfe dieses Codes abgefangen wurde:
Delphi-Quellcode:
procedure TForm2.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket;
ErrorEvent: TErrorEvent; var ErrorCode: Integer);
begin
ErrorCode:=0;
ClientSocket1.Active := False;
Memo1.Text:=Memo1.Text+'No connection found'+#13#10;
end;
Was ist das Problem?