Wie ändere ch die PDF Infos bei sdPDF ?

[thomas2009]

Hi

in der Hilfe steht, dass man die PDF infos ändern kann und zwar mit dieser externe Funktion :

Delphi-Quellcode:

function SetDocumentInfo(what: Integer; Value: PChar): Integer; stdcall;

...
SetDocumentInfo what:

0=Producer
1=Author
2=Creator
3=Subject
4=Title

[mkinzler]

Ist die Frage ernst gemeint?

[Zacherl]

Ehm, eventuell indem du die Funktion mit entsprechenden Parametern aufrufst?

Beispiel:
SetDocumentInfo(4, 'Neuer Title')

[thomas2009]

Zitat von Zacherl:

SetDocumentInfo(4, 'Neuer Title')

Dann bekomme ich undeclared SetDocumentInfo
Ich habe gedacht, die Funktion ist externe Funktion in der Unit dspdf

[mkinzler]

Hast du auch die entsprechende Unit eingebunden?

[thomas2009]

Zitat von mkinzler:

Hast du auch die entsprechende Unit eingebunden?

Ja natürlich, sonst konnte ich nicht das Dokument als PDF speichern

[mkinzler]

Möglichweise befindet sich diese Funktion in einer anderen Unit, die Komponenet wird ja nicht nur aus einer Unit bestehen.

[thomas2009]

In unit preview.pas gibt es nicht
sicher in dspdf.dll

Die Infos stehen in dspdf.txt:

Code:

exported functions:

function BeginDoc(FileName: PChar): Integer; stdcall;
function EndDoc: Integer; stdcall;
function NewPage: Integer; stdcall;
function PrintPageF(FileName: PChar): Integer; stdcall;
function PrintPageM(Data: Pointer; Size: Integer): Integer; stdcall;
function SetPage(page_size, orientation, page_width, page_height: Integer): Integer; stdcall;
function SetDocumentInfo(what: Integer; Value: PChar): Integer; stdcall;

SetPage page_size:

UserDefined=0
Letter=1
A4=2
A3=3
Legal=4
B5=5
C5=6
8x11=7
B4=8
A5=9
Folio=10
Executive=11
EnvB4=12
EnvB5=13
EnvC6=14
EnvDL=15
EnvMonarch=16
Env9=17
Env10=18
Env11=19

SetPage orientation:

Portrait=0
Landscape=1

SetDocumentInfo what:

0=Producer
1=Author
2=Creator
3=Subject
4=Title

[mkinzler]

Aber in irgendeiner Unit muss der Wrapper-Code:
function SetDocumentInfo(what: Integer; Value: PChar): Integer; stdcall; ja stehen, und diese muss eingebunden sein.

[thomas2009]

Wenn ich sie in Private zusätzlich einzubinden versuche:

Delphi-Quellcode:

Private
function SetDocumentInfo(what: Integer; Value: PChar): Integer; stdcall;

dann erscheint diese Fehlermeldung :

Code:

 Ungenügende Forward- oder External-Deklaration: 'TForm2.SetDocumentInfo'