PICTURE TO GIF

versión 6.7 (Modificado)

PICTURE TO GIF (imag; blobGIF)

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.

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: