Delphi ActiveX

Set an FTP Compatibility Option

Demonstrates the Chilkat Ftp2.SetOption method, which enables or disables a named compatibility option. The only argument is the option name; matching is case-insensitive, and prefixing a recognized name with No- disables it.

Background: Real-world FTP servers have quirks, and these named options are targeted workarounds for specific ones — for example Microsoft-TLS-1.2-Workaround addresses a known interoperability issue. Most applications never need any of them; reach for SetOption only when a documented server problem calls for a specific fix, and use the exact recognized name.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
ftp: TChilkatFtp2;

begin
success := 0;

//  Demonstrates the Ftp2.SetOption method, which enables or disables a named compatibility option.
//  The only argument is the option name.  Prefix a name with "No-" to disable it.

ftp := TChilkatFtp2.Create(Self);

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';

success := ftp.Connect();
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

//  Enable a recognized compatibility workaround.  Option-name matching is case-insensitive.
success := ftp.SetOption('Microsoft-TLS-1.2-Workaround');
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

//  To disable it, prefix the name with "No-":
success := ftp.SetOption('No-Microsoft-TLS-1.2-Workaround');
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add('Compatibility option toggled.');

success := ftp.Disconnect();
if (success = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;