Pascal (Lazarus/Delphi)

FTP Enable/Disable TLS 1.3

See more FTP Examples

Chilkat started supporting TLS 1.3 in version 9.5.0.82. For versions 9.5.0.82 and 9.5.0.83, TLS 1.3 was not enabled by default. A program could enable TLS 1.3 by including the "EnableTls13" keyword in the UncommonOptions property.

In Chilkat v9.5.0.84 and later, TLS 1.3 is enabled by default. TLS 1.3 can be disabled by including the "DisableTls13" keyword in UncommonOptions. This will cause TLS 1.2 to be used instead.

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
  ftp: TFtp2;

begin
  ftp := TFtp2.Create;

  //  In Chilkat v9.5.0.82 and .83, TLS 1.3 is not enabled by default. 
  //  To enable TLS 1.3, add the keyword "EnableTls13" to the UncommonOptions property.
  ftp.UncommonOptions := 'EnableTls13';

  //  In Chilkat v9.5.0.84 and later, TLS 1.3 is enabled by default.
  //  If disabling TLS 1.3 is needed (for some unanticipated reason), then add the keyword
  //  "DisableTls13" to UncommonOptions
  ftp.UncommonOptions := 'DisableTls13';


  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.