Преобразование BMP в JPG

WinHack

Администратор
23 Фев 2015
2,664
1,913
bsfo.ru
Вы можете легко преобразовывать изображение из формата BMP в JPG.

Код:
function BMPtoJPG(
      var BMPpic, JPGpic: string):boolean;
      var Bitmap: TBitmap;
      JpegImg: TJpegImage;
begin
  Result:=False;
  Bitmap := TBitmap.Create;
  try
   Bitmap.LoadFromFile(BMPpic) ;
   JpegImg := TJpegImage.Create;
   try
    JpegImg.Assign(Bitmap) ;
    JpegImg.SaveToFile(JPGpic) ;
    Result:=True;
   finally
    JpegImg.Free
   end;
  finally
   Bitmap.Free
  end;
end;
Использование:

Код:
  BMPtoJPG('mybitmap.bmp','myjpeg.jpg')