PDF Dokumenteneigenschaften auslesen

[digiveit]

Hallo zusammen,

ich möchte aus einem PDF-Dokument die PDF Dokumenteneigenschaften auslesen (Datei->Eigenschaften...) und dort den Eintrag unter "Erweitert" "PDF erstellt mit" auslesen. Auf Englisch steht da "Producer". Habe es schonm mit Gnostice PDFToolkit probiert - ohne Erfolg. Hat jemand eine Idee?
Vielen Dank schon mal für Eure Antwort!

MfG
Veit

[ULIK]

Hm, was geht denn genau nicht? Es gibt im PDF zwei Eigenschaften: Creator und Producer kannst Du mit Gnostice PDFToolkit die Werte auslesen?

Grüße,
Uli

[omata]

pdftk

[digiveit]

@ULIK: Ich möchte an den Producer. Mit Gnostice kann ich anscheinend nur Werte schreiben. Habe schon folgendes probiert:

Code:

function TfrmMain.GetPDF_Producer2: widestring;
begin
  result := '';

  if gtPDFDocument1.LoadFromFile(fFilename) then
  begin
    result := gtPDFDocument1.DocInfo.Producer;
  end;
end;

Leider steht in Producer nichts drin, obwohl ich im Adobe Reader im Dokument unter den Eigenschaften dort etwas sehe.


@omata: pdftk möchte ich nicht verwenden, da ich in dem Umfeld keine externe exe starten darf.

O.K. Jetzt seid Ihr wieder dran...

MfG
Veit

[ULIK]

Hi,

ich kann mir nicht vorstellen, daß Gnostice diese Basisfunktionalität nicht kann (zumal diese ja auch unter den Features aufgelistet ist). Das Dokument ist nicht zufällig passwordgeschützt, oder? Poste doch mal ein Beispiel.

Grüße,
Uli

[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

[Luckie]

Zitat von digiveit:

Ob ich das Programm jetzt allerdings auf einem Rechner laufen lassen kann, der Acrobat nicht hat, muss ich noch testen!

Unwahrscheinlich. Wo soll denn das ActiveX Steuerelement herkommen?

[digiveit]

Hast recht, funktioniert nicht. Hab es mal auf einem anderen Rechner getestet.
Und nun? Jetzt bin ich wider da, wo ich am Anfang auch war....

[Aenogym]

PDF ist ein Klartextformat.
Dort steht im Document Information Dictionary der Creator, Producer, ...

edit: siehe PDF Referenz (http://www.adobe.com/devnet/pdf/pdf_reference.html), Seite 843ff.

Steffen

[digiveit]

Ja und wie komme ich an diese Document Information Dictionary mit Delphi dran?!?
Sorry, aber bin PDF-Legasteniker...