トップへ(mam-mam.net/)

Delphi 掲示板~(サンプル投稿)FMX.Graphics.TBitmapでjpgファイルに保存するときに品質指定する方法は

検索:

Delphi 掲示板

一覧に戻る

(サンプル投稿)FMX.Graphics.TBitmapでjpgファイルに保存するときに品質指定する方法は

解決済
mam
(2024-05-25 09:41:22)
FMX.Graphics.TBitmapでjpgファイルに保存するときに品質指定する方法は
mam
(2024-05-25 09:42:56)
SaveToFileの第2引数にTBitmapCodecSaveParams型で品質を指定します。

procedure TForm1.Button1Click(Sender: TObject);
var bmp:FMX.Graphics.TBitmap;
  SaveParam:TBitmapCodecSaveParams;
begin
  bmp:=TBitmap.Create;
  try
    bmp.Width:=20;
    bmp.Height:=20;
    bmp.Canvas.BeginScene();
    bmp.Canvas.Fill.Color:=TAlphaColorRec.White;
    bmp.Canvas.FillRect( RectF(0,0,bmp.Width,bmp.Height),0,0,[],1 );
    bmp.Canvas.Stroke.Color:=TAlphaColorRec.Red;
    bmp.Canvas.DrawLine(PointF(0,0),PointF(bmp.Width,bmp.Height),1);
    bmp.Canvas.EndScene;

    SaveParam.Quality:=20; //品質20を指定
    bmp.SaveToFile('a.jpg', @SaveParam);
  finally
    bmp.Free;
  end;
end;

返信

名前
1~16文字
質問に対する返信
1~4000文字
解決
解決時にON
解決済
返信