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

[learning8899]

大家有没有办法将二进制流转成base64？

[Robin95314852]

上QQ我给你传个DEMO

[Robin95314852]

用这两个函数
EncodeStream(TMemoryStream,TstringStream);
DecodeStream(TstringStream,TMemoryStream);

[Robin95314852]

这样应该比较明了了吧!
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;

[learning8899]

谢谢Robin,TStringStream如何输出字符串呢？