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


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;



Опубликовал admin
11 Мар, Вторник 2008г.



Программирование для чайников.