Fehlermeldung bei ftp abfangen?

Pyr0cracker · Verfasst: Di 18.03.03 19:23

hi, wie kann ich die fehlermeldung abfangen, die kommt wenn ich mit der idftp1 compo eine verbindung herstellen möchte und keine internetverbindung vorhanden ist(bzw. der server nicht erreichbar ist)

ciao

maxk · Verfasst: Di 18.03.03 21:04

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:

try
 idFtp1.Connect;
 Label1.Caption:='Client verbunden';
except
 Label1.Caption:='Server nicht bereit';
 exit;
end;

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

Pyr0cracker · Verfasst: Do 20.03.03 14:29

hab ich schon mit exept und finally probiert, geht aber nicht. Fehlermeldung in blabla, socket-error host not found...

maxk · Verfasst: Do 20.03.03 20:15

Auf während der Laufzeit?

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

Pyr0cracker · Verfasst: Do 20.03.03 20:54

geht auch nicht :cry:

der fehler :

markieren

Quelltext

1:
2:

Socket Error # 11001
Host not found.

und der quellcode:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

        idFTP1.Host:= 'www.lesta.de';
        idFTP1.Username:= 'dorian';
        idFTP1.Password:= 'd78m';
        try
            idFTP1.Connect(true);
            idFTP1.ChangeDir('htmlseiten/meinesachen/gbd');
            idFTP1.Put(inipfad+ininame+'.gbd', ininame+'.gbd', false);
        finally
            idFTP1.Disconnect;
            systemmeldungen.lines.add('Fehler beim Speichern von "'+ininame+'gbd".');
        end;

maxk · Verfasst: Do 20.03.03 21:25

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

 
        idFTP1.Host:= 'www.lesta.de'; 
        idFTP1.Username:= 'dorian'; 
        idFTP1.Password:= 'd87n'; 
        try 
            idFTP1.Connect(true); 
            idFTP1.ChangeDir('htmlseiten/meinesachen/gbd'); 
            idFTP1.Put(inipfad+ininame+'.gbd', ininame+'.gbd', false); 
        except
            idFTP1.Disconnect; 
            systemmeldungen.lines.add('Fehler beim Speichern von "'+ininame+'gbd".'); 
        end;

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

Pyr0cracker · Verfasst: Fr 21.03.03 10:57

wie schon gesagt, hab ich auch schon mit except probiert.

maxk · Verfasst: Fr 21.03.03 12:50

Das ist anormal! Tut mir leid, dann weiß ich auch net weiter!

maxk :ziehtsichzurück:

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

maxk · Verfasst: Fr 21.03.03 22:22

maxk hat folgendes geschrieben:

Auf während der Laufzeit?

Eine Idee noch:
Tritt das Problem auch auf, wenn du die Datei direkt unter Windows ausführst und nicht unter Delphi?

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

Shadowdragon · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

Mach ma den Debugger aus, und überprüfe notfalls das Ziel..... wenns den Server nicht findet...

Hier noch ne Idee...

markieren

Quelltext

1:
2:
3:
4:
5:

try 
(...) //code hier rein
except on e: Exception do
    showmessage ('Fehler') //oder so....
end

Damit MUSS es einfach gehen, weil das einfach stur jede Fehlermeldng abfängt....

wenn das nicht geht, weiss ich auch nicht.

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

maxk · Verfasst: Mo 24.03.03 14:29

try...except..end ist ja das was dieser maxk sagte...

_________________
Ein Computer wird das tun, was Du programmierst - nicht das, was Du willst.

Shadowdragon · Beiträge: 143 Win 2000 Delphi 6 Pers., Delphi 7

Ja, klar, aber du hast das speziell für einen Fehlertyp angegeben, aber mein Beispeil reagiert auf *jede* Meldung

*bin halt besser*

Nee, aber sonst weiss ich auch nicht weiter...

_________________
Ein Programm gleicht dem Prinzip von Jenga:
Viele Bestandteile, wird nach oben hin immer besser, nach unten hin immer instabiler und wenn man was falsch macht klappt der ganze Mist zusammen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme