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

先引用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 ;