Советы по 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; end;

[001217]



Содержание раздела