end;

  end;

finally

   dmoBack:=nil;

   backupdrv:=nil;

end;

end;

另外，我还要举一个例子来说明如何使用刚开始提到的Application对象。这个方法是取得所有可用（也就是可到达可连接）的Sql Server实例的名字。

function TDBCTRL.GetServerList(var ServerList: TStringList): Boolean;

var

  App:_Application;  //Application对象

  NList:NameList;   //这个NameList也是ＳＱＬ－ＤＭＯ中的一个对象

  I:integer;

begin

  try

    App:=CoApplication.Create ;

    NList:=App.ListAvailableSQLServers;　　

//取得所有可用的ＳＱＬＳｅｒｖｅｒ实例名

    for I:=0 to NLIst.Count-1 do

         ServerList.Add(NList.Item(I));

  finally

    App:=nil;　　//释放对象

  end;

end;

当然，TDBCTRL

 << 上一页  [11] [12]  下一页