Lazarus + IBM DB2

[Shipovnix]

При выполнении запроса из Lazarus к БД на DB2 через ODBC (db2cli for ODBC) поля результата запроса с русским текстом отображаются вопросительными знаками (напр. ????????????????????????).
Кодовая страница базы данных = 1251, кодовый набор базы данных = 1251.
Что нужно сделать, чтобы это победить? Актуально также будет и для инсертов/апдейтов русского текста.

[Снег Север]

Отображаются где - в гриде на форме? Так надо преобразовывать cp1251 в utf8, подсказывает Кэп.

[Shipovnix]

Да, в гриде, и в любых кантролах на форме. Кэп подсказал, но матрос не знает работающих средств конвертации полученного результата запроса. Посему прошу подсказать их.

[Vadim]

Shipovnix
Вы к серверу БД подключаетесь через компонент "ODBCConnection"?
Попробуйте в свойстве этого компонента, которое называется "CharSet", написать "utf8".

матрос не знает работающих средств конвертации полученного результата запроса

Таких матросов не бывает. А вот юнга - это другое дело...

[Shipovnix]

Юнга, так юнга.

Попробуйте в свойстве этого компонента, которое называется "CharSet", написать "utf8".

Это я пробовал, ровно никакого эффекта.

[Vadim]

Shipovnix
А если наоборот поставить - cp1251 ?
Или вот ещё вариант. У Вас ведь отдельный файл настроек в ODBC должен быть. Может быть там есть куда charset utf8 поставить?

У меня старая база в MSSQL. Там кодировка тоже 1251. Однако если в CharSet поставить utf8 то русские буквы отображаются в высшей степени прекрасно. Но, правда, соединение с MSSQL напрямую с сервером, без всяких доисторических посредников, типа ODBC.

[Shipovnix]

Да, такие варианты тоже попробовал, и 1250, и 1252 заодно тыкал.

Shipovnix
Или вот ещё вариант. У Вас ведь отдельный файл настроек в ODBC должен быть. Может быть там есть куда charset utf8 поставить?

Есть там файл настроек, сейчас он выглядит так:

Код: Выделить всё

[BIUD]
UnicodeServer=1
DateTimeStringFormat=ISO
DBALIAS=BIUD
PWD=***
UID=***

Ни в одном пункте настроек больше нет ничего, связанного с кодировкой.
Раньше, на Delphi7 + ADO, думаю, вообще не возникло бы проблем без использования ODBC. Но, увы, ТЗ такое ТЗ.

[Снег Север]

В SQLQuery есть свойство Translate.
Попробуйте поставить там типа
SQLQuery1.Translate('cp1251','UTF8',true)

Есть еще функция CP1251ToUTF8.

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

[Shipovnix]

Команда

Код: Выделить всё

QBIUD.Translate('cp1251', 'utf8', True);

даёт ошибку Access Violation.
Конвертация в символы в самом запросе тоже даёт ошибку DB2:

Код: Выделить всё

SELECT o.LOGIN, o.RE, o.RA, CAST(o.FA AS VARCHAR(255) CCSID 1209) AS SURNAME
FROM CS.OPERATOR AS o
WHERE o.LOGIN LIKE 'admin'
FETCH FIRST 1 ROWS ONLY WITH UR;

тоже даёт ошибку DB2 — "An unexpected token '1209' was found...". Пробовал разные CCSID: и utf8, и UNICODE, и, наоборот, 1251 — всё это вызывает ошибку DB2. Без ошибки запрос отрабатывает только с конструкцией CCSID ASCII, но это кракозябры.

[Vadim]

[BIUD]
UnicodeServer=1

А если туда 0 поставить? Ведь если подумать, то база то никакая не Unicode...

Ещё один вариант. В настройках самого сервера DB2 есть возможность указать кодировку для отправляемых клиенту данных?

[Shipovnix]

А если туда 0 поставить?

Не помогает... Как и совсем удалить этот параметр.

Добавлено спустя 11 минут 33 секунды:

Ещё один вариант. В настройках самого сервера DB2 есть возможность указать кодировку для отправляемых клиенту данных?

Ненене, изменять кодировку отправляемых клиенту данных (если такое возможно) мне не разрешено.

[Vadim]

Shipovnix
А если попробовать сменить компоненты: ZeosLib + AdoDB ? Правда эта связка только для винды, на Линуксе AdoDB нет даже в проекте.

[Shipovnix]

А если попробовать сменить компоненты: ZeosLib + AdoDB ?

А разве есть порт ADO на Lazarus?

[Vadim]

А разве есть порт ADO на Lazarus?

Ado для Lazarus - он немного в другом смысле. Ado, вне всякого сомнения, он для винды и в нём внутри. Однако в ZeosLib сделан модуль, который с помощью интерфейсов (а Ado - это как раз набор интерфейсов) может к этому самому Ado подключаться. Следовательно, если мы в Ado создадим подключение к тому или иному серверу БД, то с помощью этого модуля можно через посредство Ado таскать оттуда данные.

[iskander]

Если я правильно путаю, есть еще возможность перекодировки в обработчиках OnGetText/OnSetText строковых полей TSQLQuery.