منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: تحويــــل من الصور bmp الى الصور jpg والعـكـــس   الخميس أكتوبر 20, 2016 7:14 pm


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

تحويــــل من الصور 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
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
sabire



عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

مُساهمةموضوع: رد: تحويــــل من الصور bmp الى الصور jpg والعـكـــس   الإثنين أكتوبر 24, 2016 5:10 pm

مشكور على الرد الذي تفضلت به
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
تحويــــل من الصور bmp الى الصور jpg والعـكـــس
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: