idFTP - Komplettes Verzeichnis herunterladen

[Sir Rufo]

Ist .. vielleicht auch ein Verzeichnis (gut ein spezielles, da es auf das Vorgänger-Verzeichnis verweist)?
Was sollte man dann machen, wenn man da nicht hin will?

[mjustin]

Zitat von Sir Rufo:

Ist .. vielleicht auch ein Verzeichnis (gut ein spezielles, da es auf das Vorgänger-Verzeichnis verweist)?
Was sollte man dann machen, wenn man da nicht hin will?

'..' ist bei FTP das übergeordnete Verzeichnis (so wie '.' das "aktuelle" Verzeichnis ist) - um dahin zu wechseln, ist bei Indy die Procedur TIdFTP.ChangeDir mit '..' als Parameter aufzurufen, die den FTP Befehl CWD (Change Working Directory) an den Server sendet.

[nytaiceman]

Hallo zusammen,

Ich habe nun den Code nochmals überprüft und einige Fehler bereits korrigiert. Ich habe aber immernoch Probleme damit.

1. Ich vermute ich habe im ganzen Ablauf einen Logikfehler drin. Irgendwie ist das ganze nicht rekursiv
2. Beim Ausführen erscheint der Fehler "Listenindex überschreitet das Maximum (1)". Ich bin aber unsicher worauf sich das bezieht, da das DirectoryListing mit -1 aufgerufen wird.

Auf meinem Testserver befindet sich ein Verzeichnis "folder" mit weiteren Dateien udn Unterverzeichnissen.

Auf der Form befinden sich idFTP und ein Button. In der Uses Liste muss "IdFTPList" + "IdFTPCommon" enthalten sein.

Delphi-Quellcode:

// === FTP Download Folder =====================================================
// = Uses: IdFTPList
procedure TForm1.DownloadFolder(AFTP: TIdFtp; ARemotePath, ALocalPath:string);
var
 I: Integer;

begin
 ALocalPath := IncludeTrailingPathDelimiter(ALocalPath);
 ForceDirectories(ALocalPath);
 if ARemotePath[Length(ARemotePath)] <> '/' then ARemotePath := ARemotePath +'/';

 try
  AFTP.List;
 except
  on E:Exception do MessageDlg(E.Message, mtError, [mbOk], 0);
 end;

 for I := 0 to AFTP.DirectoryListing.Count -1 do
 begin
  // = File Handling
   if AFTP.DirectoryListing[i].ItemType = ditFile then
   begin
    if Fileexists(ALocalPath +AFTP.DirectoryListing[i].FileName) then DeleteFile(ALocalPath +AFTP.DirectoryListing[i].FileName);
    AFTP.Get(AFTP.DirectoryListing[i].FileName, ALocalPath +AFTP.DirectoryListing[i].FileName);
   end;

  // = Folder Handling
   if AFTP.DirectoryListing[i].ItemType = ditDirectory then
    begin
     AFTP.ChangeDir(AFTP.DirectoryListing[i].FileName);
     DownloadFolder(AFTP, AFTP.DirectoryListing[i].FileName, ALocalPath + AFTP.DirectoryListing[i].FileName);
    end;
  end;
end;

// === Button "Download" =======================================================
procedure TForm1.Button1Click(Sender: TObject);
// = Uses: IdFTPCommon
var
 FTPServer : TIdFTP;
begin
// = Create FTP-Instance
 FTPServer := TIdFTP.Create(nil);
 FTPServer.Passive := true;
 FTPServer.TransferType := ftBinary;

 FTPServer.Username := 'test';
 FTPServer.Password := 'test';
 FTPServer.Host     := 'FTP-SERVER';
 FTPServer.Port     := 21;

 try
  FTPServer.Connect;
 except
  on E:Exception do
  begin
   MessageDlg(E.Message, mtError, [mbOk], 0);
   FTPServer.Disconnect;
   FTPServer.Quit;
   exit;
  end;
 end;

// = Download Folder
 ForceDirectories(ExtractFilePath(ParamStr(0)) +'\folder');
 FTPServer.ChangeDir('folder');
 DownloadFolder(FTPServer, 'folder', ExtractFilePath(ParamStr(0))+'\folder');

// = Disconnect and Free FTP-Instance
 FTPServer.Disconnect;
 FTPServer.Quit;

end;

[Sir Rufo]

Es ist definitiv rekursiv und daher kommt in dieser Konstellation auch der Fehler

Denn durch die Rekursion und wird die DirectoryList jedesmal überschrieben und dadurch klaust dem vorherigen RekursionsLevel die Grundlage

Du musst dir also diese Liste in eine lokale Variable kopieren und dann sollte das funktionieren

Edit:

Noch ein Problem, da du auch das Verzeichnis auf dem FTP wechselst, aber nicht berücksichtigst, dass nach der Rückkehr aus der Rekursion das Verzeichnis eben nicht zurückgesetzt wird.

[nytaiceman]

Sir Rufo, Du hast mich auf den richtigen Weg für meine Recherchen gebracht, danke Dir!


Zusätzlich habe ich noch einen Parameter eingebaut, mit welchem man steuern kann, ob die bestehenden lokalen Daten überschrieben werden sollen (Ohne weitere Prüfung).

Nun werden Unterverzeichnisse separiert gehandhabt und das Listing wird nicht mehr überschrieben.

Delphi-Quellcode:

// === FTP Download Folder =====================================================
// = Uses: IdFTPList
procedure TForm1.DownloadFolder(AFTP: TIdFtp; ARemotePath, ALocalPath:string; bOverwrite:Boolean);
var
 I: Integer;
 SubFolders: TStringList;

begin
 ALocalPath := IncludeTrailingPathDelimiter(ALocalPath);
 ForceDirectories(ALocalPath);
 if ARemotePath[Length(ARemotePath)] <> '/' then ARemotePath := ARemotePath +'/';

 try
  AFTP.List;
 except
  on E:Exception do MessageDlg(E.Message, mtError, [mbOk], 0);
 end;

 for I := 0 to AFTP.DirectoryListing.Count -1 do
 begin
  // = File Handling
   if AFTP.DirectoryListing[i].ItemType = ditFile then
   begin
    if bOverwrite then
    begin
     if Fileexists(ALocalPath +AFTP.DirectoryListing[i].FileName) then DeleteFile(ALocalPath +AFTP.DirectoryListing[i].FileName);
     AFTP.Get(AFTP.DirectoryListing[i].FileName, ALocalPath +AFTP.DirectoryListing[i].FileName);
    end;
   end;

  // = Folder Handling
   if AFTP.DirectoryListing[i].ItemType = ditDirectory then
    begin
     if SubFolders = nil then SubFolders := TStringList.Create;
     SubFolders.Add(AFTP.DirectoryListing[i].FileName);
    end;

 end;

// = Subfolder Handling
 if SubFolders <> nil then
  begin
   for I := 0 to Pred(SubFolders.Count) do
    begin
     AFTP.ChangeDir(SubFolders[I]);
     DownloadFolder(AFTP, ARemotePath + SubFolders[I], ALocalPath +SubFolders[I],bOverwrite);
     AFTP.ChangeDirUp;
    end;
  end;

end;

// === Button "Download" =======================================================
procedure TForm1.Button1Click(Sender: TObject);
// = Uses: IdFTPCommon
var
 FTPServer : TIdFTP;
begin
// = Create FTP-Instance
 FTPServer := TIdFTP.Create(nil);
 FTPServer.Passive := true;
 FTPServer.TransferType := ftBinary;

 FTPServer.Username := 'test';
 FTPServer.Password := 'test';
 FTPServer.Host     := 'FTP-SERVER';
 FTPServer.Port     := 21;

 try
  FTPServer.Connect;
 except
  on E:Exception do
  begin
   MessageDlg(E.Message, mtError, [mbOk], 0);
   FTPServer.Disconnect;
   FTPServer.Quit;
   exit;
  end;
 end;

// = Download Folder
 ForceDirectories(ExtractFilePath(ParamStr(0)) +'\folder');
 FTPServer.ChangeDir('folder');
 DownloadFolder(FTPServer, 'folder', ExtractFilePath(ParamStr(0))+'\folder',true);

// = Disconnect and Free FTP-Instance
 FTPServer.Disconnect;
 FTPServer.Quit;

end;

Gruss