Indy 10: Socket Error # 10061

[richie]

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. )?