Преобразование строк в UTF-8 в среде Delphi: пошаговое руководство

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

Преобразование строк в UTF-8 в среде Delphi

Введение

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

Проблема

При работе с текстом в среде Delphi может возникнуть необходимость преобразования строк из одной кодировки в другую, например, из ISO-8859-2 в UTF-8. Это может быть связано с необходимостью унификации кодировки данных или их передачей в среды, где используется UTF-8.

Решение

В Python преобразование строк в UTF-8 может быть выполнено с помощью следующего кода:

def EncodeToUTF(inputstr):
    uns = inputstr.decode('iso-8859-2')
    utfs = uns.encode('utf-8')
    return utfs

Аналогичное преобразование в Delphi может быть выполнено несколькими способами, в зависимости от версии среды разработки.

Для версий до Delphi 2009

Используйте функции MultiByteToWideChar и WideCharToMultiByte для преобразования:

function EncodeToUTF(const inputstr: AnsiString): UTF8String;
var
  ret: Integer;
  uns: WideString;
begin
  Result := '';
  if inputstr = '' then Exit;
  ret := MultiByteToWideChar(28592, 0, PAnsiChar(inputstr), Length(inputstr), nil, 0);
  if ret < 1 then Exit;
  SetLength(uns, ret);
  MultiByteToWideChar(28592, 0, PAnsiChar(inputstr), Length(inputstr), PWideChar(uns), Length(uns));
  ret := WideCharToMultiByte(65001, 0, PWideChar(uns), Length(uns), nil, 0, nil, nil);
  if ret < 1 then Exit;
  SetLength(Result, ret);
  WideCharToMultiByte(65001, 0, PWideChar(uns), Length(uns), PAnsiChar(Result), Length(Result), nil, nil);
end;

Для версий Delphi 2009 и новее

Используйте классы TEncoding из модуля SysUtils для преобразования:

function EncodeToUTF(const inputstr: RawByteString): UTF8String;
var
  enc: TEncoding;
  buf: TBytes;
begin
  Result := '';
  if inputstr = '' then Exit;
  enc := TEncoding.GetEncoding(28592);
  try
    buf := TEncoding.Convert(enc, TEncoding.UTF8, BytesOf(inputstr));
    if Length(buf) > 0 then
      SetString(Result, PAnsiChar(@buf[0]), Length(buf));
  finally
    enc.Free;
  end;
end;

Также можно определить новый тип строки, который будет автоматически обрабатывать преобразование:

type
  Latin2String = type AnsiString(28592);
...
var
  inputstr: Latin2String;
  outputstr: UTF8String;
begin
  // Запись ISO-8859-2 в inputstr, затем...
  outputstr := inputstr;
end;

Заключение

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

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

Описание процесса преобразования строк из различных кодировок в UTF-8 в среде разработки Delphi.

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

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

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