Mam's WebSite
建築CGパース住宅CGパース

Mamの覚書Q&A検索

トップページMamの覚書Q&A検索Delphi(FireMonkey(FMX))⇒Q&A


大項目:「 Delphi 」 - 中項目:「 FireMonkey(FMX) 」

「 画像の品質を指定してjpegファイルで保存するには 」

画像の品質を指定してjpeg(.jpg)ファイルで保存するには


回答

以下ソースコード参照

ソース

procedure TForm1.Button1Click(Sender: TObject);
var strm:TMemoryStream;
    Surf: TBitmapSurface;
    pm:TBitmapCodecSaveParams;
begin
  //uses FMX.Surfaces;を追加すること
 
  Surf := TBitmapSurface.Create;
  strm:=TMemoryStream.Create;
  try
    //品質100で保存(0-100)
    pm.Quality:=100;
    Surf.Assign(Image1.Bitmap);
    TBitmapCodecManager.SaveToStream(strm,Surf,'.jpg',@pm);
 
    Image2.Bitmap.LoadFromStream(strm);
    strm.SaveToFile('D:\a.jpg');
  finally
    Surf.Free;
    strm.Free;
  end;
end;


Mam's WebSite