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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Используйте 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;

{/codecitation}

Добавить комментарий