Информация о псевдониме BDE

Written on 18 Октября 2007. Posted in [Delphi] Базы данных. BDE

var MyAliasPath: string;
const AliasName='MyAlias';

{**** Получаем из BDE путь MyAlias}

ParamsList:= TStringList.Create;

try

with Session do

begin

Session.GetAliasNames(ParamsList);

Session.GetAliasParams(AliasName,ParamsList);

MyAliasPath:=Copy(ParamsList[0],6,50)+'\';

end;

finally

ParamsList.Free;

end;

uses 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;