Download Directory Tree Listing as XML

Downloads a complete remote directory tree listing in XML format. The directory tree in XML format looks like this:

    bookstore.xml
    hamlet.xml
    hamlet.zip
    japanese.xml
    New Text Document (2).txt
    New Text Document.txt
    nutrition.xml
    pigs.xml
    plants.xml
    
        box.ico
        Setup.exe
        
            dude.gif
            HelloWorld123.txt
        
    
    
        scream.jpg
    

Download Chilkat FTP2 ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATFTP2Lib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
strXml: String;

begin
ftp := TChilkatFtp2.Create(Self);

//  Any string unlocks the component for the 1st 30-days.
success := ftp.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

  end;

ftp.Hostname := 'ftp.secureftp-test.com';
ftp.Username := 'test';
ftp.Password := 'test';

//  Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

  end;

//  Recursively download the listings for the complete
//  remote directory tree at the current remote dir.
//  In this case, we haven't called ChangeRemoteDir,
//  so the current remote dir is the root directory of the
//  FTP account.

strXml := ftp.DirTreeXml();

Memo1.Lines.Add(strXml);

ftp.Disconnect();
end;