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 函数在转码的过程中初步估计为 丢失了 编码格式