PICTURE TO GIF

4D v16.3

PICTURE TO GIF


PICTURE TO GIF ( imagem ; blobGIF )

Parâmetro	Tipo	Descrição
imagem	Imagem	Campo ou variável de imagem
blobGIF	BLOB	BLOB que contém a imagem GIF

Descrição

O comando PICTURE TO GIF permite converter uma imagem PICT armazenada em uma variável ou num campo 4D em uma imagem GIF.

Em pict se passa uma variável ou um campo tipo imagem e no parâmetro blobGIF, um campo ou uma variável de tipo BLOB. Depois da execução do comando, blobGIF contém a imagem em formato GIF.

Nota: o formato GIF não pode ter mais de 256 cores. Se a imagem PICT original contiver mais cores, algumas poderiam ser perdidas. O comando reduz o número de cores de acordo a palheta do sistema. O GIF gerado é de Tipo 87a (opaco) e normal (não entrelaçado).

Depois pode guardar a imagem localizada em blobGIF em um arquivo utilizando o comando Windows Ctrl down ou inclusive pode publicá-la na Web.

Se a conversão foi exitosa, a variável sistema OK toma o valor 1. Do contrário, será igual a 0.

Exemplo

Imagine que queira gerar uma imagem GIF mostrando um contador de conexiones. Em librería de imagens do base, coloque todos os números como imagens:

No Método de banco de dados On Web Connection, você escreve o código a seguir:

 If(Web Context)

    ...

 Else

    C_BLOB($blob)

    Case of

          ...

       :($1="/4dcgi/contador") `Geração do contador GIF

  `Quando 4D detecta este URL enquanto envía a página estática

          $blob:=gifcontador(◊nbHits) `Calcula a imagem GIF

  `A variável ◊nbHits contém o número de conexões

          WEB SEND BLOB($blob;"image/gif")

  `Inserção da imagem e envío ao navegador

          ...

    End case

 End if

Este é o 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;imagem)

    $img:=$img+imagem

    $div:=$div/10

 End for

 

 PICTURE TO GIF($img;$0)

Durante o envio da página ao navegador web, 4D mostra uma imagem GIF como a imagem a seguir:

Variáveis e conjuntos do sistema

Se a conversão é realizada corretamente, a variável sistema OK toma o valor 1. Do contrário, toma o valor 0.