16,748
社区成员
发帖
与我相关
我的任务
分享
class function TSMEncrypt.Base64Encode(const input: string; Encoding: TEncoding): string;
var
InStr, OutStr: TStringStream;
begin
InStr := TStringStream.Create(Input, Encoding);
try
OutStr := TStringStream.Create('');
try
EncodeStream(InStr, OutStr);
Result := OutStr.DataString;
finally
OutStr.Free;
end;
finally
InStr.Free;
end;
end;
class function TSMEncrypt.Base64Decode(const input: string; Encoding: TEncoding): string;
var
InStr, OutStr: TStringStream;
begin
InStr := TStringStream.Create(Input);
try
OutStr := TStringStream.Create('', Encoding);
try
DecodeStream(InStr, OutStr);
Result := OutStr.DataString;
finally
OutStr.Free;
end;
finally
InStr.Free;
end;
end;