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

Question

以下代码在 Win32 上运行，无论如何在 Android 或 iOS 上运行都会抛出异常。异常(exception)情况是:“目标多字节代码页中不存在 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;