Wie ändere ch die PDF Infos bei sdPDF ?

[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

[thomas2009]

Zitat:

Zitat von Sir Rufo (Beitrag 1096900)

Also mit etwas Grundlagenwissen und diesem Link bekommt man das hin

Ich habe genauso wie im Link steht, aber die Anwendung schliesst sicht, wenn ich folgendes tue !

Delphi-Quellcode:

var
SetDocumentInfoF: function(what: Integer; Value: PChar): Integer; stdcall;
begin
  if SavePDFDialog.Execute then
SetDocumentInfoF(0,'Blabla1');
SetDocumentInfoF(4,'Blabla2');
    PrintPreview.SaveAsPDF(SavePDFDialog.FileName);
end;

[Luckie]

Informiere dich mal über if-Bedingungen und Blöcke mit Begin und End.

[Zacherl]

Außerdem musst du die Funktion schon noch aus der DLL importieren bevor du sie aufrufst :roll:

[thomas2009]

Zitat:

Zitat von Zacherl (Beitrag 1096916)

Außerdem musst du die Funktion schon noch aus der DLL importieren bevor du sie aufrufst :roll:

Das stimmt

Delphi-Quellcode:

  H := LoadLibrary('dspdf.dll');
  if H > 0 then
  begin
    @BeginDocF := GetProcAddress(H, 'BeginDoc');
...

Ich weiß nicht wie ich diese externe Funktion richtig importiere

[Sir Rufo]

Zitat:

Zitat von thomas2009 (Beitrag 1096920)

Zitat:

Zitat von Zacherl (Beitrag 1096916)

Außerdem musst du die Funktion schon noch aus der DLL importieren bevor du sie aufrufst :roll:

Das stimmt

Delphi-Quellcode:

  H := LoadLibrary('dspdf.dll');
  if H > 0 then
  begin
    @BeginDocF := GetProcAddress(H, 'BeginDoc');
...

Ich weiß nicht wie ich diese externe Funktion richtig importiere

Augen auf ... Es ist nur noch ein Schritt entfernt ... Transferleistung einschalten.
(Warum steht da oben jetzt BeginDoc? Was muss man für SetDocumentInfo ändern?)

[thomas2009]

importieren ist nun klar
aber wie ändere ich die Werte nachdem importieren ?

Delphi-Quellcode:

H := LoadLibrary('dspdf.dll');
if H > 0 then
begin    
@SetDocumentInfoF := GetProcAddress(H, 'SetDocumentInfoF');// funk. importieren
    SetDocumentInfoF(4,'Blabla');

[Zacherl]

Nah dran, verdammt nah dran :D Vor dem SetDocumentInfo() noch ein BeginDoc() und danach ein EndDoc() Aufruf, dann sollte es das gewesen sein :P

[thomas2009]

Ging auch nicht

Delphi-Quellcode:

var
  H: THandle;
  BeginDocF: function(FileName: PChar): Integer; stdcall;
  EndDocF: function: Integer; stdcall;
  SetDocumentInfoF: function(what: Integer; Value: PChar): Integer; stdcall;
begin

  H := LoadLibrary('dspdf.dll');
  if H > 0 then
  begin

    @SetDocumentInfoF := GetProcAddress(H, 'SetDocumentInfoF');
    BeginDocF('');
    SetDocumentInfoF(4,'Blabla');
    EndDocF();
if SavePDFDialog.Execute then begin
PrintPreview.SaveAsPDF(SavePDFDialog.FileName); end;
end;
   FreeLibrary(H);
  end;