PDF-Erzeugung mit Delphi

Delphi Beispielanwendung - PDF COM Api

 

Auch für Delphi-Entwickler stellen wir eine Beispielanwendung bereit, die zeigt wie das COM Interface von 7-PDF Maker in eigene Anwendungen eingebunden, und zur PDF-Erzeugung verwendet werden kann. 

Wenn der Code ausgeführt wird, so wird die PDF-Engine von 7-PDF Maker zur PDF-Erzeugung verwendet. Die PDF Erzeugung berücksichtigt die PDF-Einstellungen, die zuvor über die entsprechenden PDF Setting Funktionen der COM Komponente festgelegt wurden.

Nachdem die PDF Umwandlung über die Funktion convertToPDF angestoßen wurde,   wartet der Code auf den Returncode der PDF-Engine. Das stellt sicher, dass der Entwickler genau weiss, wann und ob die PDF Erzeugung erfolgreich abgeschlossen wurde.
 

Codebeispiel herunterladen

Quelltextauszug des Sourcecodebeispiels (Delphi)

  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, StdCtrls, ComObj, SevenPDFComObj_TLB;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     txtReturncode: TEdit;
  12.     Label1: TLabel;
  13.     Label4: TLabel;
  14.     txtFile: TEdit;
  15.     btnCallConvert: TButton;
  16.     btnSelect: TButton;
  17.     Label2: TLabel;
  18.     Label3: TLabel;
  19.     Label5: TLabel;
  20.     Label6: TLabel;
  21.     Label8: TLabel;
  22.     Label9: TLabel;
  23.     Label10: TLabel;
  24.     Label11: TLabel;
  25.     Label12: TLabel;
  26.     Label13: TLabel;
  27.     Label7: TLabel;
  28.     txtPDF: TEdit;
  29.     btnSelectPDF: TButton;
  30.     Label14: TLabel;
  31.     Label15: TLabel;
  32.     OpenDialog1: TOpenDialog;
  33.     SaveDialog1: TSaveDialog;
  34.     procedure btnCallConvertClick(Sender: TObject);
  35.     procedure btnSelectClick(Sender: TObject);
  36.     procedure btnSelectPDFClick(Sender: TObject);
  37.  
  38.   private
  39.     { Private-Deklarationen }
  40.   public
  41.     { Public-Deklarationen }
  42.   end;
  43.  
  44. var
  45.   Form1: TForm1;
  46.  
  47. implementation
  48.  
  49. {$R *.dfm}
  50.  
  51. procedure TForm1.btnCallConvertClick(Sender: TObject);
  52. var
  53.   SevenPDFComObj : TSevenPDFObjConverter;
  54.   InFile, OutFile : WideString;
  55.  
  56. begin
  57.  
  58.   InFile := txtFile.Text;
  59.   OutFile := txtPDF.Text;
  60.  
  61.   SevenPDFComObj := TSevenPDFObjConverter.Create(nil);
  62.  
  63.   try //finally
  64.     try //exception
  65.  
  66.       //******* INITIALIZATION *********
  67.  
  68.         SevenPDFComObj.Init;
  69.         //SevenPDFComObj.UnlockKey('INSERT LICENSEKEY!');
  70.  
  71.       //********************************
  72.  
  73.       //****** Customize some PDF Settings *******
  74.       //Notice: PDF encryption works only in registered version
  75.       //******************************************
  76.  
  77.         SevenPDFComObj.setExportNotes(0);
  78.         SevenPDFComObj.setExportNotesPages(0);
  79.         SevenPDFComObj.setExportBookmarks(0);
  80.  
  81.         //Set PDF Security Options
  82.         {
  83.         SevenPDFComObj.setEncryptFile(1);
  84.         SevenPDFComObj.setPermissionPassword('test123');
  86.         SevenPDFComObj.setRestrictPermissions(1);
  87.         SevenPDFComObj.setChanges(0);
  88.         SevenPDFComObj.setPrinting(1);
  89.         SevenPDFComObj.setEnableCopyingOfContent(0);
  90.         SevenPDFComObj.setEnableTextAccessForAccessibilityTools(0);
  91.         }
  92.  
  93.       //Make the Conversion
  94.  
  95.       txtReturncode.Text := IntToStr(SevenPDFComObj.convertToPdf(PWideChar(InFile), PWideChar(OutFile), 0));
  96.  
  97.     except
  98.     on E:Exception do   // Exception abfangen, falls der User nicht die Rechte hat einen Task zu killen!
  99.       begin
  100.         ShowMessage('An excepton occurs: ' + E.Message);
  101.       end;
  102.     end;
  103.    
  104.   finally
  105.     if Assigned(SevenPDFComObj) then begin
  106.       SevenPDFComObj.Free;
  107.     end;
  108.   end;
  109.  
  110. end;
  111.  
  112. procedure TForm1.btnSelectClick(Sender: TObject);
  113. begin
  114.   if OpenDialog1.Execute then begin
  115.     txtFile.Text := OpenDialog1.FileName;
  116.     txtReturncode.Text := '';
  117.   end;
  118. end;
  119.  
  120. procedure TForm1.btnSelectPDFClick(Sender: TObject);
  121. begin
  122.     if SaveDialog1.Execute then begin
  123.     txtPDF.Text := ChangeFileExt(SaveDialog1.FileName, '.pdf');
  124.   end;
  125. end;
  126.  
  127. end.