Delphi ActiveX

FTP Non-Recursive Sync Directory (Download)

See more FTP Examples

Download files from the server that have filenames matchhing a pattern, and don't yet exist in a local directory. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
ftp: TChilkatFtp2;
mode: Integer;
st: TChilkatStringTable;
numFiles: Integer;
i: Integer;
remoteFilename: WideString;

begin
success := 0;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

ftp := TChilkatFtp2.Create(Self);

ftp.Hostname := 'ftp.example.com';
ftp.Username := 'myUsername';
ftp.Password := 'myPassword';
ftp.Port := 21;
ftp.AuthTls := 1;

// Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// Change to the remote directory where the files are located.
// This step is only necessary if the files are not in the root directory
// of the FTP account.
success := ftp.ChangeRemoteDir('qa');
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// Indicate that we only want to download files with filenames ending in ".txt"
ftp.SyncMustMatch := '*.txt';

// Modes for synchronization are as follows:
// mode=0: Download all files
// mode=1: Download all files that do not exist on the local filesystem.
// mode=2: Download newer or non-existant files.
// mode=3: Download only newer files. If a file does not already exist on the local filesystem, it is not downloaded from the server.
// mode=5: Download only missing files or files with size differences.
// mode=6: Same as mode 5, but also download newer files.
// mode=99: Do not download files, but instead delete remote files that do not exist locally.
mode := 1;

// Download all files matching "*.txt" from the current remote ftp directory.
// The files are downloaded into c:/temp/qa_output
success := ftp.SyncLocalDir('c:/temp/qa_output',mode);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// Perhaps we wish to delete the files we just downloaded from the server..
st := TChilkatStringTable.Create(Self);
ftp.GetSyncedFiles(st.ControlInterface);

numFiles := st.Count;
i := 0;

while i < numFiles do
  begin
    remoteFilename := st.StringAt(i);
    Memo1.Lines.Add('Deleting ' + remoteFilename + ' from the FTP server');
    success := ftp.DeleteRemoteFile(remoteFilename);
    if (success <> 1) then
      begin
        Memo1.Lines.Add(ftp.LastErrorText);
        Exit;
      end;
    i := i + 1;
  end;

success := ftp.Disconnect();
end;