True PDF Software for you!
  2. Produits
  3. PDF Maker
  4. PDF avec Delphi

PDF avec Delphi

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');
  86. SevenPDFComObj.setRestrictPermissions (1);
  87. SevenPDFComObj.setChanges (0);
  88. SevenPDFComObj.setPrinting (1);
  89. SevenPDFComObj.setEnableCopyingOfContent (0);
  90. SevenPDFComObj.setEnableTextAccessForAccessibilityTools (0);
  91. }
  92.  
  93. // Faire la conversion
  94.  
  95. txtReturncode. Texte : = IntToStr ( SevenPDFComObj. ConvertToPdf ( PWideChar ( InFile ) , PWideChar ( OutFile ) , 0 ) ) ;
  96.  
  97. excepter
  98. sur E: Exception do // catch exception si l'utilisateur n'a pas les droits pour tuer une tâche!
  99. commencer
  100. ShowMessage ( 'Une exception se produit:' + E. Message ) ;
  101. fin ;
  102. fin ;
  103.    
  104. enfin
  105. si assigné ( SevenPDFComObj ) alors commencez
  106. SevenPDFComObj. Gratuit ;
  107. fin ;
  108. fin ;
  109.  
  110. fin ;
  111.  
  112. procédure TForm1. btnSelectClick ( expéditeur: TObject ) ;
  113. commencer
  114. si OpenDialog1. Exécuter puis commencer
  115. txtfile. Texte : = OpenDialog1. FileName ;
  116. txtReturncode. Texte : = '' ;
  117. fin ;
  118. fin ;
  119.  
  120. procédure TForm1. btnSelectPDFClick ( expéditeur: TObject ) ;
  121. commencer
  122. si SaveDialog1. Exécuter puis commencer
  123. txtPDF. Texte : = ChangeFileExt ( SaveDialog1. FileName , '.pdf' ) ;
  124. fin ;
  125. fin ;
  126.  
  127. fin .

Téléchargements

appendice taille
Télécharger l'exemple de code 3.82 KB
Top