دلفي تعليم
مرحبا بكم ايها الزئر أو الزائرة الكريمين

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

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

تحويــــل من الصور 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


عدل سابقا من قبل mah11 في 24/5/2015, 12:00 pm عدل 1 مرات (السبب : تصحيح بعض المعلومات)

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

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

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

مُساهمة  sad13 في 7/1/2014, 7:43 pm


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


sad13
مبرمج

عدد المساهمات : 53
تاريخ التسجيل : 04/01/2014

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

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

مُساهمة  sdk11 في 13/6/2015, 9:10 am

بارك الله فيك

sdk11
مبرمج مجتهد

عدد المساهمات : 108
تاريخ التسجيل : 19/09/2014

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

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


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