เทคโนโลยีการแปลงรูปแบบภาพทั่วไป
ผู้แต่ง:lyboy99
อีเมล์:[email protected]
URL: http://hnh.126.com
จัดเตรียมวิธีการแปลงรูปแบบภาพที่ใช้กันทั่วไปหลายวิธีและฟังก์ชันการแปลง
หวังว่ามันจะช่วยคุณได้
1. แปลงไอคอน ICO เป็นรูปแบบ BMP
2. แปลงรูปภาพในรูปแบบ BMP 32x32 BMP เป็นรูปแบบ ICO
3. แปลงรูปแบบไฟล์ BMP->JPEG
4.ฟังก์ชั่น JPEG เป็น BMP
5.ฟังก์ชันรูปแบบไฟล์ Bmp เป็น JPEG
-------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------------------------- -------------------------------
1. จีน: การแปลงไอคอน ICO เป็นรูปแบบ BMP
อังกฤษ :(การแปลงจาก ICO เป็น BMP)
-------------------------------------------------- -------------------------------------------------- ------
var
ไอคอน: TIcon;
บิตแมป: TBitmap;
เริ่ม
ไอคอน := TIcon สร้าง;
บิตแมป := TBitmap.Create;
Icon.LoadFromFile('c:picture.ico');
Bitmap.Width := ไอคอนความกว้าง;
Bitmap.Height := Icon.Height;
Bitmap.Canvas.Draw(0, 0, ไอคอน );
Bitmap.SaveToFile('c:picture.bmp');
ไอคอนฟรี;
บิตแมปฟรี;
-
2.ภาษาจีน: แปลงรูปภาพรูปแบบ 32x32 BMP เป็นรูปแบบ ICO
อังกฤษ : บิตแมป 32x32 บิตเป็น ICO
-
หน่วยหลัก;
อินเตอร์เฟซ
การใช้งาน
Windows, ข้อความ, SysUtils, คลาส, กราฟิก, การควบคุม,
แบบฟอร์ม, กล่องโต้ตอบ, ExtCtrls, StdCtrls;
พิมพ์
TForm1 = คลาส (TForm)
Button1: T ปุ่ม;
ภาพที่ 1: TImage;
ภาพที่ 2: TImage;
ขั้นตอน Button1Click (ผู้ส่ง: TObject);
ขั้นตอน FormCreate (ผู้ส่ง: TObject);
ส่วนตัว
{ประกาศส่วนตัว}
สาธารณะ
{ประกาศสาธารณะ}
จบ;
var
แบบฟอร์ม 1: TForm1;
การดำเนินการ
{$R *.DFM}
ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);
เป็น winDC, srcdc, destdc: HDC;
oldBitmap : HBitmap;
iinfo:TICONINFO;
เริ่ม
GetIconInfo (Image1.Picture.Icon.Handle, iinfo);
WinDC := getDC(ตัวจัดการ);
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);
ลบDC(WinDC);
image2.Picture.Bitmap.savetofile (ExtractFilePath (application.ExeName)
+ 'myfile.bmp');
จบ;
ขั้นตอน TForm1.FormCreate (ผู้ส่ง: TObject);
เริ่ม
image1.picture.icon.loadfromfile('c:myicon.ico');
จบ;
จบ.
================================================== ================
3. จีน: แปลงรูปแบบไฟล์ BMP-> JPEG
ภาษาไทย:แปลงบิตแมปเป็นรูปแบบไฟล์ JPEG
-------------------------------------------------- -------------------------------------------------- ----------------
var
MyJpeg: TJpegImage;
ภาพที่ 1: TImage;
เริ่ม
Image1:= TImage.Create;
MyJpeg:= TJpegImage.Create;
Image1.LoadFromFile('TestImage.BMP'); // อ่านไฟล์บิตแมป
MyJpeg.Assign(Image1.Picture.Bitmap);
วัตถุ
MyJpeg.SaveToFile('MyJPEGImage.JPG'); //บันทึก JPEG
จบ;
-------------------------------------------------- -------------------------------------------------- ------------------
4.ฟังก์ชั่น JPEG เป็น BMP
ขั้นตอน Jpg2Bmp (แหล่ง const, ปลายทาง: สตริง);
var
MyJpeg: TJpegImage;
bmp: บิตแมป;
เริ่ม
bmp:=tbitmap.สร้าง;
MyJpeg:= TJpegImage.Create;
พยายาม
myjpeg.LoadFromFile(ที่มา);
bmp.มอบหมาย(myjpeg);
bmp.SaveToFile(ปลายทาง);
ในที่สุด
bmp.free;
myjpeg.ฟรี;
จบ;
จบ;
-------------------------------------------------- -------------------------------------------------- --------
5.ฟังก์ชันรูปแบบไฟล์ Bmp เป็น JPEG
-------------------------------------------------- -------------------------------------------------- --------
ขั้นตอน Bmp2Jpg (const source,dest:string;const scale:byte);
var
MyJpeg: TJpegImage;
ภาพที่ 1: TImage;
เริ่ม
Image1:= TImage.Create (แอปพลิเคชัน);
MyJpeg:= TJpegImage.Create;
พยายาม
Image1.Picture.Bitmap.LoadFromFile (ที่มา);
MyJpeg.Assign(Image1.Picture.Bitmap);
MyJpeg.CompressionQuality:=scale;
MyJpeg.บีบอัด;
MyJpeg.SaveToFile(ปลายทาง);
ในที่สุด
image1.ฟรี;
myjpeg.ฟรี;
จบ;
จบ;
-------------------------------------------------- -------------------------------------------------- -------------------------------