تقنيات تحويل تنسيق الصور الشائعة
المؤلف:lyboy99
البريد الإلكتروني: [email protected]
رابط: http://hnh.126.com
تزويدك بالعديد من طرق تحويل تنسيق الصور شائعة الاستخدام ووظائف التحويل الخاصة بها
نأمل أن يساعدك
1. تحويل أيقونة ICO إلى تنسيق BMP
2. تحويل صورة بتنسيق 32x32 BMP إلى تنسيق ICO
3. تحويل تنسيق الملف BMP->JPEG
4.JPEG إلى وظيفة BMP
5.Bmp إلى وظيفة تنسيق ملف JPEG
-------------------------------------------------- -------------------------------------------------- --------------------------
1. اللغة الصينية: تحويل أيقونة ICO إلى تنسيق BMP
الإنجليزية :(التحويل من ICO إلى BMP)
-------------------------------------------------- ------
فار
أيقونة: TIcon؛
الصورة النقطية: TBitmap؛
يبدأ
أيقونة := TIcon.Create;
الصورة النقطية := 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. اللغة الصينية: تحويل صورة بتنسيق 32x32 BMP إلى تنسيق ICO
الإنجليزية: صور نقطية 32 × 32 بت إلى ICO
----------------------------------
الوحدة الرئيسية؛
واجهة
الاستخدامات
ويندوز، الرسائل، SysUtils، الطبقات، الرسومات، الضوابط،
النماذج، ومربعات الحوار، وExtCtrls، وStdCtrls؛
يكتب
TForm1 = الفئة (TForm)
Button1: TButton؛
Image1: تيماج؛
Image2: تيماج؛
الإجراء Button1Click(Sender: TObject);
الإجراء FormCreate(Sender: TObject);
خاص
{تصريحات خاصة}
عام
{التصريحات العامة}
نهاية؛
فار
Form1: TForm1؛
تطبيق
{$R *.DFM}
الإجراء TForm1.Button1Click(Sender: TObject);
فار winDC, srcdc, destdc: HDC;
الصورة النقطية القديمة: HBitmap؛
iinfo:TICONINFO;
يبدأ
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);
حذفDC(srcDC);
حذفDC(WinDC);
image2.Picture.Bitmap.savetofile(ExtractFilePath(application.ExeName)
+ 'myfile.bmp');
نهاية؛
الإجراء TForm1.FormCreate(Sender: TObject);
يبدأ
image1.picture.icon.loadfromfile('c:myicon.ico');
نهاية؛
نهاية.
================================================================================================== ===============
3. اللغة الصينية: تحويل تنسيق الملف BMP->JPEG
Englsh: تحويل الصورة النقطية إلى تنسيق ملف JPEG
-------------------------------------------------- ----------------
فار
MyJpeg: TJpegImage;
Image1: تيماج؛
يبدأ
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 source,dest:string);
فار
MyJpeg: TJpegImage;
bmp: خريطة نقطية؛
يبدأ
bmp:=tbitmap.Create;
MyJpeg:= TJpegImage.Create;
يحاول
myjpeg.LoadFromFile(source);
bmp.Assign(myjpeg);
bmp.SaveToFile(dest);
أخيراً
bmp.free;
myjpeg.Free;
نهاية؛
نهاية؛
-------------------------------------------------- --------
5.Bmp إلى وظيفة تنسيق ملف JPEG
-------------------------------------------------- --------
الإجراء Bmp2Jpg(مصدر const,dest:string;مقياس const: بايت);
فار
MyJpeg: TJpegImage;
Image1: تيماج؛
يبدأ
Image1:= TImage.Create(application);
MyJpeg:= TJpegImage.Create;
يحاول
Image1.Picture.Bitmap.LoadFromFile(source);
MyJpeg.Assign(Image1.Picture.Bitmap);
MyJpeg.CompressionQuality:=scale;
MyJpeg.Compress;
MyJpeg.SaveToFile(dest);
أخيراً
image1.free;
myjpeg.Free;
نهاية؛
نهاية؛
-------------------------------------------------- --------------------------