Ja, wir reden die ganze Zeit doch über das Demo
was ist nun hier falsch ?
Delphi-Quellcode:
var
H: THandle;
BeginDocF: function(FileName: PChar): Integer; stdcall;
EndDocF: function: Integer; stdcall;
SetDocumentInfoF: function(what: Integer; Value: PChar): Integer; stdcall;
begin
PrintPreview.SaveAsPDF('temp.pdf');// ;)
if SavePDFDialog.Execute then begin
H := LoadLibrary('dspdf.dll');
if H > 0 then
begin
@SetDocumentInfoF := GetProcAddress(H, 'SetDocumentInfoF');
BeginDocF('temp.pdf');
SetDocumentInfoF(4,'Blabla');
EndDocF();
PrintPreview.SaveAsPDF(SavePDFDialog.FileName);
end;
FreeLibrary(H);
end;
end;