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

Written on . Posted in [Delphi] Базы данных. BDE

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

форум delphi firemonkey