Question

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

Answer 1

先引用delphi自带单元 uses EncdDecd; 使用面二函数: by 菩提树杨 中国yjmyzz中国blogs中国/ ///Bitmap位图转化base陆四字符串 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);//内存流编码base陆四字符流 s:=ss.DataString; ms.Free; ss.Free; result:=s; end; ///base陆四字符串转化Bitmap位图 function StringToBitmap(imgStr:string):TBitmap; var ss:TStringStream; ms:TMemoryStream; bitmap:TBitmap; begin ss := TStringStream.Create(imgStr); ms := TMemoryStream.Create; DecodeStream(ss,ms);//base陆四字符流原内存流 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数组内容写入文件，文件名为bitmap位图的bpm文件即可。