先引用delphi自带的单元

uses EncdDecd;

1. ///将Bitmap位图转化为base64字符串

2. function BitmapToString(img:TBitmap):string ;

3. var

4.   ms:TMemoryStream;

5.   ss:TStringStream;

6.   s:string;

7. begin

8.     ms := TMemoryStream.Create;

9.     img.SaveToStream(ms);

10.     ss := TStringStream.Create('');

11.     ms.Position:=0;

12.     EncodeStream(ms,ss);//将内存流编码为base64字符流

13.     s:=ss.DataString;

14.     ms.Free;

15.     ss.Free;

16.     result:=s;

17. end;

19. ///将base64字符串转化为Bitmap位图

20. function StringToBitmap(imgStr:string):TBitmap;

21. var ss:TStringStream;

22.     ms:TMemoryStream;

23.     bitmap:TBitmap;

24. begin

25.     ss := TStringStream.Create(imgStr);

26.     ms := TMemoryStream.Create;

27.     DecodeStream(ss,ms);//将base64字符流还原为内存流

28.     ms.Position:=0;

29.     bitmap := TBitmap.Create;

30.     bitmap.LoadFromStream(ms);

31.     ss.Free;

32.     ms.Free;

33.     result :=bitmap;

34. end;

复制代码