AP Is Picture Deprecated

4D Pack v15 R2


AP Is Picture Deprecated ( ptrPict ) -> Résultat

Paramètre	Type	Description
ptrPict	Pointeur	Pointeur vers le champ ou la variable image à tester
Résultat	Entier long	0 = format valide, 1 = format obsolète (PICT)

Description

La commande AP Is Picture Deprecated retourne 1 si l'image référencée par le paramètre ptrPict contient le format PICT (obsolète) et 0 dans le cas contraire. Une image sera considérée comme obsolète si elle est au format PICT ou si elle contient le format PICT (dans le contexte d'images insérées par l'intermédiaire de copier-coller, plusieurs formats peuvent être encapsulés au sein de l'image).

Passez dans ptrPict un pointeur vers le champ image, la variable image ou l'élément de tableau image 4D que vous souhaitez tester.

Cette commande est destinée à préparer l'évolution de vos applications vers les prochaines versions majeures de 4D. En effet, le format "PICT" Mac a été déclaré obsolète par Apple depuis de nombreuses versions de Mac OS (voir la description du format PICT sur Wikipedia). Il est conservé dans 4D par soucis de compatibilité mais ne sera plus pris en charge compter de 4D v14. Pour anticiper la migration de vos applications, vous pouvez dès à présent utiliser cette commande afin de détecter toutes les images PICT de votre base et les convertir en un format natif (par exemple PNG) à l'aide de la commande CONVERT PICTURE. A noter qu'une fois convertie dans un format, l'image ne contient plus que ce format.

Note : La suppression du format PICT nécessite une analyse préalable dans le cas d'images destinées à l'impression. Le format PICT étant un format vectoriel, il peut être utilisé en particulier sous Windows pour l'impression, lorsqu'il est présent. Dans ce contexte, il est alors préférable de convertir les images PICT vers un format vectoriel, par exemple EMF.

Exemple

Vous souhaitez tester et convertir si nécessaire toutes les images de la bibliothèque :

 C_LONGINT($vlImage;$vlNbImages;$vlRefImage;$vltotal)

 C_TEXT($vsNomImage)

 C_POINTER($vPointeur)

 C_PICTURE($vgImage)

 ARRAY TEXT($asNomImage;0)

 ARRAY LONGINT($alRefImage;0)

 

 $vltotal:=0

 PICTURE LIBRARY LIST($alRefImage;$asNomImage)

 $vlNbImages:=Size of array($alRefImage)

 If($vlNbImages>0)

    For($vlImage;1;$vlNbImages)  // pour chaque image

       $vlRefImage:=$alRefImage{$vlImage}

       $vsNomImage:=$asNomImage{$vlImage}

       GET PICTURE FROM LIBRARY($alRefImage{$vlImage};$vgImage)

       $vPointeur:=->$vgImage  // passage d''un pointeur

       $isobs:=($vPointeur)

       If($isobs=1)  // si format obsolète

          CONVERT PICTURE($vPointeur->;".PNG")  // conversion en png

            // et stockage dans la bibliothèque

          SET PICTURE TO LIBRARY($vPointeur->;$vlRefImage;$vsNomImage)

          $vltotal:=$vltotal+1

       End if

    End for

    ALERT(String($vltotal)+" image(s) sur "+Chaine($vlNbImages)+" ont été converties en png.")

 Else

    ALERT("La bibliothèque d'images est vide.")

 End if

Voir aussi