用程序如何判断一个指定IP（如:192.168.0.1）上的SQLserver服务是否开启？

Question

如题。请高人赐教......

Answer 1

可以用这样的方法捕获错误
try
  ADOConnection.Connected:=True;
except
  //在这里捕获
end

Answer 2

【转贴】
//定义个读取连接配置的函数从fonfig.ini文件中读取数据库连接配置；
function GetConnectionString(aType, aUser, aPwd, aDataBase,
  aServer: string): string;
begin
  Result := '';
  if aType = 'ACCESS' then
  begin
    Result := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;';
    Result := Result + 'Data Source=' + aDataBase;
  end;
  if aType = 'SQL' then
  begin
    Result := 'Provider=SQLOLEDB.1;Persist Security Info=False;';
    Result := Result + 'User ID=' + aUser + ';';
    Result := Result + 'Password=' + aPwd + ';';
    Result := Result + 'Initial Catalog=' + aDataBase + ';';
    Result := Result + 'Data Source=' + aServer;
  end;
  if aType = 'ODBC' then
  begin
    Result := 'Provider=MSDASQL.1;Persist Security Info=False;';
    Result := Result + 'Data Source=' + aServer + ';';
    Result := Result + 'Initial Catalog=' + aDataBase;
  end;
end;procedure TPasswordDlg.FormCreate(Sender: TObject);var
  IniFile: TIniFile;
  FUser,FPwd,FServer,FDataBase:string;
begin
  IniFile :=Tinifile.Create( ExtractFilePath(Paramstr(0))+'config.ini');
  try
    FUser := IniFile.ReadString('Current Setting', 'User', '');
    FPwd := DecodeString(IniFile.ReadString('Current Setting', 'Pwd', ''));
    FServer := IniFile.ReadString('Current Setting', 'Server', '');
    FDataBase := IniFile.ReadString('Current Setting', 'DataBase', '');
    ADOConnection1.Connected := False;
    ADOConnection1.ConnectionString :=GetConnectionString('SQL', FUser, FPwd,
    FDataBase, FServer);
  finally
    IniFile.Free;
  end;
  times:=0
end;//以下为config.ini文件的内容；
[Current Setting]
User=sa
Pwd=eml5dWhlYmk=
Server=10.10.242.1
DataBase=shuini