Wie ändere ch die PDF Infos bei sdPDF ?

[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'

[mkinzler]

Das ist auch eine Funktion und keine Methode.
Es wird glaube mal Zeit, dass du die Grundlagen lernst und dich nicht auf die Gutrmütigkeit anderer verlässt!!!!

[Sir Rufo]

Also mit etwas Grundlagenwissen und diesem Link bekommt man das hin