Delphi ActiveX

Transition from MailMan.LoadMime to Email.SetFromMimeText

Provides instructions for replacing deprecated LoadMime method calls with Email.SetFromMimeText. 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;
mailman: TChilkatMailMan;
mimeText: WideString;
emailObj: IChilkatEmail;
email: TChilkatEmail;

begin
success := 0;

mailman := TChilkatMailMan.Create(Self);

// ...
// ...

mimeText := '....';

// ------------------------------------------------------------------------
// The LoadMime method is deprecated:

emailObj := mailman.LoadMime(mimeText);
if (mailman.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

// ...
// ...

// ------------------------------------------------------------------------
// Do the equivalent using Email.SetFromMimeText.

email := TChilkatEmail.Create(Self);
success := email.SetFromMimeText(mimeText);
if (success = 0) then
  begin
    Memo1.Lines.Add(email.LastErrorText);
    Exit;
  end;
end;