4D Pack v14

AP Is Picture Deprecated

Página Inicial

 
4D Pack v14
AP Is Picture Deprecated

AP Is Picture Deprecated 


 

AP Is Picture Deprecated ( ptrPict ) -> Resultado 
Parâmetro Tipo   Descrição
ptrPict  Ponteiro in Ponteiro para o campo de imagem ou variável a testar
Resultado  Inteiro longo in 0 = formato válido, 1 = formato obsoleto (PICT)

O comando AP Is Picture Deprecated devolve 1 se a imagem referenciada pelo parâmetro ptrPict contém o formato PICT (obsoleto) PICT e 0 em caso contrário. Uma imagem será considerada obsoleta se está em formato PICT ou se contém o formato PICT (imagens inseridas por arrastar soltar podem incluir vários formatos). 

Em ptrPict, passe um ponteiro ao campo imagem, a variável imagem ou o elemento de array imagem 4D a provar. 

Este comando tem a intenção de preparar o desenvolvimento de suas aplicações para as próximas versões principais de 4D. Na verdade, o formato "PICT" Mac foi declarado obsoleto por Apple desde várias versões atrás de Mac OS (ver a descrição do formato PICT em Wikipedia). Se manteve em 4D por razões de compatibilidade, mas que já não é compatível a partir de 4D v14. Para se preparar para a migração de suas aplicações, pode começar a usar este comando com o fim de detectar todas as imagens PICT em sua base e converter elas a um formato nativo (por exemplo PNG) com ajuda do comando CONVERT PICTURE. Tenha em conta que uma vez convertidas a um formato, as imagens só contém este novo formato.

Nota: A eliminação do formato PICT requer de um análises prévio no caso das imagens destinadas a impressão. O formato PICT é um formato vetorial, pode ser utilizado em particular em Windows para impressão, quando está presente. Assim, neste contexto, é preferível converter as imagens PICT a outro formato vetorial, por exemplo EMF.

Exemplo  

Você quer provar e converter todas as imagens da livraria:

 C_LONGINT($vlPict;$vPictCount;$vPictRef;$vTotal)
 C_TEXT($vPictName)
 C_POINTER($vPointer)
 C_PICTURE($vpPict)
 ARRAY TEXT($arrPictNames;0)
 ARRAY LONGINT($arrPictRefs;0)
 
 $vTotal:=0
 PICTURE LIBRARY LIST($arrPictRefs;$arrPictNames)
 $vPictCount:=Size of array($arrPictRefs)
 If($vPictCount>0)
    For($vlPict;1;$vPictCount// para cada imagem
       $vPictRef:=$arrPictRefs{$vlPict}
       $vPictName:=$arrPictNames{$vlPict}
       GET PICTURE FROM LIBRARY($arrPictRefs{$vlPict};$vpPict)
       $vPointer:=->$vpPict  // pass a pointer
       $isObs:=AP Is Picture Deprecated($vPointer)
       If($isObs=1) // if format is obsolete
          CONVERT PICTURE($vPointer->;".PNG") // conversão a png
  // e guardar na livraria
          SET PICTURE TO LIBRARY($vPointer->;$vPictRef;$vPictName)
          $vTotal:=$vTotal+1
       End if
    End for
    ALERT(String($vTotal)+" picture(s) out of "+String($vPictCount)+" were converted to png.")
 Else
    ALERT("A livraria de imagens está vazia")
 End if

 
PROPRIEDADES 

Produto: 4D Pack
Tema: 4D_Pack : Picture Files
Número 61950

 
HISTÓRIA 

Criado por: 4D Pack v13.2

 
VER TAMBÉM 


 
PALAVRAS CHAVES 

PICT

 
ARTICLE USAGE

4D Pack ( 4D Pack v13.2)
4D Pack ( 4D Pack v14 R2)
4D Pack ( 4D Pack v14)
4D Pack ( 4D Pack v14 R3)
4D Pack ( 4D Pack v14 R4)