4D v16.3
PICTURE TO GIF
- 4D - Langage
-
- Images
-
- Introduction aux images
- BLOB TO PICTURE
- COMBINE PICTURES
- CONVERT PICTURE
- CREATE THUMBNAIL
- Equal pictures
- Get picture file name
- GET PICTURE FORMATSNew
- GET PICTURE FROM LIBRARY
- GET PICTURE KEYWORDS
- GET PICTURE METADATA
- Is picture file
- PICTURE CODEC LIST
- PICTURE LIBRARY LIST
- PICTURE PROPERTIES
- Picture size
- PICTURE TO BLOB
- PICTURE TO GIF
- READ PICTURE FILE
- REMOVE PICTURE FROM LIBRARY
- SET PICTURE FILE NAME
- SET PICTURE METADATA
- SET PICTURE TO LIBRARY
- TRANSFORM PICTURE
- WRITE PICTURE FILE
- _o_PICTURE TYPE LIST
- _o_QT COMPRESS PICTURE
- _o_QT COMPRESS PICTURE FILE
- _o_QT LOAD COMPRESS PICTURE FROM FILE
- _o_SAVE PICTURE TO FILE
PICTURE TO GIF
| PICTURE TO GIF ( imagePICT ; blobGIF ) | ||||||||
| Paramètre | Type | Description | ||||||
| imagePICT | Image |
|
Champ ou variable image | |||||
| blobGIF | BLOB |
|
BLOB contenant l’image de type GIF | |||||
La commande PICTURE TO 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 down 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
If(Web Context)
...
Else
C_BLOB($blob)
Case of
...
:($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 SEND BLOB($blob;"image/gif")
`Insertion de l’image et envoi au navigateur
...
End case
End ifVoici la méthode gifcounter :
`Méthode projet gifcounter
C_LONGINT($1)
C_PICTURE($img)
C_BLOB($0)
If($1=0)
$ndigits:=1
Else
$ndigits:=1+Length(String($1))
End if
If($ndigits<5)
$ndigits:=5
End if
$div:=10^($ndigits-1)
For($i;1;$ndigits)
$ref:=Int($1/$div)%10
GET PICTURE FROM LIBRARY($ref+1000;picture)
$img:=$img+picture
$div:=$div/10
End for
PICTURE TO GIF($img;$0)Lors de l’envoi de la page sur le navigateur, 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.
Produit : 4D
Thème : Images
Numéro :
671
Modifié : 4D v6.7
4D - Langage ( 4D v16)
4D - Langage ( 4D v16.1)
4D - Langage ( 4D v16.2)
4D - Langage ( 4D v16.3)
