Purepdf

[coxco]

salut

J'ai essayé d'intégrer dans une procédure de mon programme, l'exemple
donné pour créer un fichier pdf,( après intégration de la libraire purepdf version 4.2)

exemple ci dessous

Code : Tout sélectionner

; Truncate Cell example
; Made by Thorsten1867

;{ ========== StartPDFDoc ========== 
pdf_Create("P", "mm", #PDF_PAGE_FORMAT_A4) 
pdf_SetTitle("TestPDF") 
pdf_SetTopMargin(15)  
pdf_SetLeftMargin(15)  
pdf_SetRightMargin(15)  
pdf_SetAutoPageBreak(1, 15)  
pdf_AddPage("P") 
pdf_SetFont("Arial", "", 11) 
;} ============================== 

pdf_Cell(35,6, "That is a long text to test it.", 1, 1) 
pdf_TruncateCell(35,6, "That is a long text to test it.", 1, 1) 
pdf_Ln(3) 
pdf_Cell(43,6, "That is a long text to test it.", 1, 1) 
pdf_TruncateCell(43,6, "That is a long text to test it.", 1, 1) 

;{ ========== EndPDFDoc ========== 
pdf_Save("Tutorial19 TruncateCell.pdf") 
;} =============================

il se plante sur la ligne PDF_SAVE, avec l'erreur division by Zero
Pourtant lorsque je lance l'exemple dans un programme seul, il fonctionne sans problème

Que se passe t'il ? et il y a t'il une solution ?

Merci

[Backup]

Que se passe t'il ? et il y a t'il une solution ?

Merci

l'exemple de ta procedure aurai ete plus parlant !!

je pense qu'il s'agit comme d'habitude d'une histoire de variable Local !!
si ta procedure contient un calcul , (je suppose , sans exemple on ne peut faire autrement ) , je suppose toujours, que tu divise avec une variable qui
n'a pas ete declaré comme Global .....

enfin c'est un chemin de supposition, que je suppose ...

[coxco]

Je me suis mal expliqué

Le code précédent était Seul dans la procédure, il n'y avait rien d'autre ?

[coxco]

Peut être parlais tu des procédures de la librairie purepdf

la procédure pdf_save

Code : Tout sélectionner

ProcedureDLL pdf_Save(FileName$) ;Output PDF to filename.
  ipf_Close()
  If CheckFilename(GetFilePart(Filename$)) = 1
    File=CreateFile(#PB_Any, FileName$)
    If File
      WriteData(File,pdfBuffer\pData, pdfBuffer\lCurSize)
      CloseFile(File)
    Else
      pdfError = 15
      pdfErrorMessage$ = "Can't create the file."
    EndIf      
  Else
    pdfError = 14
    pdfErrorMessage$ = "Filename is not correct."
  EndIf
  If pdfBuffer\pData
    FreeMemory(pdfBuffer\pData)
    
  EndIf
  pdfBuffer\pData=0    
EndProcedure

[Backup]

ptete ben dans ce cas, que tu n'utilise pas la Librairie mis a jour pour ta version de purebasic (4.20 ?? )

[coxco]

si j'ai télécharger la derniere

[bob]

Bonsoir,
J'essaie d'utiliser les fichiers exemples pour créer 1 PDF,
j'ai placé les fichiers de PurePdf dans le répertoire de Purebasic\Purelibraries, mais cela ne fonctionne pas, j'obtiens ce message:

la bibliothèque Purebasic suivante est manquante : stringextension.
ou les instructions comme #PDF_ALIGN_CENTER ne sont pas reconnues.
A votre avis, que dois-je faire pour corriger ce problème ?
D'avance, merci.

[Backup]

il est probable que tu utilise une version de librairie qui ne soit pas compatible avec la Version de Purebasic que tu utilises !

a chaque version de Purebasic , les librairies utilisateur doivent souvent (pas toujours) etre recompilé dans la version de purebasic en cours
pour fonctionner


ps: #PDF_ALIGN_CENTER n'est pas une instruction , c'est une constante !!

[G-Rom]

les probabilités sont plus grandes a mon avis...
quel version de PureBasic utilises tu ?

[Backup]

les probabilités sont plus grandes a mon avis...
quel version de PureBasic utilises tu ?

.... qu'on rigole ....

[G-Rom]

Ca sent le capitaine jack sparrow à plein nez , ce genre d'erreur vient d'une vieille version de PB...

[Backup]

la derniere version de PurePDF est garantie pour la version 4.1x de Purebasic
dispo ici :
http://www.purearea.net/pb/download/use ... 8_PB41.zip

mais pas pour la Version 5.xx

le lien vers le Topic concernant cette librairie

http://forums.purebasic.com/english/vie ... 3fa6e36dcd

apparemment il sont en train de la mettre ricrack pour la Version 5.1x a suivre

[G-Rom]

@Bob , Essaye ce code et renvois le résultat si tu peu :

Code : Tout sélectionner

Macro Whoo():Mac:EndMacro:Macro Poo():ro:EndMacro:Macro Goo():EndMac:EndMacro
Whoo()Poo() Check():S:Goo()Poo():Whoo()Poo() Version():wap:Goo()Poo():Whoo()Poo() _Of_():Mouse:Goo()Poo()
Whoo()Poo() _My_():Button:Goo()Poo():Whoo()Poo() _PureBasic:_(1):Goo()Poo()


Check()Version()_Of_()_My_()_PureBasic

[Ar-S]

@Bob , Essaye ce code et renvois le résultat si tu peu :

Code : Tout sélectionner

Macro Whoo():Mac:EndMacro:Macro Poo():ro:EndMacro:Macro Goo():EndMac:EndMacro
Whoo()Poo() Check():S:Goo()Poo():Whoo()Poo() Version():wap:Goo()Poo():Whoo()Poo() _Of_():Mouse:Goo()Poo()
Whoo()Poo() _My_():Button:Goo()Poo():Whoo()Poo() _PureBasic:_(1):Goo()Poo()


Check()Version()_Of_()_My_()_PureBasic

Et ben tu t'éclates

[Backup]

il est sensé faire quoi ce code ??

chez moi il ne donne rien