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

Тема в разделе "Delphi", создана пользователем WinHack, 24 ноя 2016.

  1. WinHack
    Вы можете легко преобразовывать изображение из формата 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')