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

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 460 • TDictionary Custom Sort 6 504 • Fast Watermark Sources 6 290 • 3D Designer 9 236 • Sik Screen Capture 6 624 • Patch Maker 7 001 • Айболит (remote control) 7 009 • ListBox Drag & Drop 5 880 • Доска для игры Реверси 97 112 • Графические эффекты 7 209 • Рисование по маске 6 510 • Перетаскивание изображений 5 375 • Canvas Drawing 5 748 • Рисование Луны 5 457 • Поворот изображения 4 987 • Рисование стержней 3 541 • Paint on Shape 2 810 • Генератор кроссвордов 3 680 • Головоломка Paletto 2 964 • Теорема Монжа об окружностях 3 768 • Пазл Numbrix 2 486 • Заборы и коммивояжеры 3 169 • Игра HIP 2 136 • Игра Go (Го) 2 071 • Симулятор лифта 2 441 • Программа укладки плитки 2 116 • Генератор лабиринта 2 591 • Проверка числового ввода 2 265 • HEX View 2 594 • Физический маятник 2 208