يصف المثال الموجود في هذه المقالة كيفية تنفيذ دلفي لتحويل الرسومات بتنسيق BMP إلى رسومات بتنسيق JPG. شاركها مع الجميع لتكون مرجعا لك. طريقة التنفيذ المحددة هي كما يلي:
انسخ رمز الكود كما يلي:
الإجراء ConvertBMPtoJPG(SFileName,DFileName:string);
فار
J:TJpegImage;
أنا:TBitmap;
S، د: سلسلة؛
يبدأ
s:=SFileName;
d:=DFileName;
J:=TJpegImage.Create;
أنا:=TBitmap.Create;
I.LoadFromFile(s);
J.Assign(I);
أنا.مجاني؛
d:=changefileext(d,'.jpg');
J.SaveToFile(d);
Application.processmessages;
جي.فري؛
نهاية؛
آمل أن تكون هذه المقالة مفيدة لبرمجة دلفي للجميع.