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