delphi中Bitmap位图与base64字符串相互转换

本文整理自网络，侵删。

 
uses EncdDecd;

///将Bitmap位图转化为base64字符串
function BitmapToString(img:TBitmap):string ;
var
  ms:TMemoryStream;
  ss:TStringStream;
  s:string;
begin
    ms := TMemoryStream.Create;
    img.SaveToStream(ms);
    ss := TStringStream.Create('');
    ms.Position:=0;
    EncodeStream(ms,ss);//将内存流编码为base64字符流
    s:=ss.DataString;
    ms.Free;
    ss.Free;
    result:=s;
end;
 
///将base64字符串转化为Bitmap位图
function StringToBitmap(imgStr:string):TBitmap;
var ss:TStringStream;
    ms:TMemoryStream;
    bitmap:TBitmap;
begin
    ss := TStringStream.Create(imgStr);
    ms := TMemoryStream.Create;
    DecodeStream(ss,ms);//将base64字符流还原为内存流
    ms.Position:=0;
    bitmap := TBitmap.Create;
    bitmap.LoadFromStream(ms);
    ss.Free;
    ms.Free;
    result :=bitmap;
end;

来源：https://www.cnblogs.com/jhlong/p/6865871.html
　　
 

相关阅读 >>

Delphi 获取鼠标坐标大全方法

Delphi 取bmp图片宽高

Delphi 10.4中新增功能：新的vcl tedgebrowser组件

Delphi xe string与tstringbuilder的关系

Delphi 计算ip地址范围

Delphi http协议验证访问datasnap rest 服务器

Delphi判断ip地址是否正确

Delphi 自我拷贝复制

github上通过星级评估排名前10的最受欢迎的开源Delphi项目

Delphi中禁止webbrowser右键的方法

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

转载请注明出处：木庄网络博客 » delphi中Bitmap位图与base64字符串相互转换