Используйте Session.GetAliasParams. В ответ вы получите объект Tstrings, откуда вы можете получить значение для переменной 'PATH". Для получения дополнительной информации обратитесь к электронной справке к разделу, описывающему TSession. Объект Session объявлен в модуле DB.
usesdb; var
aliaspath: string
[128]; begin
aliaspath := Session.GetAliasParams['MyAlias'].values['PATH']; end
;
usesSysUtils,DbiProcs, DBiTypes; ... function
GetDataBaseDir(const
Alias : string
): String
; (* Возвращает каталог базы данных, на которую ссылается псевдним (без конечного обратного слеша) *) var
sp: PChar; Res: pDBDesc; begin
try
New(Res); sp := StrAlloc(length(Alias)+1); StrPCopy(sp,Alias); if
DbiGetDatabaseDesc(sp,Res) = 0 then
Result := StrPas(Res^.szPhyName) else
Result := ''; finally
StrDispose(sp); Dispose(Res); end
; end
;