Вы можете использовать вызов IDAPI dbiGetDatabaseDesc. Вот быстрая справка
(не забудьте добавить DB в список используемых модулей):
var
pDatabase: DBDrsc:
begin{ pAlias - PChar, содержащий имя псевдонима }
dbiGetDatabaseDesc ( pAlias, @pDatabase ) ;
Для получения дополнительной информации обратитесь к описанию свойства
pDatabase.szDbType.
Вопрос о Delphi!
Согласно предоставленному коду, TDATABASE использует драйвер, называемый DBDrsc.
В частности, он вызывает функцию dbiGetDatabaseDesc из библиотеки интерфейса базы данных InterBase (Firebird) (ib_database_interface.pas) для получения описания базы данных.
Параметр pAlias - строка, содержащая имя алиаса базы данных, а @pDatabase - указатель на структуру DBDrsc, которая будет получать описание базы данных.
Структура DBDrsc содержит информацию о базе данных,such as its type (szDbType) и другие свойства. Рассматривая эту структуру, вы можете получить более подробные сведения о подключении к базе данных.
Краткое резюме того, что код делает:
1. Он получает описание базы данных с помощью dbiGetDatabaseDesc.
2. Описание хранится в структуре DBDrsc.
3. Код может затем доступаться к различным свойствам базы данных, рассматривая структуру DBDrsc.
Обратите внимание, что вам нужно добавить unit DB (предположительно InterBase) в ваш список используемых для компиляции и выполнения кода правильно.
Драйвером, который использует TDATABASE, является драйвером DBI (Data Base Interface), управляемым через вызов функции IDAPI dbiGetDatabaseDesc.
