CRLF Mode

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.

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;
localFilename: String;
remoteFilename: String;

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.chilkatsoft.com';
ftp.Username := 'MyLogin';
ftp.Password := 'MyPassword';

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

  end;

//  Set the transfer mode to ASCII
success := ftp.SetTypeAscii();
if (success <> 1) then
  begin
    ShowMessage(ftp.LastErrorText);

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

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

  end;

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

ftp.Disconnect();

ShowMessage('File Downloaded!');
end;