ConnectFailReason

The ConnectFailReason property can be examined to determine the reason why the Connect method failed. The possible values are listed in the source code below:

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;
failReason: 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 := 'ftp.****.com';
ftp.Username := '****';
ftp.Password := '****';

//  Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
  begin

    //  The possible failure reasons are:
    //  0 = success
    //  Non-SSL socket fail reasons:
    //   1 = empty hostname
    //   2 = DNS lookup failed
    //   3 = DNS timeout
    //   4 = Aborted by application.
    //   5 = Internal failure.
    //   6 = Connect Timed Out
    //   7 = Connect Rejected (or failed for some other reason)
    //  SSL failure reasons:
    //   100 = Internal schannel error
    //   101 = Failed to create credentials
    //   102 = Failed to send initial message to proxy.
    //   103 = Handshake failed.
    //   104 = Failed to obtain remote certificate.
    //  300 = asynch op in progress
    //  301 = login failure.
    // 
    failReason := ftp.ConnectFailReason;

    Memo1.Lines.Add('connect fail reason = '
         + IntToStr(failReason));

    ShowMessage(ftp.LastErrorText);

  end;

//  ...

end;