【继续拜求】关于获取局域网内的服务器列表【已附上源码】 - 编程论坛

mohao1632010-03-23 16:32

程序代码：

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,comobj;

type
  Tserverlist = class(TForm)
    ListBox1: TListBox;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  serverlist: Tserverlist;

implementation

{$R *.dfm}
function GetSQLserverlit(var Alist:Tstrings ):Boolean;
var
SQLserverAPP: variant;
serverlist:variant;
i:integer ;
begin

Result:=True;

try

SQLserverAPP:=CreateOleobject('sqldmo.application');

serverlist:=sqlserverapp.listavailableSQLserver;

for i:=1 to serverlist.count do
   Alist.add(serverlist.item(i));
    SQLserverapp:=unassigned;
    serverlist:=unassigned;

except
    Result:=False;
end;

end;

end.

唉。。。。。这个是最基本的错误
你的procedure TFormSQLServerList.ListBox1Click(Sender: TObject);
没有begin end;
最后结束的时候没有end.
不知道你要在ListBox1Click的时候做什么操作，帮你把这个事件取消了。

[ 本帖最后由 mohao163 于 2010-3-23 16:34 编辑 ]