如何知道bde中的alias所指向的数据库的目录？.txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 24 行

如何知道BDE中的Alias所指向的数据库的目录？ (2000年11月20日) 

本站更新  分类:   作者:srw  推荐:   阅读次数:489  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
下面这段程序, 可以查出某一个 Alias 的目录,不妨可以参考看看:
// Delphi 1.0 取得 Alias 的实际路径 
// uses DB, DBTables, DBConsts, DbiTypes, DbiProcs, DbiErrs; 
function GetAliasPath(const sAliasName: string): string;
var
szName: array[0..100] of char;
Desc: DBDesc;
wResult: DBIResult;
begin
Result := '';
StrPLCopy(szName, sAliasName, High(szName));
wResult := DbiGetDatabaseDesc(szName, @Desc);
if wResult = DBIERR_NONE then
Result := StrPas(Desc.szPhyName);
end;