Pascal (Lazarus/Delphi)

Get the Current Remote Directory (PWD)

Demonstrates the Chilkat Ftp2.GetCurrentRemoteDir method, which returns the current working directory reported by the FTP server, normally via the PWD command. It takes no arguments.

Background: FTP is stateful: the server tracks a current working directory per session, and relative paths in later commands are resolved against it. Reading it back is useful to confirm where you are after a ChangeRemoteDir, or to record the starting directory so you can return to it. The value comes from the server, so it reflects the server's own path syntax and canonicalization.

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;
  currentDir: string;

begin
  success := False;

  //  Demonstrates the Ftp2.GetCurrentRemoteDir method, which returns the current working directory
  //  reported by the FTP server (normally via the PWD command).  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';

  //  Connect and log in (Connect performs both).
  success := ftp.Connect();
  if (success = False) then
    begin
      WriteLn(ftp.LastErrorText);
      Exit;
    end;

  currentDir := ftp.GetCurrentRemoteDir();
  if (ftp.LastMethodSuccess = False) then
    begin
      WriteLn(ftp.LastErrorText);
      Exit;
    end;
  WriteLn('Current remote directory: ' + currentDir);

  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.