Работа с текстовыми файлами в Delphi: конвертация между ANSI CP51949 и Unicode

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

При работе с текстовыми файлами в среде разработки Delphi часто возникает необходимость конвертации данных между различными кодировками. В частности, это касается случаев, когда файлы сохранены в кодировке ANSI с кодовой страницей CP51949 (EUC-KR), используемой для отображения корейских символов, и требуется их конвертация в Unicode для корректного отображения на системах, где не установлена соответствующая кодовая страница.

Проблема

При загрузке файла, закодированного в ANSI с кодовой страницей CP51949, в массив строк с помощью функции LoadStringsFromFile, на системах, где не установлена эта кодовая страница, корейский текст может отображаться как набор неразличимых символов. Кроме того, операции с текстом, такие как поиск подстроки (Pos) и замена строк (StringChange), могут давать неверные результаты.

Решение

Для решения проблемы необходимо выполнить конвертацию загруженных строк из ANSI в Unicode, а затем, при необходимости, обратно в ANSI. Это позволит корректно работать с текстом на системах, не поддерживающих исходную кодовую страницу.

Конвертация из ANSI в Unicode может быть выполнена с помощью функции MultiByteToWideChar из библиотеки Windows API. Пример использования этой функции в коде на Object Pascal:

function MultiByteToWideChar(
  CodePage: UINT; dwFlags: DWORD; const lpMultiByteStr: AnsiString;
  cchMultiByte: Integer; lpWideCharStr: string; cchWideChar: Integer): Integer;
  external 'MultiByteToWideChar@kernel32.dll stdcall';

function LoadStringFromFileInCP(
  FileName: string; var S: string; CP: Integer): Boolean;
var
  Ansi: AnsiString;
  Len: Integer;
begin
  Result := LoadStringFromFile(FileName, Ansi);
  if Result then
  begin
    Len := MultiByteToWideChar(CP, 0, Ansi, Length(Ansi), S, 0);
    SetLength(S, Len);
    MultiByteToWideChar(CP, 0, Ansi, Length(Ansi), S, Len);
  end;
end;

function LoadStringsFromFileInCP(
  FileName: string; Strings: TStrings; CP: Integer): Boolean;
var
  S: string;
begin
  Result := LoadStringFromFileInCP(FileName, S, CP);
  if Result then Strings.Text := S;
end;

Для обратной конвертации из Unicode в ANSI используется функция WideCharToMultiByte. Пример функции для сохранения строк в файл с заданной кодовой страницей:

function WideCharToMultiByte(CodePage: UINT; dwFlags: DWORD;
  lpWideCharStr: string; cchWideChar: Integer; lpMultiByteStr: AnsiString;
  cchMultiByte: Integer; lpDefaultCharFake: Integer;
  lpUsedDefaultCharFake: Integer): Integer;
  external 'WideCharToMultiByte@kernel32.dll stdcall';

function SaveStringToFileInCP(FileName: string; S: string; CP: Integer): Boolean;
begin
  // ... реализация функции, аналогичная LoadStringFromFileInCP, но с использованием WideCharToMultiByte
end;

function SaveStringsToFileInCP(
  FileName: string; Strings: TStrings; CP: Integer): Boolean;
begin
  // ... реализация функции для сохранения коллекции строк
end;

Пример использования функций для загрузки и сохранения строк в файлы с кодовой страницей CP51949:

const
  CP_EUC_KOREAN = 51949;

var
  I: Integer;
  Strings: TStrings;
begin
  Strings := TStringList.Create;
  if LoadStringsFromFileInCP('korean.txt', Strings, CP_EUC_KOREAN) then
  begin
    for I := 0 to Strings.Count - 1 do
    begin
      MsgBox(Strings[I], mbInformation, MB_OK);
    end;
    SaveStringsToFileInCP('korean_out.txt', Strings, CP_EUC_KOREAN);
  end;
end;

Альтернативный ответ

В случае, если пользователь не может или не желает использовать функции Windows API напрямую, возможен вариант использования дополнительных библиотек или компонентов, которые предоставляют аналогичные возможности конвертации кодировок.

Подтвержденный ответ

Приведенные выше примеры кода успешно решают задачу конвертации между ANSI CP51949 и Unicode, позволяя корректно работать с текстовыми файлами в среде Delphi.

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

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

При работе с текстовыми файлами в Delphi для корректного отображения корейского текста необходимо выполнить конвертацию между ANSI CP51949 и Unicode.

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

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

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