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;

 

相关阅读 >>

Delphi2010新功能:tdirectory.getfiles 支持通配符

Delphi 中的md5实现方法及Delphi2009和Delphi2010中用法

Delphi xe8 form.onshow的一个小问题

download 和 http downloader 源码

Delphi 10.2 新特性之―tfdbatchmovejsonwriter

Delphi 反外挂，反破解思想代码

Delphi转换长文件名函数 getshortname

Delphi中启用禁止cd驱动器自动运行播放

Delphi 获取网络图片在webbrowser显示 android/osx/ios/win的最佳方式

Delphi 多桌面切换

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

转载请注明出处：木庄网络博客 » Delphi XE7 的 Android Bitmap转JPG图的参数问题