Hallo Allerseits!
Ich hab mir hier im Forum schon einiges durchgelesen, finde aber das Problem bei mir nicht. Es geht wie gesagt um den Socket Error # 10061. Hier mal die vollständige Fehlermeldung:
Zitat:
Im Projekt Client.exe ist eine
Exception der Klasse EIdSocketError mit der Meldung 'Socket Error # 10061 Connection Refused.' aufgetreten.
Allerdings kann ich mir das nicht erklären (wer hätte das gedacht
.).
Ich poste mal den Code:
Client
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPClient1.Host := '127.0.0.1';
IdTCPClient1.Port := 85;
IdTCPClient1.Connect;
try
ListBox1.Items.Add(IdTCPClient1.Socket.ReadLn);
finally
IdTCPClient1.Disconnect;
end;
end;
dazu den
Server
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPServer1.Active := true;
IdTCPServer1.DefaultPort := 85;
end;
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
begin
AContext.Connection.Socket.WriteLn('
Hello from Indy TCPServer!');
AContext.Connection.Disconnect;
end;
Erkennt ihr den Fehler (hoffentlich nicht wieder so ein Schusselfehler wie beim letzten Mal.
)?