Question

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

Answer 1

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