Hallo,
ich will ein Progi schreiben was in einem Intervall auf ein
FTP-Verzeichnis schaut ob Dateien vorhanden sind und ggf. ausliest.
Das Programm funktioniert sofern Dateien da sind aber wenn keine vorhanden sind bekomme ich eine Fehlermeldung *.No such File or Directory
Das Programm an sich ist kein Prob nur die Stelle an dem er nach den Dateien schaut.
kann mir jemand helfen? Vielleich kann man dies meldung ja auch abfangen...
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
SList: TStrings;
begin
IdFTP1.Connect(True);
SList := TStringList.Create;
IdFTP1:=ChangeDir('Dir_Name');
IdFTP1.List(slist,'*',false); // wenn keine Datei vorhanden dann kommt hier der Fehler
Listbox1.Items:=sList;
IdFTP1.Disconnect;
end;
Ich habe das auch schon im 5er probiert... Dort habe ich es geschafft aber das Problem war wenn das Progi etwa 50 mal aufgerufen wurde dann hat es sich aufgehangen... und zwar bei dem list bwz nlist befehl. Villeicht hat dazu jemand noch ne idee...
Delphi-Quellcode:
procedure TForm1.DOC_EINLESEN;
var
sList:TStrings;
begin
FTP_IDOC.Connect;
FTP_IDOC.ChangeDir(Dir_Name');
FTP_IDOC.List; // hier hängt das Programm irgentwann
if slist.Count = 0 then showmessage('lala');
.
.
mfg
[edit=SirThornberry]Delphi-Tags gesetzt - Mfg, SirThornberry[/edit]