Using the FTP Session Log

The Chilkat FTP component can keep a session log if the KeepSessionLog property is turned on. This is helpful in debugging problems. Chilkat support will usually ask for a session log when working to resolve your problem, because it contains a log of the exact commands sent to the FTP server, and the exact responses received.

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;
localFilename: String;
remoteFilename: 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 := 'www.example-code.com';
ftp.Username := 'example-code.com';
ftp.Password := '****';

//  Set the KeepSessionLog property in order to keep a session log.
//  The session log will continuously grow in memory.  The
//  ClearSessionLog method may be called to clear it.  The session
//  logging may be turned on/off at any point.
ftp.KeepSessionLog := 1;

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

  end;

//  Change to the remote directory where the existing file is located.
success := ftp.ChangeRemoteDir('junk');
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

  end;

//  To clear the SessionLog at any point, call ClearSessionLog:
//  call ftp.ClearSessionLog();

//  Append moreHamlet.txt to hamlet.txt on the FTP server.
localFilename := 'moreHamlet.txt';
remoteFilename := 'hamlet.txt';

success := ftp.AppendFile(localFilename,remoteFilename);
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

  end;

ftp.Disconnect();

//  Display the entire session log:
Memo1.Lines.Add(ftp.SessionLog);

ShowMessage('File Appended!');
end;