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

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

شاطر | 
 

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



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

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

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

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