【继续拜求】关于获取局域网内的服务器列表【已附上源码】
怎么样来实现这个我用的是listbox控件来实现
在form中添加了listbox之后在他出现的编辑代码框里输入
添加以下代码
procedure TFormSQLServerList.ListBox1Click(Sender: TObject);
function GetSQLserverList(var Alist:Tstrings):boolean;
var
sqlserverapp:variant;
serverlist:variant;
i:integer;
begin
Result:=true;
try
SQLserverapp:=Createoleobject('sqldmo.application');
serverlist:=SQLserverapp.listavailableSQLservers;
for i:=1 to serverlist.count do
Alist.add(serverList.item(i));
SQLserverApp:=unassigned;
serverlist:=unassigned;
except
result:=false;
end;
end;
但是编译的时候老是编译不过去
还提示这个
获取服务器列表源码.rar
(4.81 KB)
[ 本帖最后由 黑色稻子 于 2010-3-23 13:08 编辑 ]
