Pascal (Lazarus/Delphi)

Get the Entire Remote Directory Tree as XML

Demonstrates the Chilkat Ftp2.DirTreeXml method, which returns an XML representation of the complete remote directory tree rooted at the current remote directory. It takes no arguments; the result uses a <dirTree> root with nested <dir> and <file> elements.

Tip: Code to parse the returned XML can be generated at Chilkat Tools.

Background: This walks the whole subtree in one call and hands back its structure as nested XML — a convenient way to snapshot or audit an entire remote hierarchy without writing your own recursion. Be mindful that it visits every subdirectory, so on a large or deep tree it can be slow and produce a great deal of XML; scope it by changing into the specific directory you care about first.

Chilkat Pascal (Lazarus/Delphi) Downloads

Download Chilkat for Pascal (Lazarus/Delphi)

Pascal (Lazarus/Delphi)

program ChilkatDemo;

// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.

{$IFDEF FPC}
  {$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  SysUtils,
  CkDllLoader,
  Chilkat.Ftp2;

// ---------------------------------------------------------------------------

procedure RunDemo;
var
  success: Boolean;
  ftp: TFtp2;
  treeXml: string;

begin
  success := False;

  //  Demonstrates the Ftp2.DirTreeXml method, which returns an XML representation of the complete
  //  remote directory tree rooted at the current remote directory.  It takes no arguments.

  ftp := TFtp2.Create;

  ftp.Hostname := 'ftp.example.com';
  ftp.Username := 'myFtpLogin';

  //  Normally you would not hard-code the password in source.  You should instead obtain it
  //  from an interactive prompt, environment variable, or a secrets vault.
  ftp.Password := 'myPassword';

  success := ftp.Connect();
  if (success = False) then
    begin
      WriteLn(ftp.LastErrorText);
      Exit;
    end;

  success := ftp.ChangeRemoteDir('public_html');
  if (success = False) then
    begin
      WriteLn(ftp.LastErrorText);
      Exit;
    end;

  //  The result uses a <dirTree> root with nested <dir> and <file> elements describing the whole
  //  subtree.  This can be a large amount of data for a deep tree.
  treeXml := ftp.DirTreeXml();
  if (ftp.LastMethodSuccess = False) then
    begin
      WriteLn(ftp.LastErrorText);
      Exit;
    end;
  WriteLn(treeXml);

  success := ftp.Disconnect();
  if (success = False) then
    begin
      WriteLn(ftp.LastErrorText);
      Exit;
    end;


  ftp.Free;

end;

// ---------------------------------------------------------------------------

begin

  try
    RunDemo;
  except
    on E: Exception do
      WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
  end;

  WriteLn;
  {$IFDEF MSWINDOWS}
  WriteLn('Press Enter to exit...');
  ReadLn;
  {$ENDIF}
end.