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