(Delphi ActiveX) Get FTP Directory Listing Information

Delphi ActiveX example showing how to get information about files and subdirectories in the current remote FTP directory.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

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
ftp: TChilkatFtp2;
success: Integer;
i: Integer;
n: Integer;

begin
// 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 := 'login';
ftp.Password := 'password';

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

// The ListPattern property is our directory listing filter.
// The default value is "*", which includes everything.
Memo1.Lines.Add(ftp.ListPattern);

// To get file and sub-directory information, simply
// loop from 0 to ftp.GetDirCount() - 1

n := ftp.GetDirCount();
if (n < 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;
if (n > 0) then
  begin
    for i := 0 to n - 1 do
      begin

        // Display the filename
        Memo1.Lines.Add(ftp.GetFilename(i));

        // Display the file size (in bytes)
        Memo1.Lines.Add(IntToStr(ftp.GetSize(i)));

        // Is this a sub-directory?
        if (ftp.GetIsDirectory(i) = 1) then
          begin
            Memo1.Lines.Add('.. this is a sub-directory');
          end;

        Memo1.Lines.Add('--');
      end;

  end;

Memo1.Lines.Add('-----------------------------------');

// Only files and directories
// matching the ListPattern are returned.
ftp.ListPattern := '*.asp';
n := ftp.GetDirCount();
if (n < 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;
if (n > 0) then
  begin
    for i := 0 to n - 1 do
      begin

        // Display the filename
        Memo1.Lines.Add(ftp.GetFilename(i));

        // Display the file size (in bytes)
        Memo1.Lines.Add(IntToStr(ftp.GetSize(i)));

        Memo1.Lines.Add('--');
      end;

  end;

success := ftp.Disconnect();
end;