Gängige Technologien zur Konvertierung von Bildformaten
Autor:lyboy99
E-Mail:[email protected]
URL: http://hnh.126.com
Stellen Sie mehrere häufig verwendete Methoden zur Konvertierung von Bildformaten und deren Konvertierungsfunktionen bereit
Ich hoffe, es hilft dir
1. Konvertieren Sie das ICO-Symbol in das BMP-Format
2. Konvertieren Sie ein Bild im 32x32-BMP-Format in das ICO-Format
3. Konvertieren Sie das BMP->JPEG-Dateiformat
4.JPEG-zu-BMP-Funktion
5. Bmp-zu-JPEG-Dateiformatfunktion
-------------------------------------------------- -------------------------------------------------- --------------------------
1.Chinesisch: Konvertierung von ICO-Symbolen in das BMP-Format
Englisch: (Konvertierung von ICO zu BMP)
-------------------------------------------------- ------
var
Symbol: TIcon;
Bitmap: TBitmap;
beginnen
Symbol := TIcon.Create;
Bitmap := TBitmap.Create;
Icon.LoadFromFile('c:picture.ico');
Bitmap.Width := Icon.Width;
Bitmap.Height := Icon.Height;
Bitmap.Canvas.Draw(0, 0, Icon);
Bitmap.SaveToFile('c:picture.bmp');
Icon.Free;
Bitmap.Free;
==================================
2.Chinesisch: Konvertieren Sie ein Bild im 32x32-BMP-Format in das ICO-Format
Englisch: 32x32-Bit-Bitmaps zu ICOs
----------------------------------
Haupteinheit;
Schnittstelle
verwendet
Windows, Nachrichten, SysUtils, Klassen, Grafiken, Steuerelemente,
Formulare, Dialoge, ExtCtrls, StdCtrls;
Typ
TForm1 = Klasse(TForm)
Button1: TButton;
Bild1: TImage;
Bild2: TImage;
PROcedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
Privat
{Private Erklärungen}
öffentlich
{Öffentliche Erklärungen}
Ende;
var
Form1: TForm1;
Durchführung
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var winDC, srcdc, destdc: HDC;
oldBitmap : HBitmap;
iinfo:TICONINFO;
beginnen
GetIconInfo(Image1.Picture.Icon.Handle, iinfo);
WinDC := getDC(handle);
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.picture.icon.height,
srcdc, 0, 0, SRCPAINT);
Image2.picture.bitmap.handle := SelectObject(destDC, oldBitmap);
DeleteDC(destDC);
DeleteDC(srcDC);
DeleteDC(WinDC);
image2.Picture.Bitmap.savetofile(ExtractFilePath(application.ExeName)
+ 'meinedatei.bmp');
Ende;
procedure TForm1.FormCreate(Sender: TObject);
beginnen
image1.picture.icon.loadfromfile('c:myicon.ico');
Ende;
Ende.
=============================================== ================
3. Chinesisch: BMP->JPEG-Dateiformat konvertieren
Englisch: Konvertieren Sie die Bitmap in ein JPEG-Dateiformat
-------------------------------------------------- ----------------
var
MyJpeg: TJpegImage;
Bild1: TImage;
beginnen
Image1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
Image1.LoadFromFile('TestImage.BMP'); // Bitmap-Datei lesen
MyJpeg.Assign(Image1.Picture.Bitmap);
Objekt
MyJpeg.SaveToFile('MyJPEGImage.JPG'); //JPEG speichern
Ende;
-------------------------------------------------- -------------------
4.JPEG-zu-BMP-Funktion
procedure Jpg2Bmp(const source,dest:string);
var
MyJpeg: TJpegImage;
bmp: Tbitmap;
beginnen
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
versuchen
myjpeg.LoadFromFile(source);
bmp.Assign(myjpeg);
bmp.SaveToFile(dest);
Endlich
bmp.free;
myjpeg.Free;
Ende;
Ende;
-------------------------------------------------- --------
5. Bmp-zu-JPEG-Dateiformatfunktion
-------------------------------------------------- --------
procedure Bmp2Jpg(const source,dest:string;const scale:byte);
var
MyJpeg: TJpegImage;
Bild1: TImage;
beginnen
Image1:= TImage.Create(application);
MyJpeg:= TJpegImage.Create;
versuchen
Image1.Picture.Bitmap.LoadFromFile(source);
MyJpeg.Assign(Image1.Picture.Bitmap);
MyJpeg.CompressionQuality:=scale;
MyJpeg.Compress;
MyJpeg.SaveToFile(dest);
Endlich
image1.free;
myjpeg.Free;
Ende;
Ende;
-------------------------------------------------- --------------------------