(Delphi DLL) Demonstrates how to call AddPfxSourceData for an Email Object

Demonstrates how to call AddPfxSourceData for an Email Object

Chilkat for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
fac: HCkFileAccess;
pfxBytes: HCkByteData;
email: HCkEmail;
success: Boolean;

begin
fac := CkFileAccess_Create();
pfxBytes := CkByteData_Create();
success := CkFileAccess_ReadEntireFile(fac,'qa_data/pfx/some.pfx',pfxBytes);

email := CkEmail_Create();

success := CkEmail_AddPfxSourceData(email,pfxBytes,'PFX_PASSWORD');
if (success <> True) then
  begin
    Memo1.Lines.Add(CkEmail__lastErrorText(email));
    Exit;
  end;

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

CkFileAccess_Dispose(fac);
CkByteData_Dispose(pfxBytes);
CkEmail_Dispose(email);

end;