Génération de PDF avec Delphi

Nous fournissons également un exemple d'application pour les développeurs Delphi, qui montre comment l'interface COM de notre PDF Maker peut être intégrée dans vos propres applications Delphi et utilisée pour la génération de PDF. Complétez votre développement à Delhi avec notre API PDF!

Lorsque le code est exécuté, le moteur PDF de notre créateur de PDF est utilisé pour la génération de PDF. La génération PDF prend en compte les paramètres PDF précédemment définis via les fonctions de paramétrage PDF correspondantes du composant COM.

Une fois la conversion PDF lancée à l'aide de la fonction convertToPDF , le code attend le code retour du moteur PDF. Cela garantit que le développeur sait exactement quand et si la création du PDF s'est terminée avec succès.

L'exemple de code suivant est disponible au téléchargement en bas de la page.

Extrait de l'exemple de code source (Delphi)

  1. unité principale;
  2.  
  3. interface
  4.  
  5. utilisations
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogues, StdCtrls, ComObj, SevenPDFComObj_TLB;
  8.  
  9. qualité
  10. TForm1 = classe ( TForm )
  11. txt Code retour: 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. privé
  39. {Déclarations privées}
  40. public
  41. {Déclarations publiques}
  42. fin ;
  43.  
  44. var
  45. Form1: TForm1;
  46.  
  47. exécution
  48.  
  49. {$ R * .dfm}
  50.  
  51. procédure TForm1. btnCallConvertClick ( expéditeur: TObject ) ;
  52. var
  53. SevenPDFComObj: TSevenPDFObjConverter;
  54. InFile, OutFile: WideString ;
  55.  
  56. commencer
  57.  
  58. InFile: = txtFile. Texte ;
  59. OutFile: = txtPDF. Texte ;
  60.  
  61. SevenPDFComObj: = TSevenPDFObjConverter. Créer ( néant ) ;
  62.  
  63. essayez // enfin
  64. essayez // exception
  65.  
  66. // ******* INITIALISATION *********
  67.  
  68. SevenPDFComObj. Init ;
  69. //SevenPDFComObj.UnlockKey('INSERT LICENSEKEY! ');
  70.  
  71. // ********************************
  72.  
  73. // ****** Personnalisez certains paramètres PDF *******
  74. // Remarque: le cryptage PDF ne fonctionne que dans la version enregistrée
  75. // ******************************************
  76.  
  77. SevenPDFComObj. setExportNotes ( 0 ) ;
  78. SevenPDFComObj. setExportNotesPages ( 0 ) ;
  79. SevenPDFComObj. setExportBookmarks ( 0 ) ;
  80.  
  81. // Définir les options de sécurité PDF
  82. {
  83. SevenPDFComObj.setEncryptFile (1);
  84. SevenPDFComObj.setPermissionPassword ( 'test123');
  85. SevenPDFComObj.setRestrictPermissions (1);
  86. SevenPDFComObj.setChanges (0);
  87. SevenPDFComObj.setPrinting (1);
  88. SevenPDFComObj.setEnableCopyingOfContent (0);
  89. SevenPDFComObj.setEnableTextAccessForAccessibilityTools (0);
  90. }
  91.  
  92. // Faire la conversion
  93.  
  94. txtReturncode. Texte : = IntToStr ( SevenPDFComObj. ConvertToPdf ( PWideChar ( InFile ) , PWideChar ( OutFile ) , 0 ) ) ;
  95.  
  96. excepter
  97. sur E: Exception do // catch exception si l'utilisateur n'a pas les droits pour tuer une tâche!
  98. commencer
  99. ShowMessage ( 'Une exception se produit:' + E. Message ) ;
  100. fin ;
  101. fin ;
  102.    
  103. enfin
  104. si assigné ( SevenPDFComObj ) alors commencez
  105. SevenPDFComObj. Gratuit ;
  106. fin ;
  107. fin ;
  108.  
  109. fin ;
  110.  
  111. procédure TForm1. btnSelectClick ( expéditeur: TObject ) ;
  112. commencer
  113. si OpenDialog1. Exécuter puis commencer
  114. txtfile. Texte : = OpenDialog1. FileName ;
  115. txtReturncode. Texte : = '' ;
  116. fin ;
  117. fin ;
  118.  
  119. procédure TForm1. btnSelectPDFClick ( expéditeur: TObject ) ;
  120. commencer
  121. si SaveDialog1. Exécuter puis commencer
  122. txtPDF. Texte : = ChangeFileExt ( SaveDialog1. FileName , '.pdf' ) ;
  123. fin ;
  124. fin ;
  125.  
  126. fin .

Téléchargements

appendice taille
Télécharger l'exemple de code 3.82 KB
LiveZilla Live Chat Software
Top