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.
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:
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