Question

如何将Bitmap位图与base64字符串相互转换

Answer 1

先引用delphi自带的单元

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;

Answer 2

1 把图像文件读如byte数组中。 2 然后调用EncodeBase64函数，把Byte数组传入，函数返回Base64的字符串。 以上即可完成Base64转换。 反方向 1 然后调用DecodeBase64函数，把Byte64字符串传入，函数返回Byte数组。 2 把Bye数组内容写入文件，文件...