• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

重温delphi之:如何将Bitmap位图与base64字符串相互转换

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
先引用delphi自带的单元

uses EncdDecd;

然后就可以使用下面二个函数了:

by 菩提树下的杨过 http://yjmyzz.cnblogs.com/
///将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;

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab randn 函数发布时间:2022-07-18
下一篇:
matlab_randn函数发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap