BDE alias info (Views: 28)
Problem/Question/Abstract: BDE alias info Answer: The following function uses the GetAliasParams method of TSession to get the directory mapping for an alias: uses DbiProcs, DBiTypes; function GetDataBaseDir(const Alias: string): string; {* Will return the directory of the database given the alias (without trailing backslash) *} 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; |