Получение пути псевдонима и таблицы 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
;

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

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

Категории

Статьи

Советы