如何获得服务器名的方法(100分)

  • 主题发起人 主题发起人 tlwyz1
  • 开始时间 开始时间
T

tlwyz1

Unregistered / Unconfirmed
GUEST, unregistred user!
如果失去了服务器名,如何在客户端查找服务器名,采用什么函数或方法?
 
取的域服务器名
procedure Tfrm_login.FormCreate(Sender: TObject);
var
domain,computer:tstringlist;
i:integer;
begin
cmbx_choose.Clear;
domain:=tstringlist.Create;
computer:=tstringlist.Create;
GetServerList(domain);
//cmbx_choose.Items:=domain;
cmbx_choose.Items.Add(f_GetComputerName+' (本机)');
for i:=0 to domain.Count-1 do
begin
cmbx_choose.Items.Add(domain);
end;
cmbx_choose.ItemIndex:=0;
pnl_choose.Visible:=false;
height:=260;

end;
用sqldmo获得
procedure Tfrmmain.FormCreate(Sender: TObject);
var
app:_application;
i:integer;
nl:namelist ;
begin
app:=coapplication.Create;

nl:=app.ListAvailableSQLServers;
cmbsqlname.Clear;
for i:=0 to nl.Count-1 do
begin
cmbsqlname.Items.Add(nl.Item(i+1) )
end;
cmbsqlname.ItemIndex:=0;
end;
 
GetServerList 是什么类的方法?

_application coapplication;是什么?
 
后退
顶部