Delphi DLL

FTP Iterate over Files in Directory Matching ListPattern

See more RSA Examples

Uses the ListPattern property to iterate over the files in a directory matching the pattern. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
ftp: HCkFtp2;
n: Integer;
i: Integer;
filename: PWideChar;
sbLocalPath: HCkStringBuilder;

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,'my_login');
CkFtp2_putPassword(ftp,'my_password');
CkFtp2_putPort(ftp,21);
CkFtp2_putAuthTls(ftp,True);

success := CkFtp2_Connect(ftp);
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

// Change to the "images" sub-directory located under our FTP account's home directory.
success := CkFtp2_ChangeRemoteDir(ftp,'images');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

CkFtp2_putListPattern(ftp,'*.png');

// Fetch the current remote directory contents by calling GetDirCount
n := CkFtp2_GetDirCount(ftp);
if (n < 0) then
  begin
    Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
    Exit;
  end;

i := 0;

sbLocalPath := CkStringBuilder_Create();

while i < n do
  begin
    filename := CkFtp2__getFilename(ftp,i);
    Memo1.Lines.Add(filename);

    // Download this file.
    CkStringBuilder_SetString(sbLocalPath,'qa_output/');
    CkStringBuilder_Append(sbLocalPath,filename);
    success := CkFtp2_GetFile(ftp,filename,CkStringBuilder__getAsString(sbLocalPath));
    if (success <> True) then
      begin
        Memo1.Lines.Add(CkFtp2__lastErrorText(ftp));
        Exit;
      end;

    i := i + 1;
  end;

CkFtp2_Dispose(ftp);
CkStringBuilder_Dispose(sbLocalPath);

end;