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 cef4Delphi 浏览器事件

Delphi 使用钩子函数 - 数据传递

Delphi tstringlist indexof find 查找字符串

decodedate：从一个tdatetime变量中提取年、月、日数值

Delphixe ansi字符串utf-8编码判断

Delphi简单的播放声音

Delphi 如何从一张图片中裁剪一部分距形图片另存为文件（使用canvas.copyrect）

Delphi xe 使用savestate保存firemonkey状态的示例

Delphi 用idhttp获取utf-8编码的网页

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

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