Base64字符串转变体
function Base64StringToVariant(const s: string): Variant;
var
vStream: TMemoryStream;
begin
vStream := TMemoryStream.Create;
try
Base64StringToStream(vStream, s);
Result := StreamToVariant(vStream);
finally
vStream.DisposeOf;
end;
end;
无
《学习大师原创文档,请勿转载,侵权必究》