PICTURE TO GIF

4D - Documentation   Français   English   German   Español   English   4D v11 SQL, Comandos por temas   4D v11 SQL, Lista alfabética de comandos   4D v11 SQL, Constantes por temas   Regresar   Anterior   Siguiente

versión 6.7 (Modificado)


PICTURE TO GIF (imag; blobGIF)

ParámetroTipoDescripción
imagImagenCampo o variable imagen
blobGIFBLOBBLOB 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 usted 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 BLOB TO DOCUMENT 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 usted 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 de 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 
            SEND HTML 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:


4D - Documentation   Français   English   German   Español   English   4D v11 SQL, Comandos por temas   4D v11 SQL, Lista alfabética de comandos   4D v11 SQL, Constantes por temas   Regresar   Anterior   Siguiente