Delphi DLL

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 DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mime: HCkMime;
base64Body: PWideChar;
decoded: PWideChar;

begin
success := False;

//  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 := CkMime_Create();

CkMime_putContentType(mime,'text/plain');

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

//  The decoded body is the original text.
decoded := CkMime__getBodyDecoded(mime);
if (CkMime_getLastMethodSuccess(mime) = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;
Memo1.Lines.Add(decoded);

CkMime_Dispose(mime);