Работа с UTF-8 в Delphi 2007: декодирование данных из Google Analytics API

Delphi , Синтаксис , API реализация

Работа с кодировками в программировании может быть непростой задачей, особенно если речь идет о версиях языков и инструментов, не поддерживающих Unicode в полной мере. В данном случае рассматривается проблема декодирования UTF-8 данных, полученных из Google Analytics API, в среде Delphi 2007, которая не имеет полноценной поддержки Unicode.

Проблема

Разработчик работает в среде Delphi 2007 и получает XML и JSON данные от Google Analytics API, которые содержат URL-адреса в кодировке UTF-8. Примером такого данных является строка:

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

После декодирования с помощью онлайн-инструментов, строка превращается в:

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

Задача состоит в том, чтобы найти функцию в Delphi 2007, которая могла бы выполнить аналогичное декодирование.

Решение

Delphi 2007 поддерживает Unicode, но в более ограниченном виде по сравнению с более новыми версиями. В Delphi 2007 для работы с Unicode используются типы данных WideString и ограниченный набор функций RTL.

Для решения задачи можно использовать следующий алгоритм:

1. Преобразовать последовательности, закодированные в процентах, в их двоичное представление.
2. Использовать функцию UTF8Decode для преобразования данных в кодировке UTF-8 в WideString.

Вот пример кода на Object Pascal, который выполняет данную задачу:

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;

Альтернативное решение

Также можно использовать функции Windows API для декодирования UTF-8 данных. Вот пример такой функции:

function Utf8ToStr(const Source : string) : string;
var
  i, len : integer;
  TmpBuf : array of byte;
begin
  SetLength(Result, 0);
  i := MultiByteToWideChar(CP_UTF8, 0, @Source[1], Length(Source), nil, 0);
  if i = 0 then Exit;
  SetLength(TmpBuf, i * SizeOf(WCHAR));
  // Остальной код...
end;

Этот код сначала преобразует строку в UTF-8 в строку в кодировке UTF-16, а затем в ANSI. Однако, стоит отметить, что использование ANSI может быть не лучшим решением, и предпочтительнее оставаться в рамках Unicode, если это возможно.

Вывод

Для работы с UTF-8 в Delphi 2007 можно использовать встроенные функции, такие как UTF8Decode, или применить Windows API для выполнения необходимых преобразований. Важно учитывать, что работа с различными кодировками требует внимательности и понимания особенностей каждой из них.

Создано по материалам из источника по ссылке.

Разработчик сталкивается с необходимостью декодирования данных в кодировке UTF-8, полученных из Google Analytics API, в среде Delphi 2007, которая имеет ограниченную поддержку Unicode.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: API реализация ::