请教BDE配置问题？？？急急急

Question

是这样的，我是用BDE与ORacle相连接，配置是都可以的，BDE数据库别名是Budget,Budget的ServerName是DBNAME。我想知道如何实现在Delphi中动态获得它的ServerName值DBNAME????高分求救！！！！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
   MyStringList:TStringList;
begin
   MyStringList:=TStringlist.Create;
   Session.GetDataBaseNames(MyStringList);
   showmessage(MyStringList[0]);   //得到BDE别名Budget
   showmessage(Database1.AliasName);   //得到数据库别名DBNAME
end;);

Answer 2

上面的例子最后一个扩号和分号要删除
方法二
procedure TForm1.Button1Click(Sender: TObject);
var
  SList : TStringList;
  ServerName : String;
begin
  SList := TStringList.Create;
  Database1.Session.GetAliasParams(Database1.AliasName, SList);
  ServerName := Copy(SList.Strings[0], 13, Length(SList.Strings[0])-18);
  ShowMessage(ServerName);
  SList.Free;
end;