Conversion PCT en JPEG

Bonjour
je ne sais pas si je dois poster ici ou dans “anciennes versions”.

j’ai une base v13 avec des images pict,
lors de la conversion en v14 ou v15, les images disparaissent
j’ai cherche avec la commande “convertir image” mais je n’y arrive pas

  • est il possible de convertir les images de pct à jpeg dans la v13 ?
  • lors d’un export de v13 vers v15 (.4ie) les images sont bien exportées mais pas importer dans v14. est il possible de convertir apres import ?

merci de votre aide

convertir les images de pct à jpeg dans la v13

http://doc.4d.com/4Dv16R5/4D/16-R5/CONVERTIR-IMAGE.301-3481786.fr.htmlCONVERTIR IMAGE> est disponible dans la v13.

mais il manque la possibilité de http://doc.4d.com/4Dv16R5/4D/16-R5/TRANSFORMER-IMAGE.301-3481787.fr.htmltransformer les parties blanches d’une image en parties transparentes>.

est il possible de convertir apres import

on doit activer http://doc.4d.com/4Dv16R5/4D/16-R5/FIXER-PARAMETRE-BASE.301-3481818.fr.htmlPrise en charge QuickTime (82)> depuis v14.

merci
cette réponse était super utile
j’ai activé quicktime dans la nouvelle base et en effet les images en pct s’affichent parfaitement

je cherche à faire un script (en v13) pour convertir toutes les images d’une base
mais seulement celles en pict

je n’arrive pas à utiliser la fonction : lire format image
l’idée est de faire un methode pour:
verifier si format de l’image est pict
si oui la convertir en jpeg
si non, passer à la suivante

merci mille fois de votre aide

une image peut contenir plusieurs formats

http://doc.4d.com/4Dv16/4D/16.3/LIRE-FORMATS-IMAGE.301-3651657.fr.htmlLIRE FORMATS IMAGE> est disponible dans v16

autre chose similaire:

https://github.com/miyako/4d-plugin-split-pictures

Bonjour,

voici le code issu de QS_Toolbox qui permet d’exporter les images. C’est fonctionnel en v15. A voir les commandes qui ne le sont pas en v13.
Si tu es sur un v15.3, les images sont encores accessibles.
Pour n’exporter que les PICT, à toi de faire le test de format

Patrick

Code :
C_TEXT:C284($MethodName_T)
$MethodName_T:=Current method name:C684

  // ===================== Declare Variables ==================================
  // method_parameters_declarations
  // --------------------------------------------------------------------------------
  // method_wide_constants_declarations
  // --------------------------------------------------------------------------------
  // local_variable_declarations

C_LONGINT:C283($Ndx;$SOA;$PictRef_L)
C_TEXT:C284($PictName_T)
C_PICTURE:C286($Pict_G)
C_POINTER:C301($Pict_P)
C_BOOLEAN:C305($Destroy;$toOverWrite)

// ====================== Initialize and Setup ================================

ARRAY LONGINT:C221($PictRef_aL;0)
ARRAY TEXT:C222($PictName_aT;0)
$Destroy:=False:C215
$toOverWrite:=True:C214

CONFIRM(“Do you want to clear all picture exported ?”)
si (ok=1)
$Destroy:=True:C214
Fin de si

PICTURE LIBRARY LIST:C564($PictRef_aL;$PictName_aT)
$SOA:=Size of array:C274($PictRef_aL)

// ======================== Method Actions ==================================

Si ($SOA>0)

  // request the path to create destination folder
  // {HostDatabase}/Ressources/QS_Toolbox_export_library

$path_t:=Get 4D folder:C485(Current resources folder:K5:16)+"QS_Toolbox_export_library"+Folder separator:K24:12

Si (Not:C34(Test path name:C476($path_t)=Is a folder:K24:2))
	CREATE FOLDER:C475($path_t;*)
Fin de si 

Boucle ($Ndx;1;$SOA)  // for each picture
	
	$PictRef_L:=$PictRef_aL{$Ndx}
	$PictName_T:=$PictName_aT{$Ndx}
	
	Si ($PictName_T#"")
		
		GET PICTURE FROM LIBRARY:C565($PictRef_aL{$Ndx};$Pict_G)
		$Pict_P:=->$Pict_G  // passage of a pointer
		$Filename:=$path_t+$PictName_T+".png"
		CONVERT PICTURE:C1002($Pict_G;".png")  // conversion to png
		TRANSFORM PICTURE:C988($Pict_G;Transparency:K61:11;0x00FFFFFF)
		
		Si ((Test path name:C476($Filename)=Is a document:K24:1) & (Not:C34($toOverWrite)))
			
			CONFIRM:C162("A picture file already exist.\nDo you want to overwrite Boucle all of them ?")
			
			Si (OK=0)  // clic on No
				$toOverWrite:=False:C215
			Fin de si 
			
		Fin de si 
		
		Si ($toOverWrite)
			WRITE PICTURE FILE:C680($Filename;$Pict_G;"PNGf")
		Fin de si 
		
		$Pict_G:=$Pict_G*0
		
	//	Si ((Get document size:C479($Filename)>0) & ($Destroy))
	//		REMOVE PICTURE FROM LIBRARY:C567($PictRef_L)
	//	Fin de si 
		
	Fin de si 
Fin de boucle 

SHOW ON DISK:C922($path_t)  // display the folder

Sinon

ALERT:C41("The picture library is already empty.")

Fin de si

merci pour le script
je cherche à afficher un champs dans lequel je stock le codec de l’image (jpeg, tiff, pict, etx.)
dans un formulaire
merci