Einzelnen Beitrag anzeigen

Benutzerbild von Helmi
Helmi

Registriert seit: 29. Dez 2003
Ort: Erding, Republik Bayern
3.336 Beiträge
 
Delphi XE2 Professional
 
#4

Re: Ursache von Socketerror 10061 "Connection refused&a

  Alt 30. Jan 2007, 21:22
Hallo,

ich hatte auch mal das Problem, dass der Client einen Server suchen soll.

Hab das damals so gelöst (zwar mit den Socket-Komonenten - ist aber umschreibbar:
Delphi-Quellcode:
procedure TMainForm.Timer_toggleTimer(Sender: TObject);
begin
  with ClientSocket do
    begin
      try
        //ClientSocket schliessen
        Active := false;
        Socket.Close;
        Close;

        //ClientSocket beschreiben
        Port := SpinEdit_Port.Value;
        Address := S_Adresse;
      finally
        // leer
      end;

      //Versuchen die Verbindung zu öffnen...
      try
        //ClientSocket öffnen
        Open;
      except
        //ClientSocket schliessen
        Active := false;
        Socket.Close;
        Close;
      end;
    end;
end;
kurze Erklärung: er versucht den Port zu öffnen, geht das nicht (except) dann wird wieder geschlossen und von neuem begonnen
mfg
Helmi

>> Theorie ist Wissen, dass nicht funktioniert - Praxis ist, wenn alles funktioniert und keiner weiss warum! <<
  Mit Zitat antworten Zitat