Indy-Connect: Fehlermeldung ist schneller als Verb.aufbau

**eddy**

Hallo Leute,

ich habe ein kleines Problem mit Indy-FTP. Vielleicht kann mir jemand weiterhelfen.

Auf meinem PC mit direkter Anbindung ans Internet gibt es mit nachfolgendem Code keine Problem.
Verbindung ins Internet wird manuell vorher hergestellt und per Download-Button vom Programm eine bestimmte Datei einer fest eingestellten Adresse aus dem Netz per FTP geladen und weiter verarbeitet.

markieren

Code:

			  ....

  try

    IdFTP1.Username := edFtpUser.Text;

    IdFTP1.Password := edFtpPW.Text;

    IdFTP1.Host := edFtpServer.Text;

    IdFTP1.Connect;

    IdFTP1.ChangeDir(edFtpDir.Text);

  finally

    if IdFTP1.Connected then begin

    .....

Beim Anwender wird aber zuerst über einen Proxyserver eine Verbindung aufgebaut und das dauert wohl ein wenig zu lange. Es gibt eine Fehlermeldung, daß die Verbindung nicht hergestellt werden kann.
Nach zwei-drei Mal Clicken auf den Download-Butten in meinem Programm funktioniert das dann doch.

Gibt es eine Möglichkeit in etwa der Art:

markieren

Code:

			   zaehler := 30;                      // Sekunden

   verbindung_hergestellt := false;

   repeat

     IdFTP1.Connect;

     verbindung_hergestellt := IdFTP1.Connected;

     if not verbindung_hergestellt then zaehler := zaehler - warte_eine_sekunde;

   until verbindung_hergestellt or (zaehler = 0);

mfg
eddy

Indy-Connect: Fehlermeldung ist schneller als Verb.aufbau

Indy-Connect: Fehlermeldung ist schneller als Verb.aufbau

Forumregeln