Получение пути псевдонима и таблицы 3

Советы » Alias » Получение пути псевдонима и таблицы 3

Используйте Session.GetAliasParams. В ответ вы получите объект Tstrings, откуда вы можете получить значение для переменной 'PATH". Для получения дополнительной информации обратитесь к электронной справке к разделу, описывающему TSession. Объект Session объявлен в модуле DB.

uses

db; var

aliaspath: string

[128]; begin

aliaspath := Session.GetAliasParams['MyAlias'].values['PATH']; end

;

uses

SysUtils,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

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com