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》频道 >>

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