Pascal (Lazarus/Delphi)

Disconnect from an FTP Server

Demonstrates the Chilkat Ftp2.Disconnect method, which ends the FTP session and closes the control connection. It takes no arguments. When connected, Chilkat sends QUIT and then closes the socket.

Background: Sending QUIT before closing is the polite shutdown — it lets the server finalize the session cleanly rather than seeing an abrupt socket drop. The method is idempotent, so calling it when nothing is connected, or a second time after the session is already closed, still succeeds; that makes it safe to put in cleanup paths without guarding it.

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;

begin
  success := False;

  //  Demonstrates the Ftp2.Disconnect method, which ends the FTP session and closes the control
  //  connection.  It takes no arguments.  When connected, Chilkat sends QUIT and then closes the
  //  socket.

  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;

  //  ... perform FTP operations ...

  //  Disconnect is idempotent: calling it when no connection exists, or calling it again after the
  //  session is already closed, still succeeds.
  success := ftp.Disconnect();
  if (success = False) then
    begin
      WriteLn(ftp.LastErrorText);
      Exit;
    end;
  WriteLn('Disconnected.');


  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.