真实的国产乱ⅩXXX66竹夫人,五月香六月婷婷激情综合,亚洲日本VA一区二区三区,亚洲精品一区二区三区麻豆

成都創(chuàng)新互聯(lián)網(wǎng)站制作重慶分公司

Delphi下檢查SQLServer服務(wù)器當(dāng)前運(yùn)行狀態(tài)！

Delphi下檢查SQL Server服務(wù)器當(dāng)前運(yùn)行狀態(tài)！
要求：Ｄｅｌｐｈｉ下隨時(shí)監(jiān)控ＳＱＬ?。樱澹颍觯澹驙顟B(tài)。
１、命令提示符下可用：TELNET 1433　　檢查。
２、Ｄｅｌｐｈｉ下如何模擬實(shí)現(xiàn)上述功能。

烏拉特中網(wǎng)站建設(shè)公司成都創(chuàng)新互聯(lián)公司,烏拉特中網(wǎng)站設(shè)計(jì)制作，有大型網(wǎng)站制作公司豐富經(jīng)驗(yàn)。已為烏拉特中1000多家提供企業(yè)網(wǎng)站建設(shè)服務(wù)。企業(yè)網(wǎng)站搭建\成都外貿(mào)網(wǎng)站建設(shè)要多少錢，請(qǐng)找那個(gè)售后服務(wù)好的烏拉特中做網(wǎng)站的公司定做！

----------
原來(lái)做過(guò)：
function GetSqlServerStatus(lpszComputerName: LPCTSTR): Integer;
var
ssStatus: SERVICE_STATUS;
dwOldCheckPoint: DWORD;
dwStartTickCount: DWORD;
dwWaitTime: DWORD;
dwStatus: DWORD;
lpszServiceName: LPCTSTR;
schSCManager: SC_HANDLE;
schService: SC_HANDLE;
begin
if (lpszComputerName <> nil) and
((StrComp(lpszComputerName, \'127.0.0.1\') = 0) or (StrComp(lpszComputerName, \'.\') = 0)) then
lpszComputerName := nil;
lpszServiceName := \'MSSQLServer\';
schSCManager := OpenSCManager(
lpszComputerName, //Computer name
nil, // ServicesActive database
SC_MANAGER_ALL_ACCESS); // full access rights

if schSCManager = 0 then
GetSqlServerStatus := -1; //Machine not exists
schService := OpenService(
schSCManager, // SCM database
lpszServiceName, // service name
SERVICE_ALL_ACCESS);
if schService = 0 then begin
CloseServiceHandle(schService);
GetSqlServerStatus := -2; //SqlServer Service not Exists
end;
if not QueryServiceStatus(
schService, // handle to service
ssStatus) then begin // address of status information structure
GetSqlServerStatus := -3; //MyErrorExit(\'QueryServiceStatus\');
Result := ssStatus.dwCurrentState;
end;
//----------
網(wǎng)上找的,看看有用不
uses Registry, ShellAPI, FileCtrl, Unit2;
{$R *.DFM}

function IsNT: Boolean;
begin
Result := (Win32MajorVersion >= 4) and (Win32Platform = VER_PLATFORM_WIN32_NT);
end;
var
IsExists: Boolean = False;
function IsExistsMSSQL: Boolean;
const
MSSQLSERVER = \'SOFTWARE/Microsoft/MSSQLServer\';
Reg: TRegistry;
Result := IsExists;
if Result then Exit;
if not IsNT then
Reg := TRegistry.Create else
Reg := TRegistry.Create(KEY_READ);
with Reg do
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Result := KeyExists(MSSQLSERVER);
IsExists := Result;
finally
Free;
end;
MSSQL_98StartCommand = \'scm -action 1 -pwd "%s"\';
MSSQL_NTStartCommand = \'net start mssqlserver\';
MSSQL_98StopCommand = \'scm -action 6\';
MSSQL_NTStopCommand = \'net stop mssqlserver\';
function StartMSSQL(Pass: string): Boolean;
S: string;
Screen.Cursor := crHourGlass;
if not IsNT then
S := Format(MSSQL_98StartCommand, [Pass]) else
S := MSSQL_NTStartCommand;
try
WinExec(PChar(S), SW_HIDE);
Result := True;
except
Result := False;
end;
Screen.Cursor := crDefault;
function StopMSSQL: Boolean;
WinExec(MSSQL_98StopCommand, SW_HIDE) else
WinExec(MSSQL_NTStopCommand, SW_HIDE);
procedure TForm1.Button2Click(Sender: TObject);
if StartMSSQL(edPass.Text) then
MessageBox(Handle, \'啟動(dòng)完成\', \'完成\', MB_OK + MB_ICONINFORMATION);
----------------------------------------------
program Project1;
uses
Windows,
WinSvc;
procedure RunMSSQLSERVICE;
SrvHandle: SC_HANDLE;
Service_Status: _SERVICE_STATUS;
SrvStatus : Integer;
try
SrvHandle := OpenSCManager(\'\', SERVICES_ACTIVE_DATABASE, SC_MANAGER_ALL_ACCESS);
SrvHandle := OpenService(SrvHandle, PChar(\'MSSQLServer\'), SERVICE_QUERY_STATUS or SERVICE_START);
if QueryServiceStatus(SrvHandle, Service_Status)
then
SrvStatus := Service_Status.dwCurrentState;
if SrvStatus = SERVICE_STOPPED
Winexec(\'scm -action 1 -slient 1 -service mssqlserver \',sw_Normal);
except
RunMSSQLSERVICE;
end.
獲取SQL Server服務(wù)器列表的幾種方法

一、 SQL DMO
描述：SQL Distributed Management Objects（SQL分布式管理對(duì)象），存在于SQLDMO.dll文件中，實(shí)際上是一個(gè)COM 對(duì)象，通過(guò)調(diào)用SQL DMO的ListAvailableSQLServers方法取得。
列表類型：列舉裝有“客戶端”和“服務(wù)端”的計(jì)算機(jī)。
適用條件：裝有 SQL Server，且有SQLDMO.dll文件。
速度：中
調(diào)用示例：GetSQLServerList(ListBox1.items);
代碼：
ComObj;
function GetSQLServerList(var AList: TStrings): Boolean;
SQLServerApp: Variant;
ServerList: Variant;
i: Integer;
Result := True;
try
SQLServerApp := CreateOleObject(\'SQLDMO.Application\');
ServerList := SQLServerApp.ListAvailableSQLServers;
for i := 1 to ServerList.Count do
AList.Add(ServerList.Item(i));
SQLServerApp := Unassigned;
ServerList := Unassigned;
except
Result := False;
二、 NetServerEnum
描述：網(wǎng)絡(luò)服務(wù)函數(shù)，存在于NetApi32.dll文件中；通過(guò)NetServerEnum函數(shù)可取得裝有SQL Server服務(wù)端的計(jì)算機(jī)列表，只裝有SQL Server客戶端的計(jì)算機(jī)將不會(huì)被列舉其中；如果一臺(tái)計(jì)算機(jī)的SQL Server服務(wù)剛剛啟動(dòng)，那么此函數(shù)將會(huì)過(guò)很久才能取到該計(jì)算機(jī)。
列表類型：僅列舉裝有“服務(wù)端”的計(jì)算機(jī)。
適用條件：有NetApi32.dll文件。
速度：快
type
NET_API_STATUS = DWORD;
PServerInfo100 = ^TServerInfo100;
_SERVER_INFO_100 = record
sv100_platform_id: DWORD;
sv100_name: LPWSTR;
{$EXTERNALSYM _SERVER_INFO_100}
TServerInfo100 = _SERVER_INFO_100;
SERVER_INFO_100 = _SERVER_INFO_100;
{$EXTERNALSYM SERVER_INFO_100}
const
NERR_Success = 0;
MAX_PREFERRED_LENGTH = DWORD(-1);
SV_TYPE_SQLSERVER = $00000004;
function NetApiBufferAllocate(ByteCount: DWORD; var Buffer: Pointer):
NET_API_STATUS; stdcall; external \'netapi32.dll\' name \'NetApiBufferAllocate\';
function NetServerEnum(ServerName: LPCWSTR; Level: DWORD; var BufPtr: Pointer;
PrefMaxLen: DWORD; var EntriesRead: DWORD; var TotalEntries: DWORD;
ServerType: DWORD; Domain: LPCWSTR; ResumeHandle: PDWORD): NET_API_STATUS;
stdcall; external \'netapi32.dll\' name \'NetServerEnum\';
function NetApiBufferFree(Buffer: Pointer): NET_API_STATUS; stdcall; external
\'netapi32.dll\' name \'NetApiBufferFree\';
function GetSQLServerList(var AList: TStrings; pwcServerName: PWChar = nil;
pwcDomain: PWChar = nil): Boolean;
NetAPIStatus: DWORD;
dwLevel: DWORD;
pReturnSvrInfo: Pointer;
dwPrefMaxLen: DWORD;
dwEntriesRead: DWORD;
dwTotalEntries: DWORD;
dwServerType: DWORD;
dwResumeHandle: PDWORD;
pCurSvrInfo: PServerInfo100;
i, j: Integer;
dwLevel := 100;
pReturnSvrInfo := nil;
dwPrefMaxLen := MAX_PREFERRED_LENGTH;
dwEntriesRead := 0;
dwTotalEntries := 0;
dwServerType := SV_TYPE_SQLSERVER; //服務(wù)器類型
dwResumeHandle := nil;
NetApiBufferAllocate(SizeOf(pReturnSvrInfo), pReturnSvrInfo);
try
NetAPIStatus := NetServerEnum(pwcServerName, dwLevel, pReturnSvrInfo,
dwPrefMaxLen, dwEntriesRead, dwTotalEntries, dwServerType, pwcDomain,
dwResumeHandle);
if ((NetAPIStatus = NERR_Success) or (NetAPIStatus = ERROR_MORE_DATA)) and
(pReturnSvrInfo <> nil) then
begin
pCurSvrInfo := pReturnSvrInfo;
// 循環(huán)取得所有SQL Server服務(wù)器
i := 0;
j := dwEntriesRead;
while i < j do
begin
if pCurSvrInfo = nil then
Break;
with AList do
Add(pCurSvrInfo^.sv100_name);
Inc(i);
Inc(pCurSvrInfo);
end;
end;
finally
if Assigned(pReturnSvrInfo) then
NetApiBufferFree(pReturnSvrInfo);
end;
三、 SQLBrowseConnect
描述：ODBC函數(shù)（Microsoft Open Database Connectivity，開(kāi)放式數(shù)據(jù)庫(kù)連接），存在于odbc32.dll文件中；通過(guò)SQLBrowseConnect函數(shù)可返回連接字符串信息，包括DSN、DRIVER、SERVER、UID、PWD、APP、WSID、DATABASE、LANGUAGE等信息。在函數(shù)GetODBCInfo 中傳入itServer、itDatabase、itLanguage可分別取得“服務(wù)器”、“數(shù)據(jù)庫(kù)”及“語(yǔ)言”等信息列表，其中 itDatabase、itLanguage默認(rèn)取本地信息，取遠(yuǎn)程信息請(qǐng)自行修改“\'Driver={SQL Server};SERVER=(local);UID=sa;PWD=\'”連接字符串。
適用條件：由于MDAC 2.6 、2.6 SP1、2.7和Microsoft ODBC Driver for SQL Server 2000 2000.80.194有Bug，因此在這些版本中此函數(shù)無(wú)法取得Microsoft SQL Server 7.0的服務(wù)器。
調(diào)用示例：GetODBCInfo(ListBox1.items, itServer);
TInfoType = (itServer, itDatabase, itLanguage);
SQLHANDLE = Pointer;
SQLSMALLINT = SHORT;
SQLINTEGER = LongInt;
PSQLHANDLE = ^SQLHANDLE;
SQLHENV = SQLHANDLE;
SQLHDBC = SQLHANDLE;
SQLRETURN = SQLSMALLINT;
SQLCHAR = UCHAR;
PSQLCHAR = ^SQLCHAR;
SQLPOINTER = Pointer;
PSQLSMALLINT = ^SQLSMALLINT;
function SQLAllocHandle(HandleType: SQLSMALLINT; InputHandle: SQLHANDLE;
OutputHandle: PSQLHANDLE): SQLRETURN; stdcall; external \'odbc32.dll\' name
\'SQLAllocHandle\';
function SQLSetEnvAttr(EnvironmentHandle: SQLHENV; Attribute: SQLINTEGER;
Value: SQLPOINTER; StringLength: SQLINTEGER): SQLRETURN; stdcall; external
\'odbc32.dll\' name \'SQLSetEnvAttr\';
function SQLBrowseConnect(hdbc: SQLHDBC; szConnStrIn: PSQLCHAR;
cbConnStrIn: SQLSMALLINT; szConnStrOut: PSQLCHAR;
cbConnStrOutMax: SQLSMALLINT; pcbConnStrOut: PSQLSMALLINT): SQLRETURN;
stdcall; external \'odbc32.dll\' name \'SQLBrowseConnect\';
function SQLDisconnect(ConnectionHandle: SQLHDBC): SQLRETURN; stdcall; external
\'odbc32.dll\' name \'SQLDisconnect\';
function SQLFreeHandle(HandleType: SQLSMALLINT; Handle: SQLHANDLE): SQLRETURN;
stdcall; external \'odbc32.dll\' name \'SQLFreeHandle\';
SQL_HANDLE_ENV = 1;
SQL_HANDLE_DBC = 2;
SQL_NULL_HANDLE = LongInt(0);
SQL_SUCCESS = 0;
SQL_ERROR = -1;
SQL_ATTR_ODBC_VERSION = 200;
SQL_OV_ODBC3 = ULONG(3);
SQL_NTS = -3;
function GetODBCInfo(var AList: TStrings; InfoType: TInfoType): Boolean;
ConnStrOutMax = 4824;
SplitterStr = \'={\';
HENV: SQLHENV;
HDBC: SQLHDBC;
RetCode: SQLRETURN;
ConnStrOut: PSQLCHAR;
cbConnStrOut: SQLSMALLINT;
ConnStrIn, TmpStr: string;
TmpPos: Integer;
case InfoType of
itServer: ConnStrIn := \'Driver={SQL Server}\';
itDatabase, itLanguage: ConnStrIn := \'Driver={SQL Server};SERVER=(local);UID=sa;PWD=\';
Result := False;
// 分配 ODBC 環(huán)境句柄
RetCode := SQLAllocHandle(SQL_HANDLE_ENV, SQLPOINTER(SQL_NULL_HANDLE), @HENV);
if RetCode = SQL_ERROR then
Exit;
// 設(shè)置 ODBC 版本
RetCode := SQLSetEnvAttr(HENV, SQL_ATTR_ODBC_VERSION, SQLPointer(SQL_OV_ODBC3), 0);
if RetCode <> SQL_SUCCESS then
// 分配數(shù)據(jù)庫(kù)連接句柄
RetCode := SQLAllocHandle(SQL_HANDLE_DBC, HENV, @HDBC);
GetMem(ConnStrOut, ConnStrOutMax);
RetCode := SQLBrowseConnect(HDBC, PSQLCHAR(ConnStrIn), SQL_NTS, ConnStrOut,
ConnStrOutMax, @cbConnStrOut);
if RetCode <> SQL_ERROR then
begin
TmpStr := PChar(ConnStrOut);
if InfoType = itLanguage then
Delete(TmpStr, 1, AnsiPos(\'};\', TmpStr) + 1);
Delete(TmpStr, 1, AnsiPos(SplitterStr, TmpStr) + 1);
Delete(TmpStr, AnsiPos(\'}\', TmpStr), Length(TmpStr));
while TmpStr <> \'\' do
TmpPos := AnsiPos(\',\', TmpStr);
if TmpPos > 0 then
AList.Add(Copy(TmpStr, 1, TmpPos - 1))
else
AList.Add(TmpStr);
TmpStr := \'\';
Delete(TmpStr, 1, TmpPos)
Result := True;
FreeMem(ConnStrOut, ConnStrOutMax);
finally
if Assigned(HDBC) then
SQLDisconnect(HDBC);
SQLFreeHandle(SQL_HANDLE_DBC, HDBC);
HDBC := nil;
if Assigned(HENV) then
SQLFreeHandle(SQL_HANDLE_ENV, HENV);
HENV := nil;
－－－－－－－－－－－－－－－－－－－
構(gòu)造一個(gè)連接字串，從一個(gè)ini文件讀取參數(shù)。
var AppIni: TIniFile;
IniFile, TFStr,: string;
Source, User, Passwd, DBase: string;
IniFile := ChangeFileExt(Application.ExeName, \'.INI\');
if FileExists(IniFile) then
begin
AppIni := TIniFile.Create(IniFile);
Source := AppIni.ReadString(\'DataBaseSet\', \'Source\', \'\');
User := AppIni.ReadString(\'DataBaseSet\', \'User\', \'\');
Passwd := AppIni.ReadString(\'DataBaseSet\', \'Passwd\', \'\');
DBase := AppIni.ReadString(\'DataBaseSet\', \'DBase\', \'\');
Provider := AppIni.ReadString(\'DataBaseSet\', \'Provider\', \'\');
//Provider := \'SQLOLEDB.1\'
if Ado.Passwd = \'\' then TFStr := \'False\' else TFStr := \'True\';
ADOCon.Close();
ADOCon.ConnectionString :=
\'Locale Identifier=2052\' +
\';Use Procedure for Prepare=1\' +
\';Auto Translate=True\' +
\';Packet Size=4096\' +
\';Persist Security Info=\' + TFStr +
\';Provider=\' + Ado.Provider +
\';Password=\' + Ado.Passwd +
\';Workstation ID=\' + Ado.Source +
\';Connect Timeout=\' + IntToStr(Ado.Time) +
\';User ID=\' + Ado.User +
\';Data Source=\' + Ado.Source +
\';Initial Catalog=\' + ADO.DBase;
ADOCon.Open();
Application.MessageBox(\'數(shù)據(jù)庫(kù)連接失敗，請(qǐng)通知系統(tǒng)管理員\', \'提示\', MB_ICONWARNING);


文章題目：Delphi下檢查SQLServer服務(wù)器當(dāng)前運(yùn)行狀態(tài)！
網(wǎng)站路徑：http://weahome.cn/article/cpscji.html

其他資訊

在線咨詢

微信咨詢

電話咨詢

028-86922220（工作日）

18980820575（7×24）

提交需求

返回頂部