板坯加热炉图片:delphi 中如何获取局域网内有效的SQL服务器名称

给你一段代码例子把，很简单

function GetSQLServerList(Strings:TStrings):boolean;

function TMain.GetSQLServerList(Strings: TStrings): boolean;
var // 取得局域网内有效的SQL服务器名称
SQLServer: Variant;
ServerList: Variant;
i,sercount:integer;
begin
Strings.Clear;
result:=false;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
sercount:= ServerList.Count;
if sercount>0 then Result:=True;
for i:=1 to sercount do
if ServerList.item(i)<>''then Strings.Add(ServerList.item(i));
SQLServer := NULL;
serverList := NULL;
except
result:=false;
end;
end;
说明：SQLDMO 是一人dcom服务，只有在安装SQL的机子里才有，就像word一样的， SQLDMO这方面的资料很少，它能完成所有SQLSERVR的所有功能 在程序单元部分，必须加入ComCtrls,comobj 单元才可访问。

//初始化列表框
if GetSQLServerList(ComboBox1.Items) then
begin
ComboBox1.ItemIndex:=0;
end;

function GetSQLServerList(Strings:TStrings):boolean;

function TMain.GetSQLServerList(Strings: TStrings): boolean;
var // 取得局域网内有效的SQL服务器名称
SQLServer: Variant;
ServerList: Variant;
i,sercount:integer;
begin
Strings.Clear;
result:=false;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
sercount:= ServerList.Count;
if sercount>0 then Result:=True;
for i:=1 to sercount do
if ServerList.item(i)<>''then Strings.Add(ServerList.item(i));
SQLServer := NULL;
serverList := NULL;
except
result:=false;
end;
end;
说明：SQLDMO 是一人dcom服务，只有在安装SQL的机子里才有，就像word一样的， SQLDMO这方面的资料很少，它能完成所有SQLSERVR的所有功能 在程序单元部分，必须加入ComCtrls,comobj 单元才可访问。

//初始化列表框
if GetSQLServerList(ComboBox1.Items) then
begin
ComboBox1.ItemIndex:=0;
end;

function GetSQLServerList(Strings:TStrings):boolean;

函数实现如下：
function TMain.GetSQLServerList(Strings: TStrings): boolean;
var // 取得局域网内有效的SQL服务器名称
SQLServer: Variant;
ServerList: Variant;
i,sercount:integer;
begin
Strings.Clear;
result:=false;
try
SQLServer := CreateOleObject('SQLDMO.Application');
ServerList := SQLServer.ListAvailableSQLServers;
sercount:= ServerList.Count;
if sercount>0 then Result:=True;
for i:=1 to sercount do
if ServerList.item(i)<>''then Strings.Add(ServerList.item(i));
SQLServer := NULL;
serverList := NULL;
except
result:=false;
end;
end;
说明：SQLDMO 是一人dcom服务，只有在安装SQL的机子里才有，就像word一样的， SQLDMO这方面的资料很少，它能完成所有SQLSERVR的所有功能 在程序单元部分，必须加入ComCtrls,comobj 单元才可访问。

具体应用如下：

//初始化列表框
if GetSQLServerList(ComboBox1.Items) then
begin
ComboBox1.ItemIndex:=0;
end;