Automatically Determine FTP Proxy Method

Tries each of the five possible ProxyMethod settings and returns the value (1-5) of the ProxyMethod that succeeded.

Download Chilkat FTP2 ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
ftp: TChilkatFtp2;
success: Integer;
pMethod: Integer;

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
    ShowMessage(ftp.LastErrorText);

  end;

ftp.Hostname := 'www.example-code.com';
ftp.Username := 'example-code.com';
ftp.Password := '****';

ftp.ProxyHostname := 'ftp.myproxyhost.com';
ftp.ProxyPort := 21;
//  Note: Your FTP Proxy server may or may not require authentication.
ftp.ProxyUsername := 'myProxyUsername';
ftp.ProxyPassword := 'myProxyPassword';

//  The ProxyMethod should be an integer value between 1 and 5.
//  If you know your FTP proxy server's authentication scheme,
//  you may set it directly.  To determine the ProxyMethod,
//  call DetermineProxyMethod.  A return value of -1 indicates a failure.
//  A return value of 0 indicates that nothing worked.
//  A return value of 1-5 indicates the ProxyMethod that was
//  successful, and this should be the value used for the ProxyMethod
//  property.

pMethod := ftp.DetermineProxyMethod();
Memo1.Lines.Add(IntToStr(pMethod));

ftp.Disconnect();
end;