Delphi DLL

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 DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
ftp: HCkFtp2;
mode: Integer;
st: HCkStringTable;
numFiles: Integer;
i: Integer;
remoteFilename: PWideChar;

begin
success := False;

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

ftp := CkFtp2_Create();

CkFtp2_putHostname(ftp,'ftp.example.com');
CkFtp2_putUsername(ftp,'myUsername');
CkFtp2_putPassword(ftp,'myPassword');
CkFtp2_putPort(ftp,21);
CkFtp2_putAuthTls(ftp,True);

// Connect and login to the FTP server.
success := CkFtp2_Connect(ftp);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    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 := CkFtp2_ChangeRemoteDir(ftp,'qa');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

// Indicate that we only want to download files with filenames ending in ".txt"
CkFtp2_putSyncMustMatch(ftp,'*.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 := CkFtp2_SyncLocalDir(ftp,'c:/temp/qa_output',mode);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

// Perhaps we wish to delete the files we just downloaded from the server..
st := CkStringTable_Create();
CkFtp2_GetSyncedFiles(ftp,st);

numFiles := CkStringTable_getCount(st);
i := 0;

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

success := CkFtp2_Disconnect(ftp);

CkFtp2_Dispose(ftp);
CkStringTable_Dispose(st);

end;