Autor Beitrag
thorbenZ
Hält's aus hier
Beiträge: 12



BeitragVerfasst: Do 23.10.03 17:25 
Hallo,

Ich habe ein Problem mit der Methode "List" von TidFTP (Indy-FTP-Komponente). Im folgenden Code ist lstFTPDirectory eine TStringList, cFtp eine (verbundene) TidFTP-Kompo.
ausblenden Delphi-Quelltext
1:
2:
3:
4:
lstFTPDirectory.Clear;
cFtp.ChangeDir(FRemoteDirectory);
cFtp.List(lstFTPDirectory,'*.',FALSE);
cFtp.ChangeDir('/');

Ist jetzt das Verzeichnis, von dem ich eine Dateiliste haben will, leer, wird eine Exception "No Files Found." ausgelöst. Warum? Es würde doch reichen, wenn die Dateiliste hinterher einfach leer wäre. Gibt es da vielleicht ne schönere Variante?

Danke
Thorben

Moderiert von user profile iconTino: Code- durch Delphi-Tags ersetzt.
G-Tech
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starontopic star
Beiträge: 32



BeitragVerfasst: Do 23.10.03 18:13 
Titel: versuchs mal mit "try - except - end"
hey thorben!

versuchs mal mit ner

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
Try

Except

End


Konstruktion.

Müsste dann ungefähr so aussehen:

ausblenden Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
lstFTPDirectory.Clear; 
cFtp.ChangeDir(FRemoteDirectory); 
Try
 cFtp.List(lstFTPDirectory,'*.',FALSE); 
Except
 Showmessage('Ordner leer') - bzw. ListBox1.Clear;
End;


Weiß nich, obs das is was du meintest, aber so sollte es eigentlich gehn...

viel glück

_________________
Man kann nicht alles wissen, aber etwas zu wissen ist schon mal ein Anfang
thorbenZ Threadstarter
Hält's aus hier
Beiträge: 12



BeitragVerfasst: Do 23.10.03 19:09 
Danke, habs auch schon so gemacht. Hab irgendwie gepennt als ich die Frage gestellt habe... Dennoch frag ich mich, warum das Teil ne Exception auslöst.