Technologies courantes de conversion de format d'image
Auteur:lyboy99
Courriel : [email protected]
URL : http://hnh.126.com
Vous fournir plusieurs méthodes de conversion de format d'image couramment utilisées et leurs fonctions de conversion
J'espère que ça t'aide
1. Convertir l'icône ICO au format BMP
2. Convertir l'image au format 32x32 BMP au format ICO
3. Convertir le format de fichier BMP->JPEG
4. Fonction JPEG vers BMP
5. Fonction de format de fichier Bmp vers JPEG
-------------------------------------------------- -------------------------------------------------- --------------------------
1.Chinois : conversion des icônes ICO au format BMP
Anglais :(Conversion d'ICO en BMP)
-------------------------------------------------- ------
var
Icône : TIcon ;
Bitmap : TBitmap ;
commencer
Icône := TIcon.Create;
Bitmap := TBitmap.Create;
Icon.LoadFromFile('c:picture.ico');
Bitmap.Width := Icône.Width;
Bitmap.Hauteur := Icône.Hauteur ;
Bitmap.Canvas.Draw(0, 0, Icône);
Bitmap.SaveToFile('c:picture.bmp');
Icône.Gratuit;
Bitmap.Gratuit ;
===================================
2.Chinois : convertir l'image au format BMP 32 x 32 au format ICO
Anglais : Bitmaps 32 x 32 bits vers les ICO
----------------------------------
unité principale ;
interface
utilise
Windows, messages, SysUtils, classes, graphiques, contrôles,
Formulaires, boîtes de dialogue, ExtCtrls, StdCtrls ;
taper
TForm1 = classe(TForm)
Bouton1 : TButton ;
Image1 : TImage ;
Image2 : TImage ;
PProcédure Button1Click (Expéditeur : TObject );
procédure FormCreate(Expéditeur : TObject);
privé
{Déclarations privées}
publique
{Déclarations publiques}
fin;
var
Formulaire1 : TForm1 ;
mise en œuvre
{$R *.DFM}
procédure TForm1.Button1Click(Expéditeur : TObject);
var winDC, srcdc, destdc : HDC ;
vieuxBitmap : HBitmap;
iinfo:TICONINFO;
commencer
GetIconInfo(Image1.Picture.Icon.Handle, iinfo);
WinDC := getDC(poignée);
srcDC := CreateCompatibleDC(WinDC);
destDC := CreateCompatibleDC(WinDC);
oldBitmap := SelectObject(destDC, iinfo.hbmColor);
oldBitmap := SelectObject(srcDC, iinfo.hbmMask);
BitBlt(destdc, 0, 0, Image1.picture.icon.width,
Image1.image.icône.hauteur,
srcdc, 0, 0, SRCPAINT);
Image2.picture.bitmap.handle := SelectObject(destDC, oldBitmap);
SupprimerDC(destDC);
SupprimerDC(srcDC);
Supprimer DC (WinDC);
image2.Picture.Bitmap.savetofile(ExtractFilePath(application.ExeName)
+ 'monfichier.bmp');
fin;
procédure TForm1.FormCreate(Expéditeur : TObject);
commencer
image1.picture.icon.loadfromfile('c:myicon.ico');
fin;
fin.
=================================================== ================
3. Chinois : Convertir le format de fichier BMP->JPEG
Anglais : convertir le bitmap au format de fichier JPEG
-------------------------------------------------- ----------------
var
MonJpeg : TJpegImage ;
Image1 : TImage ;
commencer
Image1 := TImage.Create ;
MonJpeg := TJpegImage.Create ;
Image1.LoadFromFile('TestImage.BMP'); // Lire le fichier Bitmap
MonJpeg.Assign(Image1.Picture.Bitmap);
objet
MyJpeg.SaveToFile('MyJPEGImage.JPG'); //Enregistrer JPEG
fin;
-------------------------------------------------- -------------------
4. Fonction JPEG vers BMP
procédure Jpg2Bmp(const source,dest:string);
var
MonJpeg : TJpegImage ;
bmp : Tbitmap ;
commencer
bmp:=tbitmap.Create;
MonJpeg := TJpegImage.Create ;
essayer
monjpeg.LoadFromFile(source);
bmp.Assign(monjpeg);
bmp.SaveToFile(dest);
enfin
bmp.free;
monjpeg.Gratuit ;
fin;
fin;
-------------------------------------------------- ---------
5. Fonction de format de fichier Bmp vers JPEG
-------------------------------------------------- ---------
procédure Bmp2Jpg(const source,dest:string;const scale:byte);
var
MonJpeg : TJpegImage ;
Image1 : TImage ;
commencer
Image1:= TImage.Create(application);
MonJpeg := TJpegImage.Create ;
essayer
Image1.Picture.Bitmap.LoadFromFile(source);
MonJpeg.Assign(Image1.Picture.Bitmap);
MyJpeg.CompressionQuality:=scale;
MonJpeg.Compress ;
MyJpeg.SaveToFile(dest);
enfin
image1.free;
monjpeg.Gratuit ;
fin;
fin;
-------------------------------------------------- --------------------------