请教BDE配置问题???急急急 是这样的,我是用BDE与ORacle相连接,配置是都可以的,BDE数据库别名是Budget,Budget的ServerName是DBNAME。我想知道如何实现在Delphi中动态获得它的ServerName值DBNAME????高分求救!!!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 with Database1.Params dobegin Clear; Add('Server Name=' + yourservername); ......end;Database.Connected := True procedure TForm1.BitBtn1Click(Sender: TObject);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); //得到数据库别名DBNAMEend;方法二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; 老兄,你发那么多贴呀,分太多了,用Session可以,上面的都行,我不说了procedure TForm1.BitBtn1Click(Sender: TObject);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; 都不是我所想要的结果,各位大虾说的都是获得数据库别名,而不是ServerName,这个ServerName也就是Oracle中的Net8的服务名,我就是想要的是这个结果。 代理服务器的问题 在TADOQuery的返回结果上再执行查询? 不公平啊!!!!!!!!!!!! 关于线程中图片内容丢失的问题 请教如何取局域网内指定的一台电脑的系统时间? SOS!我用GHOST备份C盘时,误将C盘覆盖到D盘。谁能将D盘恢复? 再打包过程中,如何解决BDE的安装? 有关IE问题 高分诱惑(50分)高手请进,再请教:sqlserver中的一个字段:varchar(500),如何显示在dbmemo中 如何在delphi中直接控制sqlserver的启动和停止??(请附范例) 求助!!!数据输入和输出问题 遇到一个非常奇怪的问题(在线等待)
begin
Clear;
Add('Server Name=' + yourservername);
......
end;
Database.Connected := True
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;