delphi 将base64字符串转化为Jpeg图片


本文整理自网络,侵删。

 
uses jpeg,EncdDecd;


function Base64StringToJpeg(ImgStr:string):TJPEGImage;
var ss:TStringStream;
    ms:TMemoryStream;
    jpg:TJPEGImage;
begin
  try
    ss := TStringStream.Create(imgStr);
    ms := TMemoryStream.Create;
    DecodeStream(ss,ms);//将base64字符流还原为内存流
    ms.Position:=0;
    jpg := TJPEGImage.Create;
    jpg.LoadFromStream(ms);
    ss.Free;
    ms.Free;
    result :=jpg;
  except
  end;
end;

相关阅读 >>

Delphi 获取unixtime

Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

Delphi 2009 之 tballoonhint

Delphi 如何快速读取非常大的文本文件

Delphi 在memo查找字符并定位

Delphi 实现数据库连接封装到dll

cef4Delphi 语言区域设置

Delphi 设置开机自动启动函数

Delphi中控制与捕捉输入法的实现单元

Delphi function 与 procedure

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



打赏

取消

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

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

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

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

评论

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