Moin Leute,
ich will aus einem lokalem verzeichnis per
FTP auf einen server tranferieren.
Die datein .doc, .txt, .jpg sind alle lokal in einem verzeichnis.
Auf dem server wechsel ich mit changeDir das zielverzeichnis.
Wenn ich meine FindFirst routine 3x hintereinander aufrufe funktioniert alles.
Weil aber 3x das gleich blöd ist habe ich eine procedur geschrieben
Delphi-Quellcode:
procedure TFormFtp.pFind();
var
SearchRec: TSearchRec;
i: integer;
s: string;
begin
i := FindFirst((Form1.EditTempStore.Text) + LabelExtension.Caption, faAnyFile, SearchRec);
// LabelExtension.Caption = versch. Endung (doc, txt...)
while i = 0 do begin
ListBoxFtp.Items.Add(SearchRec.Name);
i := FindNext(SearchRec);
end;
FindClose(SearchRec);
begin
for i := 0 to ListBoxFtp.Items.Count -1 do
begin
s := ListBoxFtp.Items[i];
IdFTP.Put((Form1.EditTempStore.Text) + s, s);
ListBoxFtp.Items[i] := '';
ListBoxFtp.clear;
end;
end;
end;
Nun stelle ich meine verbindung zum server her, rufe pFind(); auf und übertrage eine *.doc datei
verzeichnis wechsel aufm server, aufruf pFind(); und übertrage eine *.txt datei
Bis hierher alles Super.
Nun, verzeichnis wechsel aufm server, aufruf pFind(); und übertrage eine *.jpg datei
funzt auch noch
ABER: wenn es mehrere *.jpg datein sind kommt folgener Fehler:
...eine
Exception der klasse EStringListRrror aufgetrten
Listenindex überschreitet das maximum(1)
Wo ist mein Fehler?