Delphi DLL

PDF File Encoding to Base64

See more Base64 Examples

Demonstrates how to encode a PDF file to base64, and then decode. Delphi DLL

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
success: Boolean;
pdfData: HCkBinData;
b64: PWideChar;
pdfData2: HCkBinData;

begin
success := False;

pdfData := CkBinData_Create();

success := CkBinData_LoadFile(pdfData,'qa_data/helloWorld.pdf');
if (success <> True) then
  begin
    Memo1.Lines.Add('failed to load PDF file.');
    Exit;
  end;

// Encode the PDF to base64
// Note: to produce base64 on multiple lines (as it would appear in the MIME of an email),
// pass the string "base64_mime" instead of "base64".
b64 := CkBinData__getEncoded(pdfData,'base64');
Memo1.Lines.Add(b64);

// Decode from base64 PDF.
pdfData2 := CkBinData_Create();
CkBinData_AppendEncoded(pdfData2,b64,'base64');
success := CkBinData_WriteFile(pdfData2,'qa_output/helloWorld2.pdf');
if (success <> True) then
  begin
    Memo1.Lines.Add('failed to write PDF file.');
    Exit;
  end;

CkBinData_Dispose(pdfData);
CkBinData_Dispose(pdfData2);

end;