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

2019独角兽企业重金招聘Python工程师标准>>>

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

18. 
    

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;

复制代码

转载于:https://my.oschina.net/u/582827/blog/227491