CONVERTISSEUR D'IMAGES (BMP-JPEG-GIF-PNG)

Commentaire de pepitto le 10/01/2006 22:38:37

il est vrai que la librairie "GrapicEx" gères beaucoups de formats (33 exactement) mais elle ne permet que de lire, pas de sauvegarder. Merci quand même pour l'idée.
Par contre je peux l'utiliser pour convertir les fichiers reconnus par la librairie GraphicEx dans les formats que je peux enregistrer.

Commentaire de f0xi le 15/01/2006 00:34:00 administrateur CS

Tbitmap, TJpegImage et les autres etant des derivés de TGraphic (logiquement et au moins vrai pour TBitmap et TJpegImage) tu pourrais remplacer toute les fonction de convertion par cela :

function ConvertImgTo(var SrcObj,DestObj : TGraphic; const Src,Dest : string) : boolean;
begin
  result := false;
  SrcObj.LoadFromFile(Src);
  DestObj.Assign(SrcObj);
  DestObj.SaveToFile(Dest);
  result := not result;
end;

bien sur, cela necessite de créer les variables B,J,G et P avant l'apel a la convertion et les liberer par la suite ...

exemple :

try
  B := TBitmap.Create;
  J := TJpegImage.Create;
  G := TGifImage.Create;
  P := TPngObject.Create;

  case RadioGroup1.ItemIndex of
    1 : ConvertImgTo(B,J,S,D);
    2 : ConvertImgTo(B,G,S,D);
    3 : ConvertImgTo(B,P,S,D);
    4 : ConvertImgTo(J,B,S,D);
    ...
  end;
Finaly
  B.Free;
  J.Free;
  G.Free;
  P.Free;
end;

l'instance des objets ne prendras pas beaucoup de place en memoire, du moment qu'il ne recoivent pas de données ... et vus qu'il sont liberer ensuite ... ça ne pose aucun probleme.
en tout cas, cela raccourcirais beaucoup le programme.

Commentaire de noussaier le 07/11/2008 11:40:43

merci beaucoup