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

Материал из DRKB

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

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


function CheckMSSQLServer(AServerName, AUserName, APsw: 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'] := AServerName;
    Params.Values['USER Name']   := AUserName;
    Params.Values['PASSWORD']    := APsw;
    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;


Source: Взято из http://forum.sources.ru
ID: 02777