Советы по Delphi
Информация о псевдонимах BDE
Как через конфигурацию IDAPI получить физический каталог расположения базы данных, зная ее псевдоним?
Обратите внимание на метод GetAliasParams класса TSession.
Возвращенная строка будет содержать искомый путь.
Я пользуюсь следующей функцией:
| uses DbiProcs, DBiTypes; function GetDataBaseDir(const Alias : string): String; (* Возвращает каталог расположения базы данных по заданному псевдониму (без обратного слеша) *)var sp : PChar;Res : pDBDesc;begin tryNew(Res);sp := StrAlloc(length(Alias)+1);StrPCopy(sp,Alias);if DbiGetDatabaseDesc(sp,Res) = 0then Result := StrPas(Res^.szPhyName)else Result := '';finallyStrDispose(sp);Dispose(Res);end;end; |
