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

原创

zhongguoren666 2023-05-08 15:11:02 博主文章分类：Delphi ©著作权

文章标签 sql server delphi 服务器数据库服务器 microsoft 文章分类 JavaScript 前端开发

©著作权归作者所有：来自51CTO博客作者zhongguoren666的原创作品，请联系作者获取转载授权，否则将追究法律责任

1. 问题简介：

一般情况下，使用程序连接数据库的时候，当数据库服务器不存在，或者数据库服务器没有启动的时候，

会导致数据库连接失败，所花费的时间很长。所以，在进行连接前，有必要对这些做出判断，然后返回给用户一

个正确的提示信息，减少等待的时间。

2. 数据库服务器连接不上，可以分成以下几种情况：
1>. 根本就不存在数据库服务器，及系统根本就没有安装数据库服务器。
2>. 系统安装了数据库服务器，但是数据库服务器没有开启。
3>. 数据库服务器开启了，但是处于【暂停】或者【停止】的状态。
4>. 当然还有最常见的，就是连接信息有问题。

解决办法：1.最简单的办法,直接使用异常提供的信息，Delphi的异常中，提供的错误类型很完善。
例如：
procedure TForm1.btn1Click(Sender: TObject);
begin
try
     adocon1.Connected:=True;
except
     on   E:exception   do
        Showmessage(E.message)
end;
end;

注意：但是在数据库服务【停止】或者【未安装】的情况下，由于连接数据库抛出异常有一个超时时间，
所以提示用户连接不上所需时间很长，所以可以先判断是否安装，和数据库服务器是否开启（需要以下办法），

然后又异常来判断服务器是在【启动】状态，还是在【暂停】状态。

2.通过注册表判断系统是否安装了SQL Server数据库。
uses    Registry;
procedure TForm1.btn1Click(Sender: TObject);
var
ARegistry: Tregistry;
cdkey:string;
begin
ARegistry := Tregistry.Create;
ARegistry.RootKey := HKEY_LOCAL_MACHINE;
try
    ARegistry.OpenKey('SOFTWARE\MICROSOFT\MICROSOFT SQL SERVER\80\Registration', False);
    cdkey := ARegistry.ReadString('CD_KEY');
    if cdKey ='' then
      showmessage('没有安装SQL Server数据库')
    else
      showmessage('安装了SQL Server数据库')
except
    ARegistry.Destroy;
end;
end;

注意：<1>.如果安装的是绿色版，注册表中不存在信息，不可以使用这种办法。
<2>.安装SQL Server之后卸载，注册表中的信息没有修改，所以判断可能是不正确，会提示已经安装。

3. 通过进程判断SQL Server数据库服务器是否开启

uses   Tlhelp32;
procedure   TForm1.Button1Click(Sender:   TObject);
var
    ProcessList   :   Thandle;
    pe   :   TPROCESSENTRY32;
    ProcList   :   TStringList;
    i   :   integer;
begin
    ProcList   :=   TStringList.Create;
    try
        ProcessList   :=   CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
        pe.dwSize   :=   sizeof(TPROCESSENTRY32);
        if   process32first(ProcessList,pe)   then
        begin
            ProcList.Add(pe.szexefile);
            while   process32next(ProcessList,pe)   do
                ProcList.Add(pe.szexefile);
        end;
        for   i   :=   0   to   ProcList.Count   -1   do
            if   ProcList[i]   =   'sqlservr.exe '   then
                  ShowMessage( 'SQL   Server   already   Run! ');
    finally
        ProcList.Free;
    end;
end;

注意：SQL Server服务器的三种状态：
<1>.【启动】：进程中有 'sqlservr.exe'，能进行访问连接。
<2>.【暂停】：进程中有 'sqlservr.exe'，不能进行访问连接。
<3>.【停止】：进程中没有 'sqlservr.exe'，不能进行访问连接。
在【暂停】或者【停止】的暂停下，不允许进行连接。

scm -action 1 -slient 1 -service mssqlserver //启动

scm -action 6 -slient 1 -service mssqlserver //停止

1. 问题简介：

一般情况下，使用程序连接数据库的时候，当数据库服务器不存在，或者数据库服务器没有启动的时候，

会导致数据库连接失败，所花费的时间很长。所以，在进行连接前，有必要对这些做出判断，然后返回给用户一

个正确的提示信息，减少等待的时间。