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

「画像の品質を指定して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;