Bitmap位圖與base64字符串相互轉換

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

複製代碼