1   
2   //---------------------------------------------------------------------------
3   
4   #include <vcl.h>
5   #include <vcl\bde.hpp>
6   #include <vcl\db.hpp>
7   
8   #pragma hdrstop
9   
10  #include "Unit1.h"
11  //---------------------------------------------------------------------------
12  #pragma package(smart_init)
13  #pragma resource "*.dfm"
14  TForm1 *Form1;
15  //---------------------------------------------------------------------------
16  __fastcall TForm1::TForm1(TComponent* Owner)
17          : TForm(Owner)
18  {
19  }
20  //---------------------------------------------------------------------------
21  AnsiString DBIGetAliasPath( AnsiString sAlias)
22  {
23      Screen->Cursor = crHourGlass;
24      AnsiString path = "";
25      hDBISes Session;
26      DbiInit(NULL);
27      DbiStartSession(NULL,Session,"");
28      DBIResult rslt;
29      DBDesc desc;
30  
31      rslt = DbiGetDatabaseDesc(sAlias.c_str(),&desc);
32      if (rslt==DBIERR_NONE)
33          path = String(desc.szPhyName);
34  
35      DbiCloseSession(Session);
36      DbiExit();
37      Screen->Cursor = crDefault;
38      return path;
39  }
40  
41  
42  void __fastcall TForm1::Button1Click(TObject *Sender)
43  {
44     Caption = DBIGetAliasPath("BCDEMOS");
45  }
46  //---------------------------------------------------------------------------