Советы по Delphi

         

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


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

[001316]



Содержание раздела