تقنية تحويل تنسيق الصور الشائعة في دلفي

تقنيات تحويل تنسيق الصور الشائعة

المؤلف: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;

نهاية؛

نهاية؛

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