PDF Dokumenteneigenschaften auslesen

[digiveit]

Hallo,

habe die Lösung nach langem googeln und probieren doch noch selbst gefunden:

Delphi-Quellcode:

function TfrmMain.GetPDF_Producer2: widestring;
var
  AcrobatApp: TAcroApp;
  AcrobatPDDoc: TAcroPDDoc;

begin
  result := '';

  AcrobatApp := TAcroApp.Create(self);
  if assigned(AcrobatApp) then
  begin
    AcrobatApp.hide;

    AcrobatPDDoc := TAcroPDDoc.Create(self);
    if assigned(AcrobatPDDoc) then
    begin
      if AcrobatPDDoc.Open(fFilename_intern) then
      begin
        result := AcrobatPDDoc.GetInfo('Producer');
      end;
      AcrobatPDDoc.Close;
      AcrobatPDDoc.Free;
    end;

    AcrobatApp.CloseAllDocs;
    AcrobatApp.Exit;
    AcrobatApp.Free;
  end;
end;

Das ganze funktioniert allerdings nur, wenn Adobe Acrobat Vollversion installiert ist. Dann nur lässt sich die AcroRd32.dll in Delphi einbinden und die Acrobat_TLB daraus erstellen. Ob ich das Programm jetzt allerdings auf einem Rechner laufen lassen kann, der Acrobat nicht hat, muss ich noch testen!

Vielleicht hilfts ja jemand anderem noch weiter...

MfG
Veit