4D v14.3

PICTURE TO GIF

Página Inicial

 
4D v14.3
PICTURE TO GIF

PICTURE TO GIF 


 

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

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:

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

 
PROPRIEDADES 

Produto: 4D
Tema: Imagens
Número 671

Este comando modifica a variável sistema OK

 
HISTÓRIA 

Modificado: 4D v6.7

 
ARTICLE USAGE

Manual de linguagem 4D ( 4D v14 R3)
Manual de linguagem 4D ( 4D v14 R2)
Manual de linguagem 4D ( 4D v13.5)
Manual de linguagem 4D ( 4D v14.3)
Manual de linguagem 4D ( 4D v14 R4)

Inherited from : PICTURE TO GIF ( 4D v12.4)