كيف استفيد من هذا الكود \تحويل الصورة من bmp إلى jpg

[عبد الهادي]

تحويل الصورة من BMP إلى JPG :
أضف الوحدة JPEG :
uses JPEG
ثم ضع هذا الكود في المكان المناسب

كود :

var jpg:TJPEGImage; begin jpg:=TJPEGImage.Create; with jpg do begin Assign(Image1.Picture.Bitmap); SaveToFile('my jpeg.jpg'); end; end;

[King SofT]

السلام عليكم

عدل كما في الكود :

كود :

SaveToFile('c:\my jpeg.jpg');

تستطيع تغيير المسار كما شئت