是这样的,我是用BDE与ORacle相连接,配置是都可以的,BDE数据库别名是Budget,Budget的ServerName是DBNAME。我想知道如何实现在Delphi中动态获得它的ServerName值DBNAME????高分求救!!!!
解决方案 »
- 求教 文本到listview 不知道该怎么写
- 看了Delphi2005中C++ Builder的演示,可是在安装的时候却看不到C++ BUilder的影子
- 看看哦!!对我这个小妹妹给点建议啊!!谢谢!!!
- 请帮手,数据连接的简单问题,在线等……
- 各位大哥帮帮忙吧,一个关于系统任务栏的问题!
- 自定义文件格式的问题
- 一个简单的问题,怎么在delphi中写文件和读文件????请指教
- 利用API做的串口接收函数
- 请高手指点怎样学delphi
- Delphi的文档太差劲了!!!!!!!!!!!!!!!!!!!!!!!!!!
- 我想问一下有没有对源码编辑增强的插件,我用的7,要能像basic编辑器那样用不同的颜色显示不同部分的源码..
- 初学者请进,手把手教你学会用delphi制作发送邮件程序,并送源码
var
SList : TStringList;
DBName : String;
begin
SList := TStringList.Create;
Database1.Session.GetAliasParams(Database1.AliasName, SList);
DBName := Copy(SList.Strings[0], 13, Length(SList.Strings[0])-12);
ShowMessage(DBName);
SList.Free;
end;
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;方法二
procedure TForm1.Button1Click(Sender: TObject);
var
SList : TStringList;
ServerName : String;
begin
SList := TStringList.Create;
Session.GetAliasParams(Database1.AliasName, SList);
ServerName := Copy(SList.Strings[0], 13, Length(SList.Strings[0])-18);
ShowMessage(ServerName);
SList.Free;
end;
var
SList : TStringList;
DBName : String;
begin
SList := TStringList.Create;
Database1.Session.GetAliasParams(Database1.AliasName, SList);
DBName := Copy(SList.Strings[0], 13, Length(SList.Strings[0])-12);
ShowMessage(DBName);
SList.Free;
end;