Delphi ActiveX

Set a MIME Body from Transfer-Encoded Text

Demonstrates the Chilkat Mime.SetBodyFromEncoded method, which sets the body from already transfer-encoded text. The first argument is the encoding (base64 or quoted-printable) and the second is the encoded text.

Background: Sometimes you already hold content in its encoded form — a Base64 string from a database or another API — and re-decoding just to have Chilkat re-encode it is wasteful. This method stores the encoded text as-is and records the matching transfer encoding, so the body is correct without a needless round trip. Only the standard reversible encodings, Base64 and quoted-printable, are accepted.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
mime: TChilkatMime;
base64Body: WideString;
decoded: WideString;

begin
success := 0;

//  Demonstrates the Mime.SetBodyFromEncoded method, which sets the body from already transfer-
//  encoded text.  The 1st argument is the encoding ("base64" or "quoted-printable") and the 2nd is
//  the encoded text.

mime := TChilkatMime.Create(Self);

mime.ContentType := 'text/plain';

//  The body is provided already Base64-encoded; Chilkat stores it without re-encoding.
base64Body := 'SGVsbG8sIHRoaXMgaXMgdGhlIGJvZHku';
success := mime.SetBodyFromEncoded('base64',base64Body);
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

//  The decoded body is the original text.
decoded := mime.GetBodyDecoded();
if (mime.LastMethodSuccess = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;
Memo1.Lines.Add(decoded);