Load Binary File to an Encoded String

Demonstrates how to load a binary file directly into a string encoded as base64, hex, URL, quoted-printable, etc.

Download Chilkat FileAccess ActiveX (freeware)

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATFILEACCESSLib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
fac: TCkFileAccess;
encodedStr: String;

begin
fac := TCkFileAccess.Create(Self);

//  The 2nd argument specifies the encoding and may
//  be "base64", "hex", "url", or "qp".
encodedStr := fac.ReadBinaryToEncoded('sample.pdf','base64');
if (encodedStr = NULL ) then
  begin
    Memo1.Lines.Add(fac.LastErrorText);
  end
else
  begin
    Memo1.Lines.Add(encodedStr);
  end;
end;