Discussion :

[zidenne]

salut:
es que s'est possible de changer l'extention d'une image .bmp ou n'importe qu'elle type en .jpg
j'utilise le Delphi 7.
merci.

[lapec_and_cie]

Salut zidenne,

Pour convertir un bmp en jpg utilise le code ci dessous :
Déclare les variables suivantes:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
var Bitmap : TBitmap;
var JpegImg :TJpegImage; 
var fichierBMP, fichierJPG : string;

et tapes le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile(fichierBMP); //si tu le charges préalablement
JpegImg := TJpegImage.Create;
JpegImg.SaveToFile(fichierJPG);
JpegImg.Free;
Bitmap.Free;

N'oublie pas de mentionner l'unité Jpeg dans la section uses...

Et le tour est joué!!!

Pour convertir d'autres types en jpg il te faudra une bibliothèque plus spécialisé comme la gfl...

A plus et bonne prog

Christopher[/code]

[zidenne]

salut Lapec_and_cie:
j'ai utiliser votre programme mais quand j'ai pas pu déclarer le JPEG dans les uses car il m'affiche toujour un méssage d'erreur (il n'accepte pas le JPEG)"file not found JEPG.dcu".
ou peut etre le problème.
merci

[Clandestino]

file not found JEPG.dcu

Le fichier à stipuler dans les uses est jpeg

Il est censé se trouver dans c:\program Files\Borland\Delphi7\Lib\

Vérifie l'orthographe de ta déclaration dans les uses et la présence de ce fichier dans le dit dossier. Normalement tu n'as pas à stipuler ce path dans les chemins de recherches car il devrait être par defaut pour ton Delphi...