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

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

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

مشكور على الرد الذي تفضلت به