Delphi ActiveX

Add Email Attachment from FTP

Downloads (into memory) a file from an FTP server and adds it as an attachment to an email.

Note: This example requires Chilkat v9.5.0.63 or later.

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;
pdfData: TChilkatBinData;
email: TChilkatEmail;

begin
success := 0;

// Note: This example requires Chilkat v9.5.0.63 or later.

// This example assumes Chilkat Ftp2 to have been previously unlocked.
// See Unlock Ftp2 for sample code.

ftp := TChilkatFtp2.Create(Self);

ftp.Hostname := 'www.my-ftp-server.com';
ftp.Username := 'mFtpLogin';
ftp.Password := 'myFtpPassword';

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

// Authenticate with the FTP server.
success := ftp.LoginAfterConnectOnly();
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// Move to the remove directory where our file is located.
success := ftp.ChangeRemoteDir('qa_data');
if (success = 1) then
  begin
    success := ftp.ChangeRemoteDir('pdf');
  end;
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

// Download...
pdfData := TChilkatBinData.Create(Self);
success := ftp.GetFileBd('fishing.pdf',pdfData.ControlInterface);
if (success <> 1) then
  begin
    Memo1.Lines.Add(ftp.LastErrorText);
    Exit;
  end;

ftp.Disconnect();

// Create an email object, and add the PDF as an attachment.
email := TChilkatEmail.Create(Self);
email.Subject := 'Test with PDF attachment.';
email.Body := 'This is a plain-text body..';

// Add the PDF attachment.  (This method call requires Chilkat v9.5.0.63 or later)
success := email.AddAttachmentBd('fishing.pdf',pdfData.ControlInterface,'application/pdf');
if (success <> 1) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;

// Save the email and examine with a text editor to see the PDF attachment is present..
email.SaveEml('qa_output/out.eml');

Memo1.Lines.Add('Success.');
end;