DELPHI XE4 Base64加密 后解决中午乱码问题

1、引用单元文件   Soap.EncdDecd

2、写一个返回string函数， 其实就是 EncodeString 的修正

 function EncodeString2(const Input: string): string;
var
  InStr, OutStr: TStringStream;
begin
  InStr := TStringStream.Create(Input, TEncoding.UTF8);
  try
    OutStr := TStringStream.Create('', TEncoding.UTF8);
    try
      EncodeStream(InStr, OutStr);
      Result := OutStr.DataString;
    finally
      OutStr.Free;
    end;
  finally
    InStr.Free;
  end;
end;

3、直接调用EncodeString2 函数就可以解决了。

4、总结： EncodeString 函数在转码的过程中初步估计为 丢失了 编码格式