Delphi ActiveX

Extract Embedded Files from PDF

Demonstrates how to get information about the embedded files (if any) contained within a PDF, and shows how to extract each file.

Note: This example requires Chilkat v9.5.0.95 or greater.

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;
pdf: TChilkatPdf;
numFiles: Integer;
json: TChilkatJsonObject;
bd: TChilkatBinData;
i: Integer;
filename: WideString;

begin
success := 0;

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

pdf := TChilkatPdf.Create(Self);

success := pdf.LoadFile('qa_data/pdf/embedded_files/my_embedded_files_test.pdf');
if (success = 0) then
  begin
    Memo1.Lines.Add(pdf.LastErrorText);
    Exit;
  end;

// Note: The embedded file functionality was added in Chilkat v9.5.0.95

// How many embedded files exist within the opened PDF?
numFiles := pdf.NumEmbeddedFiles;
Memo1.Lines.Add('Number of embedded files: ' + IntToStr(numFiles));

json := TChilkatJsonObject.Create(Self);
json.EmitCompact := 0;

bd := TChilkatBinData.Create(Self);

// Get information about each file, and extract each to the filesystem.
i := 0;
while i < numFiles do
  begin

    success := pdf.GetEmbeddedFileInfo(i,json.ControlInterface);
    if (success = 0) then
      begin
        Memo1.Lines.Add(pdf.LastErrorText);
        Exit;
      end;

    Memo1.Lines.Add(json.Emit());

    // Get the filename from the JSON.
    filename := 'someFile.dat';

    // The filename SHOULD always be present..
    if (json.HasMember('filename') = 1) then
      begin
        filename := json.StringOf('filename');
      end;

    // Get the file data.
    success := pdf.GetEmbeddedFileBd(i,bd.ControlInterface);
    if (success = 0) then
      begin
        Memo1.Lines.Add(pdf.LastErrorText);
        Exit;
      end;

    // Save the contents of the bd to the filename (in the current working directory) in the filesystem.
    success := bd.WriteFile(filename);
    if (success = 0) then
      begin
        Memo1.Lines.Add('Failed to write output file.');
      end;

    i := i + 1;
  end;

// Sample output for the above code:

// Number of embedded files: 3
// {
//   "filename": "employees.json",
//   "desc": "JSON",
//   "subType": "application/json",
//   "size": 159,
//   "creationDate": "D:20230715170506-05'00'",
//   "modDate": "D:20160207153838-05'00'"
// }
// 
// {
//   "filename": "rsaPubKey.pem",
//   "desc": "RSA Public Key PEM",
//   "size": 451,
//   "creationDate": "D:20230715170546-05'00'",
//   "modDate": "D:20150724133153-05'00'"
// }
// 
// {
//   "filename": "starfish.jpg",
//   "desc": "Starfish JPG",
//   "subType": "image/jpeg",
//   "size": 6229,
//   "creationDate": "D:20230715170356-05'00'",
//   "modDate": "D:20080529103055-05'00'"
// }
end;