主页 > 编程资料 > Delphi >
发布时间:2015-09-22 作者:网络 阅读:147次

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;
关键字词: