delphi xe6 目标多字节代码页中不存在 Unicode 字符的映射

Question

以下代码适用于 Win32，无论如何，如果在 Android 或 iOS 上运行，它会引发异常。例外是：“目标多字节代码页中不存在 Unicode 字符的映射”

function GetURLAsString(aURL: string): string;
    var
      lHTTP: TIdHTTP;
      lStream: TStringstream;

    begin
      lHTTP := TIdHTTP.Create(nil);
      lStream := TStringstream.Create(result);//create('',EEncoding.utf8),not work
      try

        lHTTP.Get(aURL, lStream);
        lStream.Position := 0;
        result := lStream.readstring(lStream.Size);//error here
      finally
        FreeAndNil(lHTTP);
        FreeAndNil(lStream);
      end;
    end;

Answer 1

TStringStream 不适合这种情况。它要求您在其构造函数中指定编码。如果您不这样做，它会改用操作系统默认编码。在 Windows 上，该默认设置是特定于运行应用程序的用户帐户的区域设置。在移动设备上，默认值为 UTF-8。

HTTP 可以使用任意数量的字符集传输文本。如果数据与TStringStream 使用的编码不匹配，您将遇到解码问题。

TIdHTTP 知道接收到的数据的字符集，可以为你解码成 Delphi string，例如：

function GetURLAsString(aURL: string): string;
var
  lHTTP: TIdHTTP;
begin
  lHTTP := TIdHTTP.Create(nil);
  try
    Result := lHTTP.Get(aURL);
  finally
    FreeAndNil(lHTTP);
  end;
end;