IMAGE VERS GIF

4D v16.3

IMAGE VERS GIF


IMAGE VERS GIF ( imagePICT ; blobGIF )

Paramètre	Type	Description
imagePICT	Image	Champ ou variable image
blobGIF	BLOB	BLOB contenant l’image de type GIF

Description

La commande IMAGE VERS GIF permet de créer une image au format GIF à partir d’une image (de type PICT) stockée dans une variable ou un champ 4D.

Vous passez dans le paramètre imagePICT une variable ou un champ 4D de type image, et dans le paramètre blobGIF, une variable ou un champ de type BLOB. Après l’exécution de la commande, blobGIF contient l’image au format GIF.

Note : Le format GIF est un format d’image comportant au plus 256 couleurs. Si l’image PICT d’origine en possède davantage, certaines couleurs seront perdues. La commande réduit le nombre de couleurs en fonction de la palette système. Le GIF généré est de type 87a (opaque) et normal (non entrelacé).

L’image incluse dans blobGIF pourra par la suite être enregistrée dans un fichier à l’aide de la commande Windows Ctrl enfoncee ou être utilisée en vue d’une publication sur le Web.
Si la conversion s’est déroulée correctement, la variable système OK prend la valeur 1. Sinon, elle prend la valeur 0.

Exemple

Vous souhaitez générer à la volée une image GIF affichant un compteur de connexions. Dans la bibliothèque d’images de la base, placez tous les chiffres sous forme d’images :

Dans la Méthode base Sur connexion Web, vous pouvez écrire :

  `Méthode base Sur connexion Web

 Si(Contexte Web)

    ...

 Sinon

    C_BLOB($blob)

    Au cas ou

          ...

       :($1="/4dcgi/counter") `Génération du compteur GIF

  `Lorsque 4D détecte cet URL lors de l’envoi de la page statique

          $blob:=gifcounter(◊nbHits) `Calcul de l’image gif

  `La variable ◊nbHits contient le nombre de connexions

          WEB ENVOYER BLOB($blob;"image/gif")

  `Insertion de l’image et envoi au navigateur

          ...

    Fin de cas

 Fin de si

Voici la méthode gifcounter :

  `Méthode projet gifcounter

 C_ENTIER LONG($1)

 C_IMAGE($img)

 C_BLOB($0)

 Si($1=0)

    $ndigits:=1

 Sinon

    $ndigits:=1+Longueur(Chaine($1))

 Fin de si

 Si($ndigits<5)

    $ndigits:=5

 Fin de si

 $div:=10^($ndigits-1)

 Boucle($i;1;$ndigits)

    $ref:=Ent($1/$div)%10

    LIRE IMAGE DANS BIBLIOTHEQUE($ref+1000;picture)

    $img:=$img+picture

    $div:=$div/10

 Fin de boucle

 IMAGE VERS GIF($img;$0)

Lors de l’envoi de la page sur le navigateur, 4D affiche alors une image GIF du type suivant :

Variables et ensembles système

Si la conversion s’est déroulée correctement, la variable système OK prend la valeur 1. Sinon, elle prend la valeur 0.