Hallo,
habe die Lösung nach langem googeln und probieren doch noch selbst gefunden:
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
| 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 vallerdings auf einem rechner laufen lassen kann, der Acrobat nicht hat, muss ich noch testen!
Vielleicht hilfts ja jemand anderem noch weiter...
MfG
Veit
Moderiert von 
Klabautermann: Code- durch Delphi-Tags ersetzt
