delphi TByteArray 装换成base64

unit EncodingUtil; 

interface 

uses 
  SysUtils, Classes, Types, EncdDecd; 

function BytesToBase64(const bytes: TByteArray): string; 
function StreamToBase64(AStream: TStream): string; 

implementation 

function BytesToBase64(const bytes: TByteArray): string; 
var 
  memoryStream: TMemoryStream; 
begin 
  memoryStream := TMemoryStream.Create; 
  memoryStream.WriteBuffer(bytes[0], Length(bytes)); 
  memoryStream.Seek(0, soFromBeginning); 
  Result := StreamToBase64(memoryStream); 
  memoryStream.Free; 
end; 

function StreamToBase64(AStream: TStream): string; 
var 
  objSS: TStringStream; 
begin 
  objSS := TStringStream.Create(''); 
  try 
    EncodeStream(AStream, objSS); // Delphi7 自带unit EncdDecd的方法 
    Result := objSS.DataString; 
  finally 
    FreeAndNil(objSS); 
  end; 
end; 
end.

转载于:https://my.oschina.net/u/2311353/blog/423078