Delphi XE7 的 Android Bitmap转JPG图的参数问题


本文整理自网络,侵删。

 
TBitmapCodecManager.SaveToStream的最后一个参数为 PBitmapCodecSaveParams,但是在使用时,如果定义

parms:PBitmapCodecSaveParams;

设置

parms.Quality := 10; 则Android程序闪退,所以改用该指针的指向,

parms:TBitmapCodecSaveParams,运行正常。



procedure TForm5.BitmapToJPEG(input_bp: TBitmap; output_fn: string);

var

  Surf: TBitmapSurface;

  Stream: TMemoryStream;

  parms:TBitmapCodecSaveParams; 

begin

  Surf := TBitmapSurface.Create;

  Surf.Assign(input_bp);

  Stream := TMemoryStream.Create;

  try

    parms.Quality:=10;

    TBitmapCodecManager.SaveToStream(Stream, Surf, '.jpg', @parms);

    Stream.SaveToFile(ExpandFileName(output_fn));

  finally

    Stream.Free;

    Surf.Free;

  end;

end;

相关阅读 >>

Delphi 实现透明窗体

Delphi real控件 rm格式的播放器

Delphi xe6 实现ping的功能

Delphi 语法基础: 使用不同的数据类型标记数组

Delphi中accesss实现树形结构查询系统

Delphi穿墙自启动下载者4.0

Delphi 获取dll文件的函数列表

Delphi中的布尔类型

Delphi获取ie浏览器url地址

Delphi md5加密字符串

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...

    正在狠努力加载,请稍候...