请教二进制流能否转换成base64

请问二进制流能否转换成base64
大家有没有办法将二进制流转成base64？

------解决方案--------------------
上QQ我给你传个DEMO

------解决方案--------------------
用这两个函数
EncodeStream(TMemoryStream,TstringStream);
DecodeStream(TstringStream,TMemoryStream);
------解决方案--------------------
这样应该比较明了了吧!
var
Tms:TMemoryStream;
Tss:TstringStream;
Tstr:string;
begin
Tms := TMemoryStream.Create;
???.SaveToStream(Tms);
Tss := TstringStream.Create('');
  
//DecodeStream(Tss,Tms);//在这个位置是将base64转为内存流
//Tms.Position :=0;
//.....
//???.LoadFromStream(Tms);
  
Tms.Position := 0;
EncodeStream(Tms,Tss);//将内存流转化base64
Tstr := Tss.DataString;
Tms.Free;
Tss.Free;
end;