.NET (2)
Database (71)
Delphi IDE (90)
Network (39)
Printing (3)
Strings (12)
VCL (83)
Windows with Delphi (280)
Exchange Links
About this site
BDE alias info
This article has not been rated yet. After reading, feel free to leave comments and rate it.
The following function usees 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;
| ||
 |  |
Comments: