Delphi ActiveX

Download an FTP File as ANSI Text

Demonstrates the Chilkat Ftp2.GetRemoteFileTextData method, which downloads a remote file and returns its contents decoded using the ANSI character encoding. The only argument is the remote filename.

Background: A convenience for reading a remote text file straight into a string, assuming ANSI encoding. "ANSI" is platform-dependent (the Windows code page on Windows), so this is only reliable for plain ASCII or content you know is in that encoding — for UTF-8 or any explicitly known charset, use GetRemoteFileTextC and name the encoding.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
ftp: TChilkatFtp2;
fileText: WideString;

begin
success := 0;

//  Demonstrates the Ftp2.GetRemoteFileTextData method, which downloads a remote file and returns
//  its contents decoded using the ANSI character encoding.  The only argument is the remote
//  filename.

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;

//  Use this for ANSI-encoded text.  For UTF-8 or another known encoding, use GetRemoteFileTextC.
fileText := ftp.GetRemoteFileTextData('public_html/readme.txt');
if (ftp.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(fileText);

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