delphi 判断SQL Server 服务器是否安装与开启.pdf

踏雪无痕
delphi 判断SQL Server 服务器是否安装与开启
分类: Delphi 2011-11-25 14:27 357人阅读评论(0) 收藏举报
1. 问题简介:
       一般情况下,使用程序连接数据库的时候,当数据库服务器不存在,或者数据库服务器没有启动
的时候,
会导致数据库连接失败,所花费的时间很长。所以,在进行连接前,有必要对这些做出判断,然后返回给
用户一
个正确的提示信息,减少等待的时间。
 
2. 数据库服务器连接不上,可以分成以下几种情况:
1>. 根本就不存在数据库服务器,及系统根本就没有安装数据库服务器。
2>. 系统安装了数据库服务器,但是数据库服务器没有开启。
3>. 数据库服务器开启了,但是处于【暂停】或者【停止】的状态。
4>. 当然还有最常见的,就是连接信息有问题。
 
解决办法:
,直接使用异常提供的信息,Delphi的异常中,提供的错误类型很完善。
例如:
procedure (Sender: TObject);
begin
  try
      :=True;
  except
      on   E:exception   do
         Showmessage()
  end;
end;
注意: 但是在数据库服务【停止】或者【未安装】的情况下,由于连接数据库抛出异常有一个超时时间,
       所以提示用户连接不上所需时间很长,所以可以先判断是否安装,和数据库服务器是否开启(需要以下办
法),
      然后又异常来判断服务器是在【启动】状态,还是在【暂停】状态。
Server数据库。
uses    Registry;
procedure (Sender: TObject);
var
  ARegistry: Tregistry;
  cdkey:string;
begin
  ARegistry := ; 
  := HKEY_LOCAL_MACHINE;
  try
    ('SOFTWARE\MICROSOFT\MICROSOFT SQL SERVER\80\Registration',
False);
    cdkey := ('CD_KEY');
    if cdKey ='' then
      showmessage('没有安装SQL Server数据库')
    else
      showmessage('安装了SQL Server数据库')
1
showmessage('安装了SQL Server数据库')
  except
    ;
  end;
end;
注意:<1>.如果安装的是绿色版,注册表中不存在信息,不可以使用这种办法。
           <2>.安装S