4D v16.3PICTURE TO GIF |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D v16.3
PICTURE TO GIF
|
PICTURE TO GIF ( imag ; blobGIF ) | ||||||||
Parámetro | Tipo | Descripción | ||||||
imag | Imagen |
![]() |
Campo o variable imagen | |||||
blobGIF | BLOB |
![]() |
BLOB que contiene la imagen de tipo GIF | |||||
El comando PICTURE TO GIF permite convertir una imagen PICT almacenada en una variable o en un campo 4D en una imagen GIF.
En pict se pasa una variable o un campo tipo imagen y en el parámetro blobGIF, un campo o una variable de tipo BLOB. Después de la ejecución del comando, blobGIF contiene la imagen en formato GIF.
Nota: el formato GIF no puede tener más de 256 colores. Si la imagen PICT original contiene más colores, algunos podrían perderse. El comando reduce el número de colores de acuerdo a la paleta del sistema. El GIF generado es de Tipo 87a (opaco) y normal (no entrelazado).
Luego puede guardar la imagen ubicada en blobGIF en un archivo utilizando el comando Windows Ctrl down o incluso puede publicarla en la Web.
Si la conversión fue exitosa, la variable sistema OK toma el valor 1. De lo contrario, será igual a 0.
Asumamos que quiere generar una imagen GIF mostrando un contador de conexiones. En librería de imágenes de la base, coloque todos los números como imágenes:
En el Método base On Web Connection, usted escribe el siguiente código:
If(Web Context)
...
Else
C_BLOB($blob)
Case of
...
:($1="/4dcgi/contador") `Generación del contador GIF
`Cuando 4D detecta este URL mientras envía la página estática
$blob:=gifcontador(◊nbHits) `Calcula la imagen GIF
`La variable ◊nbHits contiene el número de conexiones
WEB SEND BLOB($blob;"image/gif")
`Inserción de la imagen y envío al navegador
...
End case
End if
Este es el método gifcontador:
C_LONGINT($1)
C_PICTURE($img)
C_BLOB($0)
If($1=0)
$ndigitos:=1
Else
$ndigitos:=1+Length(String($1))
End if
If($ndigitos<5)
$ndigits:=5
End if
$div:=10^($ndigitos-1)
For($i;1;$ndigitos)
$ref:=Int($1/$div)%10
GET PICTURE FROM LIBRARY($ref+1000;imagen)
$img:=$img+imagen
$div:=$div/10
End for
PICTURE TO GIF($img;$0)
Durante el envío de la página al navegador web, 4D muestra una imagen GIF como la siguiente imagen:
Si la conversión se realiza correctamente, la variable sistema OK toma el valor 1. De lo contrario, toma el valor 0.
Producto: 4D
Tema: Imágenes
Número
671
Modificado: 4D v6.7
Manual de lenguaje 4D ( 4D v16)
Manual de lenguaje 4D ( 4D v16.1)
Manual de lenguaje 4D ( 4D v16.2)
Manual de lenguaje 4D ( 4D v16.3)