Как правильно читать UTF-8 текст, полученный через Indy, в Delphi с использованием строк Unicode

Delphi , Синтаксис , Кодировки

Как правильно читать UTF-8 текст, полученный через Indy, в Delphi с использованием строк Unicode

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

Проблема

Когда вы используете TIdHTTP для получения ответа в формате Content-Type: text/html; charset=UTF-8 и сохраняете его в TStringStream, а затем пытаетесь прочитать результат с помощью ResponseStream.ReadString(ResponseStream.Size), строка может отображаться некорректно. Это может быть связано с тем, что операционная система Windows использует кодировку UTF-16.

Решение

Для корректного чтения текста в кодировке UTF-8, полученного через Indy, вам необходимо использовать функцию UTF8Decode. Также можно использовать перегруженные конструкторы TStringStream и TIdHTTP.Get, которые позволяют указать необходимую кодировку.

Использование TStringStream с указанием кодировки

Создайте TStringStream с указанием кодировки UTF-8:

LResponseStream := TStringStream.Create('', TEncoding.UTF8);

Использование перегруженного метода TIdHTTP.Get

Используйте перегруженный метод TIdHTTP.Get, который возвращает строку и автоматически выполняет декодирование из UTF-8 в UTF-16:

LResponse := LHTTP.Get('url');

Пример кода

Вот полный пример кода, который демонстрирует правильное чтение UTF-8 текста:

var
  LHTTP: TIdHTTP;
  LResponse: String;
begin
  LHTTP := TIdHTTP.Create(nil);
  try
    LResponse := LHTTP.Get('url'); // Автоматическое декодирование в UTF-16
    ShowMessage(LResponse); // Отображение результата
  finally
    LHTTP.Free;
  end;
end;

Альтернативные подходы

Вы также можете использовать функцию UTF8Decode перед присвоением результата чтения строки переменной LResponse:

LResponse := UTF8Decode(LResponseStream.ReadString(LResponseStream.Size, TEncoding.UTF8));

Этот подход требует более детальной настройки и может быть менее удобным, чем использование перегруженных методов.

Заключение

Используя правильные методы и функции, вы сможете корректно читать и отображать текст в кодировке UTF-8, полученный через Indy, в среде Delphi. Обращайте внимание на кодировку, с которой работает ваш текст, и выбирайте подход, который лучше всего соответствует вашим требованиям и удобству использования.

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

Описание контекста: Как правильно прочитать текст в кодировке UTF-8, полученный через компоненты Indy в Delphi, и преобразовать его в строку Unicode.

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

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

:: Главная :: Кодировки ::