تحويــــل من الصور bmp الى الصور jpg والعـكـــس

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

تحويــــل من الصور bmp الى الصور jpg والعـكـــس

مُساهمة  alla23 في الثلاثاء أكتوبر 25, 2016 9:45 am

بسم الله الرحمن الرحيم
الصلاة السلام على رســــول الله

تحويــــل من الصور bmp الى الصور jpg والعـكـــس .



uses jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var ImageJPEG : TJPEGImage;
 ImageBMP : TBitmap;

begin
 if OpenPictureDialog1.Execute then
 begin
 ImageBMP := TBitmap.Create;
 try
 ImageBMP.LoadFromFile(OpenPictureDialog1.FileName);
 ImageJPEG := TJPEGImage.Create;
 try
 ImageJPEG.CompressionQuality:=50;
 ImageJPEG.Assign(ImageBMP);
 if SavePictureDialog1.Execute then
 ImageJPEG.SaveToFile(SavePictureDialog1.FileName);
 finally
 ImageJPEG.Free;
 end;
 finally
 ImageBMP.Free;
 end;
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 ImageJPEG : TJPEGImage;
 ImageBMP : TBitmap;

begin
 if OpenPictureDialog1.Execute then
 begin
 ImageJPEG := TJPEGImage.Create;
 try
 ImageJPEG.LoadFromFile(OpenPictureDialog1.FileName);
 ImageBMP := TBitmap.Create;
 try
 ImageBMP.Width := ImageJPEG.Width;
 ImageBMP.Height := ImageJPEG.Height;
 ImageBMP.Canvas.Draw(0,0,ImageJPEG);
 if SavePictureDialog1.Execute then
 ImageBMP.SaveToFile(SavePictureDialog1.FileName);
 finally
 ImageBMP.Free;
 end;
 finally
 ImageJPEG.Free;
 end;
 end;
end

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى