PICTURE 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

Descripción

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.

Ejemplo

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:

Variables y conjuntos del sistema

Si la conversión se realiza correctamente, la variable sistema OK toma el valor 1. De lo contrario, toma el valor 0.