Quote and SendCommand

Demonstrate the Quote and SendCommand methods.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
serverResponse: 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
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

ftp.Hostname := 'www.myftpserver.com';
ftp.Username := '****';
ftp.Password := '****';

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

//  Tell the FTP object to keep an in-memory session log
//  so we can see the commands sent to the server,
//  and the responses received back.
ftp.KeepSessionLog := 1;

//  Change the current remote directory via the Quote method:
success := ftp.Quote('CWD junk');
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

//  Move back up
//  In this case, ChangeRemoteDir sends "CWD .." to the FTP server.
success := ftp.ChangeRemoteDir('..');
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

//  Do the same via the SendCommand method where the
//  raw FTP server response is returned:

serverResponse := ftp.SendCommand('CWD junk');
if (Length(serverResponse) = 0 ) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add(serverResponse);
  end;

ftp.Disconnect();

Memo1.Lines.Add('Session Log:');
Memo1.Lines.Add(ftp.SessionLog);

end;