|
| WebService et dSauveImagePNG |
| Iniciado por jean.paul, 28,may. 2019 13:04 - No hay respuesta |
| |
| | | |
|
| |
| Publicado el 28,mayo 2019 - 13:04 |
Bonjour,
J'ai créé un WebService dont le but est de pouvoir créer un aperçu PNG d'un fichier PDF pour le stocker dans une rubrique mémo d'un fichier HFSQL.
Le code suivant marche très bien en local… mais une fois le WebService déployé, ça ne fonctionne pas. La fonction dSauveImagePNG() renvoie une valeur valide avec ErreurInfo(errMessage).
Voyez-vous une erreur ?
Je précise que le fichier PDF source est bien présent et que le répertoire de génération de l'image est lui aussi existant.
----
fRepCrée(fRepDonnées()+"\IMG\")
sCheminImage est une chaîne = fRepDonnées()+"\IMG\123.png"
sCheminFic est une chaîne = fRepDonnées()+"\PDF\123.pdf"
sInfoPDF est une chaîne = InfoBitmap(sCheminFic)
nDpiVoulu est entier = 300
nLargeurPixel est un entier = Val(ExtraitChaîne(sInfoPDF,2))*nDpiVoulu / 96
nHauteurPixel est un entier = Val(ExtraitChaîne(sInfoPDF,3))*nDpiVoulu / 96
MonImage est une Image = dChargeImage(sCheminFic, imgConvertir, nLargeurPixel,nHauteurPixel)
dSauveImagePNG(MonImage,sCheminImage) |
| |
| |
| | | |
|
| | | | |
| | |
|