Перейти к содержанию
Fire Monkey от А до Я
  • 0

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


newdiam

Вопрос

Рекомендуемые сообщения

  • 0

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

Ссылка на комментарий
  • 0

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

 

 

 

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

 

 

 

TBitmapCodecSaveParams *sp = new TBitmapCodecSaveParams();

sp->Quality=70;
 
TBitmapSurface *bs = new TBitmapSurface();
bs->Assign(Image1->Bitmap);
 
TBitmapCodecManager::SaveToFile("1.jpg",bs,sp);

 

Ссылка на комментарий
  • 0
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;
Ссылка на комментарий
Гость
Эта тема закрыта для публикации ответов.
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...