Сохранение Tbitmap в формате jpeg

[newdiam]

Ребят, кто сталкивался, подскажите, пожалуйста, как можно сохранить изображение из компонента Timage в формате Jpeg, не используя класс Vcl.Imaging.jpeg.hpp. ?

[newdiam]

Сделал с использованием "TBitmapCodecManager"

TBitmapCodecSaveParams *sp = new TBitmapCodecSaveParams();sp->Quality=70;

TBitmapSurface *bs = new TBitmapSurface();
bs->Assign(Image1->Bitmap);

TBitmapCodecManager::SaveToFile("1.jpg",bs,sp);

[newdiam]

Да уж, самый просто способ - использовать метод SaveToFile класса TBitmap, и он по расширению файла подбирает кодек. На первый взгляд не логично - Bitmap по savetofile сохраняет в jpeg, по этому... даже не проверил(

[pavellyba]

А как регулировать качество сохранения?!

[xenon54]

А как регулировать качество сохранения?!

 

 

 

Сделал с использованием "TBitmapCodecManager"

 

 

 

TBitmapCodecSaveParams *sp = new TBitmapCodecSaveParams();

sp->Quality=70;

 

TBitmapSurface *bs = new TBitmapSurface();

bs->Assign(Image1->Bitmap);

 

TBitmapCodecManager::SaveToFile("1.jpg",bs,sp);

 

[pavellyba]

А для Делфи?

[estra]

А для Делфи?

А чем не устраивает Vcl.Imaging.jpeg?

[xenon54]

uses
FMX.Surfaces;

//---------------------------------------

procedure TForm1.Button1Click(Sender: TObject);
var
sp : TBitmapCodecSaveParams;
bs : TBitmapSurface;
B : TBitmap; 

begin
  B := TBitmap.Create; // исходная картинка
  B.LoadFromFile('...');

  sp.Quality := 70;

  bs := TBitmapSurface.Create;
  bs.Assign(;

  TBitmapCodecManager.SaveToFile('FileName', bs, @sp);
  bs.Free;
  B.Free;
end;