实
实况狐狸
Unregistered / Unconfirmed
GUEST, unregistred user!
如何得到局域网内所有SQLSever服务器的HOST？
我记得曾经有过一篇文章是关于这个话题的，但是当时他所提供的方法是在当前系统安装了SQLSever的前提下的，如果换到其他的机器则不行，会提示“没有找到注册类”什么的，下面是他的源码：
{=================================================================
功 能: 返回网络中SQLServer列表
参 数:
List: 需要填充的List
返回值: 成功: True,并填充List 失败 False
备 注:
版 本:
1.0 2002/10/02 22:44:00
=================================================================}
Function GetSQLServerList(var List: Tstringlist): boolean;
var
i: integer;
sRetValue: String;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
List.Clear;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Add (Serverlist.item(i));
Result := True;
Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;
现在我是想问大家有没有一种办法能够在不安装SQLSever的情况下检测出局域网内的SQLSever服务器HOST。（其实我感觉应该能办到，Delphi的ADOConnection连接数据库驱动时若选择SQLSever，然后点击next，然后就会从其下拉表中看到所有的SQLSever服务器HOST）
万望高手解决，谢谢！
我记得曾经有过一篇文章是关于这个话题的，但是当时他所提供的方法是在当前系统安装了SQLSever的前提下的，如果换到其他的机器则不行，会提示“没有找到注册类”什么的，下面是他的源码：
{=================================================================
功 能: 返回网络中SQLServer列表
参 数:
List: 需要填充的List
返回值: 成功: True,并填充List 失败 False
备 注:
版 本:
1.0 2002/10/02 22:44:00
=================================================================}
Function GetSQLServerList(var List: Tstringlist): boolean;
var
i: integer;
sRetValue: String;
SQLServer: Variant;
ServerList: Variant;
begin
Result := False;
List.Clear;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
for i := 1 to Serverlist.Count do
list.Add (Serverlist.item(i));
Result := True;
Finally
SQLServer := NULL;
ServerList := NULL;
end;
end;
现在我是想问大家有没有一种办法能够在不安装SQLSever的情况下检测出局域网内的SQLSever服务器HOST。（其实我感觉应该能办到，Delphi的ADOConnection连接数据库驱动时若选择SQLSever，然后点击next，然后就会从其下拉表中看到所有的SQLSever服务器HOST）
万望高手解决，谢谢！
