True PDF Software for you!
  2. Produkte
  3. PDF Maker
  4. PDF mit Delphi

PDF mit Delphi

PDF-Erzeugung mit Delphi

Auch für Delphi-Entwickler stellen wir eine Beispielanwendung bereit, die zeigt wie das COM Interface unseres PDF Makers in eigene Delphi-Anwendungen eingebunden, und zur PDF-Erzeugung verwendet werden kann. Ergänzen sie ihre Delhi Entwicklung mit unserer PDF API!

Wenn der Code ausgeführt wird, so wird die PDF-Engine unseres PDF Makers 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.

Das nachfolgende Codebeispiel steht unten am Ende der Seite zum Download zur Verfügung.

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 exception 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.

Downloads

Anhang Größe
Codebeispiel herunterladen 3.82 KB
Top