Download mehrer Dateien von FTP-Server

[Anatol]

Hallo allerseits

Als Gelegenheitsprogrammierer stosse ich wieder mal an meine Grenzen:

Möchte mit der Indy-Komponente einen FTP-Client erstellen, welcher regelmässig alle Dateien 'test.*' von einem FTP-Server herunterlädt.

Spontan habe ich mal den Befehl

Delphi-Quellcode:

IdFTP1.Get('test.*, 'c:\daten\test.*', true);

versucht, das mit den Wildcards (.*) scheint aber nicht zu funktionieren... Wer weiss einen Tipp?

Gruss, Anatol

[Treffnix]

Hallo, ich habs nicht getestet, aber ich würde so ansetzen:

Delphi-Quellcode:

Procedure GetFiles;
  var Files: TStringList;
      i: Integer;    
Begin
  idFTP1.List( Files, 'test.*', False );
  For i := 0 to Files.Count Do
    IdFTP1.Get( Files[i], 'c:\Daten\' + Files[i], True );
End;

Wie gesagt. Ungetestet und gearbeitet hab ich selber noch nicht viel mit FTP. Aber vielleicht funktionierts ja oder hilft dir zumindest weiter ;)

[Anatol]

Treffnix, vielen Dank fürs erste!

Hab Deinen Hinweis ausprobiert und das Resultat schaut folgendermassen aus:

Bei der Zeile

Delphi-Quellcode:

idFTP1.List( Files, 'test.*', False );

wird die Fehlermeldung

http://www.meteoradar.ch/uploads/20040823_145449.gif

generiert. Wer lässt etwas Weisheit über mich kommen?

Gruss, Anatol

[Treffnix]

Entschuldige, du musst natürlich erst die Stringliste erzeugen. Denke daran wirds liegen.

also nach dem Begin

Delphi-Quellcode:

Files:= TStringList.Create

und am Ende natürlich mit Free oder Destroy wieder freigeben.

[Anatol]

Bingo! Vielen Dank für die prima Hilfestellung!

Nach einer kleinen Modifikation (for i:=0 to Files.Count - 1) läuft das ganze nun einwandfrei:

Delphi-Quellcode:

procedure TForm1.GetFiles;
  var Files: TStringList;
      i: Integer;
begin
  Files:= TStringList.Create;
  IdFTP1.List( Files, 'test.*', False );
  for i := 0 to Files.Count - 1 do
    IdFTP1.Get( Files[i], 'c:\Daten\' + Files[i], True );
end;

Gruss, Anatol