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 firedac在后台线程中从mssql server检索记录的方法

汇编基础知识

Delphi 修改exe应用程序图标

Delphi 传输文件例子的核心代码

Delphi 游戏测试call

Delphi真正实现延时暂停功能

Delphi2010中字符串汇编需要注意的一点，以及支持2010的aes加密库

Delphi字符串隐藏

Delphi工具之winsight

Delphi异常重启自身

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

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