15 мая "Исходники.РУ" отмечают 20-летие присутствия в сети!
Поздравляем всех причастных и неравнодушных с юбилеем сайта!
И огромное спасибо всем, кто был с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как узнать, доступен ли в сети сервер MS SQL

Здесь представлена функция, выполняющая проверку доступности MS SQL сервера.

Function CheckMSSQLServer(fServerName, fUserName, fPsw : String) : Bool;
Var
  wDb : TDatabase;
begin  // Check if MS SQL Server is reachable
  // Важно! BDE Должна быть установлена
  Result := False;
  wDb := TDatabase.Create(nil);

  with wDb do
    begin
      DatabaseName := 'wDbDatabaseName'; // arbitrary name, must be unique
                                         // in current Session
      Params.Values['SERVER Name'] := fServerName;
      Params.Values['USER Name']   := fUserName;
      Params.Values['PASSWORD']    := fPsw;
      LoginPrompt := False;
    end;

  try
    wDb.DriverName := 'MSSQL';
    try
      wDb.Connected := True;
      wDb.Connected := False;
    except
      ShowMessage('Server is not reachable');
    end;
    Result := True;
  finally
    wDb.Free;
  end;
end;