Pascal (Lazarus/Delphi)
Pascal (Lazarus/Delphi)
Extract Metadata XML from PDF
See more PDF Signatures Examples
Demonstrates how to extract the metadata XML from a PDF.Chilkat Pascal (Lazarus/Delphi) Downloads
program ChilkatDemo;
// Demonstrates using the Chilkat Pascal wrapper via the C bridge DLL.
// Builds as a console application under Lazarus (FPC) or Delphi.
{$IFDEF FPC}
{$MODE DELPHI}
{$ENDIF}
{$APPTYPE CONSOLE}
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
SysUtils,
CkDllLoader,
Chilkat.StringBuilder,
Chilkat.Pdf,
Chilkat.Xml;
// ---------------------------------------------------------------------------
procedure RunDemo;
var
success: Boolean;
pdf: TPdf;
sbXml: TStringBuilder;
xml: TXml;
x_xmpmeta_xmlns_x: string;
x_xmpmeta_x_xmptk: string;
rdf_RDF_xmlns_rdf: string;
rdf_Description_rdf_about: string;
rdf_Description_xmlns_xmp: string;
rdf_Description_xmlns_dc: string;
rdf_Description_xmlns_xmpMM: string;
rdf_Description_xmlns_pdf: string;
rdf_Description_xmlns_xmpRights: string;
xmp_ModifyDate: string;
xmp_CreateDate: string;
xmp_MetadataDate: string;
xmp_CreatorTool: string;
dc_format: string;
rdf_li_xml_lang: string;
rdf_li: string;
i: Integer;
count_i: Integer;
xmpMM_DocumentID: string;
xmpMM_InstanceID: string;
pdf_Producer: string;
pdf_Keywords: string;
xmpRights_WebStatement: string;
begin
success := False;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
pdf := TPdf.Create;
success := pdf.LoadFile('qa_data/pdf/blank_with_metadata.pdf');
if (success = False) then
begin
WriteLn(pdf.LastErrorText);
Exit;
end;
sbXml := TStringBuilder.Create;
// Note: Not all PDF files have metadata. Metadata is optional.
success := pdf.GetMetadata(sbXml);
if (success = False) then
begin
WriteLn(pdf.LastErrorText);
Exit;
end;
xml := TXml.Create;
xml.LoadSb(sbXml,True);
WriteLn(xml.GetXml());
// Sample PDF metadata XML:
// (Code for parsing follows)
// Use this online tool to generate parsing code from sample XML:
// Generate Parsing Code from XML
// <?xml version="1.0" encoding="utf-8"?>
// <x:xmpmeta xmlns:x="adobe:ns:meta/" x:xmptk="Adobe XMP Core 9.1-c001 79.675d0f7, 2023/06/11-19:21:16 ">
// <rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#">
// <rdf:Description rdf:about="" xmlns:xmp="http://ns.adobe.com/xap/1.0/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:xmpMM="http://ns.adobe.com/xap/1.0/mm/" xmlns:pdf="http://ns.adobe.com/pdf/1.3/" xmlns:xmpRights="http://ns.adobe.com/xap/1.0/rights/">
// <xmp:ModifyDate>2024-11-27T11:33:12-06:00</xmp:ModifyDate>
// <xmp:CreateDate>2024-11-27T11:28:23-06:00</xmp:CreateDate>
// <xmp:MetadataDate>2024-11-27T11:33:12-06:00</xmp:MetadataDate>
// <xmp:CreatorTool>Adobe Acrobat Pro (32-bit) 24.3.20112</xmp:CreatorTool>
// <dc:format>application/pdf</dc:format>
// <dc:title>
// <rdf:Alt>
// <rdf:li xml:lang="x-default">Blank</rdf:li>
// </rdf:Alt>
// </dc:title>
// <dc:creator>
// <rdf:Bag>
// <rdf:li>Chilkat Software</rdf:li>
// </rdf:Bag>
// </dc:creator>
// <dc:description>
// <rdf:Alt>
// <rdf:li xml:lang="x-default">Blank Document</rdf:li>
// </rdf:Alt>
// </dc:description>
// <dc:subject>
// <rdf:Bag>
// <rdf:li>blank</rdf:li>
// <rdf:li>metadata</rdf:li>
// <rdf:li>document</rdf:li>
// </rdf:Bag>
// </dc:subject>
// <xmpMM:DocumentID>uuid:34535ffa-b632-43f1-b1fd-80cea6fdc351</xmpMM:DocumentID>
// <xmpMM:InstanceID>uuid:69ace620-4c54-407f-8d45-6eebc90f34c2</xmpMM:InstanceID>
// <pdf:Producer>Adobe Acrobat Pro (32-bit) 24.3.20112</pdf:Producer>
// <pdf:Keywords>blank; metadata; document</pdf:Keywords>
// <xmpRights:WebStatement>https://www.chilkatsoft.com/</xmpRights:WebStatement>
// </rdf:Description>
// </rdf:RDF>
// </x:xmpmeta>
x_xmpmeta_xmlns_x := xml.GetAttrValue('xmlns:x');
x_xmpmeta_x_xmptk := xml.GetAttrValue('x:xmptk');
rdf_RDF_xmlns_rdf := xml.ChilkatPath('rdf:RDF|(xmlns:rdf)');
rdf_Description_rdf_about := xml.ChilkatPath('rdf:RDF|rdf:Description|(rdf:about)');
rdf_Description_xmlns_xmp := xml.ChilkatPath('rdf:RDF|rdf:Description|(xmlns:xmp)');
rdf_Description_xmlns_dc := xml.ChilkatPath('rdf:RDF|rdf:Description|(xmlns:dc)');
rdf_Description_xmlns_xmpMM := xml.ChilkatPath('rdf:RDF|rdf:Description|(xmlns:xmpMM)');
rdf_Description_xmlns_pdf := xml.ChilkatPath('rdf:RDF|rdf:Description|(xmlns:pdf)');
rdf_Description_xmlns_xmpRights := xml.ChilkatPath('rdf:RDF|rdf:Description|(xmlns:xmpRights)');
xmp_ModifyDate := xml.GetChildContent('rdf:RDF|rdf:Description|xmp:ModifyDate');
xmp_CreateDate := xml.GetChildContent('rdf:RDF|rdf:Description|xmp:CreateDate');
xmp_MetadataDate := xml.GetChildContent('rdf:RDF|rdf:Description|xmp:MetadataDate');
xmp_CreatorTool := xml.GetChildContent('rdf:RDF|rdf:Description|xmp:CreatorTool');
dc_format := xml.GetChildContent('rdf:RDF|rdf:Description|dc:format');
rdf_li_xml_lang := xml.ChilkatPath('rdf:RDF|rdf:Description|dc:title|rdf:Alt|rdf:li|(xml:lang)');
rdf_li := xml.GetChildContent('rdf:RDF|rdf:Description|dc:title|rdf:Alt|rdf:li');
rdf_li := xml.GetChildContent('rdf:RDF|rdf:Description|dc:creator|rdf:Bag|rdf:li');
rdf_li_xml_lang := xml.ChilkatPath('rdf:RDF|rdf:Description|dc:description|rdf:Alt|rdf:li|(xml:lang)');
rdf_li := xml.GetChildContent('rdf:RDF|rdf:Description|dc:description|rdf:Alt|rdf:li');
i := 0;
count_i := xml.NumChildrenHavingTag('rdf:RDF|rdf:Description|dc:subject|rdf:Bag|rdf:li');
while i < count_i do
begin
xml.I := i;
rdf_li := xml.GetChildContent('rdf:RDF|rdf:Description|dc:subject|rdf:Bag|rdf:li[i]');
i := i + 1;
end;
xmpMM_DocumentID := xml.GetChildContent('rdf:RDF|rdf:Description|xmpMM:DocumentID');
xmpMM_InstanceID := xml.GetChildContent('rdf:RDF|rdf:Description|xmpMM:InstanceID');
pdf_Producer := xml.GetChildContent('rdf:RDF|rdf:Description|pdf:Producer');
pdf_Keywords := xml.GetChildContent('rdf:RDF|rdf:Description|pdf:Keywords');
xmpRights_WebStatement := xml.GetChildContent('rdf:RDF|rdf:Description|xmpRights:WebStatement');
pdf.Free;
sbXml.Free;
xml.Free;
end;
// ---------------------------------------------------------------------------
begin
try
RunDemo;
except
on E: Exception do
WriteLn('Unhandled exception: ', E.ClassName, ': ', E.Message);
end;
WriteLn;
{$IFDEF MSWINDOWS}
WriteLn('Press Enter to exit...');
ReadLn;
{$ENDIF}
end.