IMAGE VERS GIF

version 6.7 (Modifiée)

IMAGE VERS GIF (imagePICT; blobGIF)

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 BLOB VERS DOCUMENT 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.

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
         ENVOYER BLOB HTML ($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 browser, 4D affiche alors une image GIF du type suivant :

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