Delphi 字节流 Base64编码

飘云

1. unit EncodingUtil;
   
2. 
   
3. interface
   
4. 
   
5. uses
   
6. SysUtils, Classes, Types, EncdDecd;
   
7. 
   
8. function BytesToBase64(const bytes : TByteDynArray) : string;
   
9. function StreamToBase64(AStream: TStream) : string;
   
10. 
    
11. implementation
    
12. 
    
13. function BytesToBase64(const bytes : TByteDynArray) : string;
    
14. var
    
15. memoryStream : TMemoryStream;
    
16. begin
    
17. memoryStream := TMemoryStream.Create;
    
18. memoryStream.WriteBuffer(bytes[0], Length(bytes));
    
19. memoryStream.Seek(0, soFromBeginning);
    
20. Result := StreamToBase64(memoryStream);
    
21. memoryStream.Free;
    
22. end;
    
23. 
    
24. 
    
25. function StreamToBase64(AStream: TStream) : string;
    
26. var
    
27. objSS: TStringStream;
    
28. begin
    
29. objSS := TStringStream.Create('');
    
30. try
    
31. EncodeStream(AStream, objSS); //Delphi7 自带unit EncdDecd的方法
    
32. Result := objSS.DataString;
    
33. finally
    
34. FreeAndNil(objSS);
    
35. end;
    
36. end;
    
37. 
    
38. end.

复制代码

EncdDecd单元：

1. //对流的编解码：
   
2. procedure EncodeStream(Input, Output: TStream); // 编码
   
3. procedure DecodeStream(Input, Output: TStream); // 解码
   
4. 
   
5. // 对字符串的编解码：
   
6. function EncodeString(const Input: string): string; // 编码
   
7. function DecodeString(const Input: string): string; // 解码

复制代码

这几个函数在帮助中没有~~ 非公开