Решение проблемы отображения греческих букв в компоненте TDBMemo с использованием UTF-8 в Delphi

Delphi , Базы данных , Interbase

Проблема, с которой столкнулся разработчик, заключается в некорректном отображении греческих букв в компоненте TDBMemo при работе с полями BLOB типа 0 в базе данных Interbase. Используется среда разработки Delphi 10.4, Interbase 2020 на операционной системе Windows 10. Проблема возникает при попытке сохранения, извлечения и отображения греческих букв, которые корректно отображаются в TDBMemo, но при записи в базу данных и последующем извлечении из неё буквы отображаются искажённо.

Проблема

В тестовой программе используется связка компонентов TFDConnection → TFDQuery → TDataSource → TDBMemo, где TDBMemo связан с полем BLOB типа 0 в таблице Interbase. При отсутствии в тексте греческих букв и других нелатинских символов UTF-8 всё работает корректно. Однако, при наличии таких символов, текст в TDBMemo и в таблице базы данных отображается искажённо.

Попытки решения

Разработчик уже пытался различные способы решения проблемы, включая использование функций преобразования ANSI в UTF-8, потоковое чтение данных из TDBMemo в BLOB поле, а также использование поля BLOB типа 1 с явным указанием кодировки UTF-8. Все эти попытки не увенчались успехом.

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

Решение проблемы заключается в правильной настройке свойства CharacterSet компонента FDConnection на значение UTF-8. Поле в базе данных должно быть определено как BLOB SUB_TYPE 1 CHARACTER SET UTF8. Пример использования утилиты isql InterBase для вставки и извлечения греческих текстов с правильной кодировкой представлен ниже:

connect 'blob_utf8.ib';
drop database;
create database 'blob_utf8.ib';
create table t1 (greekfield blob sub_type 1 character set UTF8);
commit;
set echo on;
show table t1;

/* Добавление греческого текста */
insert into t1 values ('ἡλιοδρόμος');
commit;

/* Извлечение и отображение всех данных */
select * from t1;

/* Извлечение с использованием фильтра, где греческий текст преобразован в UTF-8 */
select * from t1
where cast (greekfield as varchar(200) character set UTF8) IN ('ἡλιοδρόμος');
quit;

Вывод

Для корректной работы с UTF-8 текстом в Delphi и Interbase необходимо убедиться, что поля BLOB используют подтип 1 с указанием кодировки UTF-8. При создании базы данных несколько лет назад разработчик не придал этому значения, но теперь, зная об этом, он планирует пересоздать базу данных с соответствующими настройками. Перемещение данных потребует написания дополнительного кода, чтобы избежать ошибок.

Пример кода

Для демонстрации корректной работы с UTF-8 в Delphi, приведем пример кода, который использует потоки для работы с BLOB полями:

uses
  System.SysUtils,
  Datasnap.DBXClient,
  FireDAC.Comp.Client,
  FireDAC.Phys.Intf,
  FireDAC.Comp.UIxCore;

// Создание потока для записи в BLOB поле
var
  Stream: TBlobStream;
begin
  Stream := TBlobStream.Create(nil);
  try
    // Запись строки в поток с использованием кодировки UTF-8
    Stream.WriteBuffer(TEncoding.UTF8.GetBytes('ἡλιοδρόμος'), Length('ἡλιοδρόμος'));
    // Присвоение потока полю BLOB в запросе
    FDQuery1.CreateBlobStream('FIELDNAME', cmInsert, Stream);
  finally
    Stream.Free;
  end;
end;

В этом коде используется поток TBlobStream для записи строки в BLOB поле, что обеспечивает корректную работу с UTF-8 текстом.

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

Проблема связана с некорректным отображением греческих букв в компоненте TDBMemo в Delphi из-за неправильной настройки кодировки при работе с полями BLOB в базе данных Interbase.

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

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

:: Главная :: Interbase ::