02-04-2013, 04:00 PM
تحويل الصورة من BMP إلى JPG :
أضف الوحدة JPEG :
uses JPEG
ثم ضع هذا الكود في المكان المناسب
أضف الوحدة JPEG :
uses JPEG
ثم ضع هذا الكود في المكان المناسب
كود :
var jpg:TJPEGImage;
begin
jpg:=TJPEGImage.Create;
with jpg do begin
Assign(Image1.Picture.Bitmap);
SaveToFile('my jpeg.jpg');
end;
end;