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

**mah11** 6/1/2014, 7:54 pm

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

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

الكود:: uses jpeg; // delph.forumalgerie.net procedure TForm1.Button1Click(Sender: TObject); // delph.forumalgerie.net var ImageJPEG : TJPEGImage; // delph.forumalgerie.net ImageBMP : TBitmap; // delph.forumalgerie.net begin if OpenPictureDialog1.Execute then begin ImageBMP := TBitmap.Create; // delph.forumalgerie.net try ImageBMP.LoadFromFile(OpenPictureDialog1.FileName); // delph.forumalgerie.net ImageJPEG := TJPEGImage.Create; // delph.forumalgerie.net try ImageJPEG.CompressionQuality:=50; // delph.forumalgerie.net ImageJPEG.Assign(ImageBMP); // delph.forumalgerie.net if SavePictureDialog1.Execute then ImageJPEG.SaveToFile(SavePictureDialog1.FileName); // delph.forumalgerie.net finally ImageJPEG.Free; // delph.forumalgerie.net end; // delph.forumalgerie.net finally ImageBMP.Free; // delph.forumalgerie.net end; // delph.forumalgerie.net end; // delph.forumalgerie.net end; // delph.forumalgerie.net

الكود:: procedure TForm1.Button2Click(Sender: TObject); // delph.forumalgerie.net var ImageJPEG : TJPEGImage; // delph.forumalgerie.net ImageBMP : TBitmap; // delph.forumalgerie.net begin if OpenPictureDialog1.Execute then begin ImageJPEG := TJPEGImage.Create; // delph.forumalgerie.net try ImageJPEG.LoadFromFile(OpenPictureDialog1.FileName); // delph.forumalgerie.net ImageBMP := TBitmap.Create; // delph.forumalgerie.net try ImageBMP.Width := ImageJPEG.Width; // delph.forumalgerie.net ImageBMP.Height := ImageJPEG.Height; // delph.forumalgerie.net ImageBMP.Canvas.Draw(0,0,ImageJPEG); // delph.forumalgerie.net if SavePictureDialog1.Execute then ImageBMP.SaveToFile(SavePictureDialog1.FileName); // delph.forumalgerie.net finally ImageBMP.Free; // delph.forumalgerie.net end; // delph.forumalgerie.net finally ImageJPEG.Free; // delph.forumalgerie.net end; // delph.forumalgerie.net end; // delph.forumalgerie.net end; // delph.forumalgerie.net

منتدى دلفي تعليم يرحب بكم
delph.forumalgerie.net

sad13 7/1/2014, 7:43 pm

بارك الله فبك على الموضوع

sdk11 13/6/2015, 9:10 am

بارك الله فيك

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