idFTP - Komplettes Verzeichnis herunterladen

[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