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

Signaler
Messages postés
3834
Date d'inscription
dimanche 12 décembre 2004
Statut
Modérateur
Dernière intervention
20 octobre 2021
-
Messages postés
1
Date d'inscription
mercredi 2 septembre 2009
Statut
Membre
Dernière intervention
29 janvier 2010
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/35484-convertisseur-d-images-bmp-jpeg-gif-png

Messages postés
1
Date d'inscription
mercredi 2 septembre 2009
Statut
Membre
Dernière intervention
29 janvier 2010

Code source il faudrait peut être dire que ce logiciel est payant au bout de quelques utilisations il y a un logo merci de préciser si c'est des logiciels gratuits ou payants
Messages postés
1
Date d'inscription
vendredi 7 novembre 2008
Statut
Membre
Dernière intervention
7 novembre 2008

merci beaucoup
Messages postés
1
Date d'inscription
vendredi 15 décembre 2006
Statut
Membre
Dernière intervention
15 décembre 2006

^^
Messages postés
4202
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
13 juin 2020
37
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.
Afficher les 7 commentaires