CONVERTISSEUR D'IMAGES (BMP-JPEG-GIF-PNG)
Utilisateur anonyme
-
10 janv. 2006 à 00:54
gege81400 Messages postés 1 Date d'inscription mercredi 2 septembre 2009 Statut Membre Dernière intervention 29 janvier 2010 - 29 janv. 2010 à 19:04
gege81400 Messages postés 1 Date d'inscription mercredi 2 septembre 2009 Statut Membre Dernière intervention 29 janvier 2010 - 29 janv. 2010 à 19:04
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
https://codes-sources.commentcamarche.net/source/35484-convertisseur-d-images-bmp-jpeg-gif-png
29 janv. 2010 à 19:04
7 nov. 2008 à 11:40
15 déc. 2006 à 02:50
15 janv. 2006 à 00:34
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.
12 janv. 2006 à 11:54
[Erreur fatale] Unit1.pas(20): Fichier non trouvé : 'Animate.dcu'
google ma rien répondu :(
merci de votre aide, j'espère poster au bon endroit c'est la 1er fois.
10 janv. 2006 à 22:38
Par contre je peux l'utiliser pour convertir les fichiers reconnus par la librairie GraphicEx dans les formats que je peux enregistrer.
10 janv. 2006 à 00:54