AP Is Picture Deprecated

4D Pack v15 R2


AP Is Picture Deprecated ( ptrPict ) -> Resultado

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

Descrição

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

Ver também