使用Delphi 2007解码UTF-8编码的西里尔文

发布时间：2020-12-15 09:20:25 所属栏目：大数据来源：网络整理

导读：我正在使用Delphi 2007(没有Unicode支持),我正在从Google AnalyticsAPI中检索 XML和 JSON数据.下面是我为URL引用路径获得的一些UTF-8编码数据： ga:referralPath=/add/%D0%9F%D0%B8%D0%B6%D0%B0%D0%BC 当我使用this decoder对其进行解码时,它会正确生成： ga

我正在使用Delphi 2007(没有Unicode支持),我正在从Google AnalyticsAPI中检索 XML和 JSON数据.下面是我为URL引用路径获得的一些UTF-8编码数据：

ga:referralPath=/add/%D0%9F%D0%B8%D0%B6%D0%B0%D0%BC

当我使用this decoder对其进行解码时,它会正确生成：

ga:referralPath=/add/Пижам

有没有我可以在Delphi 2007中使用的函数来执行这种解码？

UPDATE
该数据对应于URL.最终我想要做的是将它存储在SqlServer数据库中(开箱即用 – 没有针对字符集修改设置).然后能够生成/创建一个带有此页面工作链接的html页面(注意：我只处理此示例中的url引用路径 – 显然要创建一个有效的url链接,需要一个源代码).

解决方法

D2007支持Unicode,只是达不到D2009的程度. D2007中的Unicode使用WideString和确实存在的少数RTL支持函数来处理.

URL包含百分比编码的UTF-8字节八位字节.只需将这些序列转换为二进制表示,然后使用UTF8Decode()将UTF-8数据解码为WideString.例如：

function HexToBits(C: Char): Byte;
begin
  case C of
    '0'..'9': Result := Byte(Ord(C) - Ord('0'));
    'a'..'f': Result := Byte(10 + (Ord(C) - Ord('a')));
    'A'..'F': Result := Byte(10 + (Ord(C) - Ord('A')));
  else
    raise Exception.Create('Invalid encoding detected');
  end;
end;

var
  sURL: String;
  sWork: UTF8String;
  C: Char;
  B: Byte;
  wDecoded: WideString;
  I: Integer;
begin
  sURL := 'ga:referralPath=/add/%D0%9F%D0%B8%D0%B6%D0%B0%D0%BC';
  sWork := sURL;
  I := 1;
  while I <= Length(sWork) do
  begin
    if sWork[I] = '%' then
    begin
      if (I+2) > Length(sWork) then
        raise Exception.Create('Incomplete encoding detected');
      sWork[I] := Char((HexToBits(sWork[I+1]) shl 4) or HexToBits(sWork[I+2]));
      Delete(sWork,I+1,2);
    end;
    Inc(I);
  end;
  wDecoded := UTF8Decode(sWork);
  ...
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!