ตัวอย่างของบทความนี้อธิบายวิธีการแปลงกราฟิกรูปแบบ BMP เป็นกราฟิกรูปแบบ JPG ใน Delphi แบ่งปันกับทุกคนสำหรับการอ้างอิงของคุณ วิธีการดำเนินการเฉพาะมีดังนี้:
คัดลอกรหัสรหัสดังต่อไปนี้:
ขั้นตอนการแปลง BMPtoJPG (SFileName, DFileName:string);
วาร์
เจ:TJpegรูปภาพ;
ฉัน:TBitmap;
S,D:สตริง;
เริ่ม
s:=SFileName;
d:=DFileName;
J:=TJpegImage.สร้าง;
I:=TBitmap.Create;
I.LoadFromFile(s);
เจ.มอบหมาย(I);
I.ฟรี;
d:=changefileext(d,'.jpg');
เจ.SaveToFile(d);
แอปพลิเคชัน กระบวนการข้อความ;
เจ.ฟรี;
จบ;
ฉันหวังว่าบทความนี้จะเป็นประโยชน์กับการเขียนโปรแกรม Delphi ของทุกคน