Delphi ActiveX

CRLF Mode

See more FTP Examples

The CrlfMode property applies when downloading files in ASCII mode. If CrlfMode is set to 0 (the default), then the ASCII transfer happens normally without alteration. A value of 1 converts all line endings to CR+ LF. A value of 2 converts all line endings to LF-only. A value of 3 converts all line endings to CR-only. Delphi ActiveX

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Integer;
ftp: TChilkatFtp2;
localFilename: WideString;
remoteFilename: WideString;

begin
success := 0;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

ftp := TChilkatFtp2.Create(Self);

ftp.Hostname := 'ftp.chilkatsoft.com';
ftp.Username := 'MyLogin';
ftp.Password := 'MyPassword';

// Connect and login to the FTP server.
success := ftp.Connect();
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// Set the transfer mode to ASCII
success := ftp.SetTypeAscii();
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// Set the CrlfMode to ensure that line endings are CR+LF:
ftp.CrlfMode := 1;

// CrlfMode line ending settings:
// 0 = do ASCII transfer without alteration.
// 1 = CR+LF
// 2 = LF-only
// 3 = CR-only

// Change to the remote directory where the file will be uploaded.
success := ftp.ChangeRemoteDir('junk');
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

localFilename := 'hamlet.xml';
remoteFilename := 'hamlet.xml';

// Turn on session logging for the upload:
ftp.KeepSessionLog := 1;

// Download a file.
success := ftp.GetFile(remoteFilename,localFilename);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// View the session log.  You can verify visually that
// the transfer was in ascii mode.
Memo1.Lines.Add(ftp.SessionLog);

success := ftp.Disconnect();

Memo1.Lines.Add('File Downloaded!');
end;