Teknologi konversi format gambar umum Delphi

Teknologi konversi format gambar umum

Pengarang:lyboy99

email:[email protected]

url: http://hnh.126.com

Memberi Anda beberapa metode konversi format gambar yang umum digunakan dan fungsi konversinya

Semoga ini bisa membantu Anda

1. Ubah ikon ICO ke format BMP

2. Konversi gambar format BMP 32x32 ke format ICO

3. Konversi format file BMP->JPEG

4.JPEG ke fungsi BMP

5. Fungsi format file Bmp ke JPEG

--------------------------------------------------- --------------------------------------------------- --------------------------

1.Cina: konversi ikon ICO ke format BMP

Bahasa Indonesia :(Konversi dari ICO ke BMP)

--------------------------------------------------- ------

var

Ikon: TIkon;

Bitmap: TBitmap;

mulai

Ikon := TIcon.Buat;

Bitmap := TBitmap.Buat;

Ikon.LoadFromFile('c:picture.ico');

Bitmap.Lebar := Ikon.Lebar;

Bitmap.Tinggi := Ikon.Tinggi;

Bitmap.Canvas.Draw(0, 0, Ikon );

Bitmap.SaveToFile('c:gambar.bmp');

Ikon.Gratis;

Bitmap.Gratis;

====================

2.Cina: Konversi gambar format BMP 32x32 ke format ICO

Bahasa Inggris: Bitmap 32x32 bit ke ICO

-----------------------------------

satuan utama;

antarmuka

kegunaan

Windows, Pesan, SysUtils, Kelas, Grafik, Kontrol,

Formulir, Dialog, ExtCtrls, StdCtrls;

jenis

TForm1 = kelas(TForm)

Tombol1: Tombol T;

Gambar1: Gambar;

Gambar2: Gambar;

Tombol Prosedur1Klik(Pengirim: TObject);

prosedur FormCreate(Pengirim: TObject);

pribadi

{Deklarasi pribadi}

publik

{Pernyataan publik}

akhir;

var

Formulir1: TForm1;

pelaksanaan

{$R *.DFM}

prosedur TForm1.Button1Click(Pengirim: TObject);

var winDC, srcdc, tujuandc: HDC;

bitmap lama : HBitmap;

iinfo:TICONINFO;

mulai

GetIconInfo(Gambar1.Gambar.Ikon.Handle, iinfo);

WinDC := getDC(pegangan);

srcDC := BuatKompatibelDC(WinDC);

destDC := BuatDC yang Kompatibel(WinDC);

oldBitmap := SelectObject(destDC, iinfo.hbmColor);

oldBitmap := SelectObject(srcDC, iinfo.hbmMask);

BitBlt(dc tujuan, 0, 0, Gambar1.gambar.ikon.lebar,

Gambar1.gambar.ikon.tinggi,

srcdc, 0, 0, SRCPAINT);

Gambar2.gambar.bitmap.handle := SelectObject(destDC, oldBitmap);

HapusDC(DC tujuan);

HapusDC(srcDC);

HapusDC(WinDC);

gambar2.Gambar.Bitmap.savetofile(ExtractFilePath(application.ExeName)

+ 'file saya.bmp');

akhir;

prosedur TForm1.FormCreate(Pengirim: TObject);

mulai

image1.picture.icon.loadfromfile('c:myicon.ico');

akhir;

akhir.

==================== ================

3. Cina: Konversi format file BMP->JPEG

Bahasa Indonesia: ubah bitmap menjadi format file JPEG

--------------------------------------------------- ----------------

var

MyJpeg: TJpegImage;

Gambar1: Gambar;

mulai

Gambar1:= Gambar.Buat;

MyJpeg:= TJpegImage.Buat;

Image1.LoadFromFile('TestImage.BMP'); // Membaca file Bitmap

MyJpeg.Assign(Gambar1.Gambar.Bitmap);

obyek

MyJpeg.SaveToFile('MyJPEGImage.JPG'); //Simpan JPEG

akhir;

--------------------------------------------------- ------------------------------

4.JPEG ke fungsi BMP

prosedur Jpg2Bmp(sumber const, tujuan: string);

var

MyJpeg: TJpegImage;

bmp: peta bit;

mulai

bmp:=tbitmap.Buat;

MyJpeg:= TJpegImage.Buat;

mencoba

myjpeg.LoadFromFile(sumber);

bmp.Assign(myjpeg);

bmp.SaveToFile(tujuan);

Akhirnya

bmp.gratis;

myjpeg.Gratis;

akhir;

akhir;

--------------------------------------------------- --------

5. Fungsi format file Bmp ke JPEG

--------------------------------------------------- --------

prosedur Bmp2Jpg(sumber const,dest:string;skala const:byte);

var

MyJpeg: TJpegImage;

Gambar1: Gambar;

mulai

Gambar1:= TImage.Create(aplikasi);

MyJpeg:= TJpegImage.Buat;

mencoba

Gambar1.Gambar.Bitmap.LoadFromFile(sumber);

MyJpeg.Assign(Gambar1.Gambar.Bitmap);

MyJpeg.CompressionQuality:=skala;

MyJpeg.Kompres;

MyJpeg.SaveToFile(tujuan);

Akhirnya

gambar1.gratis;

myjpeg.Gratis;

akhir;

akhir;

--------------------------------------------------- --------------------------