Delphi ActiveX

Check FTP Connection and Login Status

Demonstrates the connection-status properties ConnectVerified, LoginVerified, ConnectFailReason, and Greeting.

Background: When Connect fails, these properties separate the possible causes: ConnectVerified shows whether the TCP connection was established at all, LoginVerified whether authentication then succeeded, and ConnectFailReason gives a numeric code pinpointing the failure — far more actionable than a generic error for distinguishing, say, an unreachable host from a bad password. The Greeting captures the server's opening banner, sometimes useful for identifying the server or its policies.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
ftp: TChilkatFtp2;

begin
success := 0;

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 <> 1) then
  begin
    //  ConnectFailReason gives a numeric code describing why Connect failed.
    Memo1.Lines.Add('Connect failed, reason code: ' + IntToStr(ftp.ConnectFailReason));
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

//  After a successful connect, these flags report what succeeded.
Memo1.Lines.Add('TCP connection verified: ' + IntToStr(Ord(ftp.ConnectVerified)));
Memo1.Lines.Add('Login verified: ' + IntToStr(Ord(ftp.LoginVerified)));

//  The Greeting property holds the server's initial greeting banner.
Memo1.Lines.Add('Server greeting: ' + ftp.Greeting);

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