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 取正在运行的dll或exe的路径

Delphi防止因系统崩溃而丢失任务栏的图标(重建托盘图标)

Delphi strutils.reversestring - 翻转字符串

Delphi datasettojson

Delphi 提取字符中的数字

Delphi实现电脑端微信图片文件解密

Delphi 连接 ssl tls 1.2

Delphi 拖动文件到exe 打开 获取getcommandline命令行

delphDelphi chromium embedded 清除指定链接浏览器缓存、cookies

Delphi strtodatetime 这个函数在win7下出错

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

转载请注明出处：木庄网络博客 » delphi 将base64字符串转化为Jpeg图片