Convertisseur d'images (bmp-jpeg-gif-png)

Soyez le premier à donner votre avis sur cette source.

Vue 86 232 fois - Téléchargée 4 440 fois

Description

Petit outil pour convertir un ensembles d'images se trouvant dans un répertoire (et les sous répertoires) d'un format vers un autre.
Les formats reconnus sont : BMP - JPEG - GIF et PNG
utilise la librairie RX et PNGImage

quelques Truc utiles : utilisation de << Application.ProcessMessages >> et TSearchrec avec FindFirst - FindNext

Conclusion :


Merci au créateurs des sources suivants :

- La librairie RX http://delphi.developpez.com/freewares/RxLib/
- PngImage http://pngdelphi.sourceforge.net/

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

CptPingu
Messages postés
3797
Date d'inscription
dimanche 12 décembre 2004
Statut
Modérateur
Dernière intervention
8 novembre 2019
90 -
Essaie aussi la librairie "GaphicEx". Elle est vraiment pas mal et supporte de nombreux formats de fichiers.
cs_pepitto
Messages postés
25
Date d'inscription
jeudi 13 novembre 2003
Statut
Membre
Dernière intervention
25 juin 2008
-
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.
strobinateur
Messages postés
11
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
14 avril 2009
-
excusez mon ignorence complète lorsque j'essaie de compiler sa me dit:
[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.
f0xi
Messages postés
4200
Date d'inscription
samedi 16 octobre 2004
Statut
Modérateur
Dernière intervention
2 janvier 2019
26 -
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.
rootMobile
Messages postés
1
Date d'inscription
vendredi 15 décembre 2006
Statut
Membre
Dernière intervention
15 décembre 2006
-
^^

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.