Поделиться через

Настройка значений рециркуляции приложений COM+

Для настройки значений переработки приложений для приложения COM+ можно использовать следующие методы.

Заметка

Невозможно переработать приложение COM+, которое было настроено для запуска в качестве службы Windows. Кроме того, библиотечные приложения наследуют свойства повторного использования и объединения от своего хост-процесса.

 

Средство администрирования служб компонентов

Чтобы настроить повторное использование приложений для приложения COM+, выполните следующие действия.

  1. В дереве консоли средства администрирования служб компонентов щелкните правой кнопкой мыши серверное приложение COM+, которое вы хотите перезапустить, а затем щелкните Свойства.

  2. На вкладке & очистки пула введите значения для лимита времени существования (минут), лимит памяти (КБ), время ожидания срока действия (минуты), предел вызоваи ограничение активациив зависимости от критериев, которые вы хотите использовать.

    • ограничение времени существования указывает максимальное количество минут, в течение которых процесс может выполняться до его перезапуска. Допустимый диапазон составляет от 0 до 30 240 минут (21 дней). Значение по умолчанию для количества минут — 0.
    • ограничение памяти указывает максимальный объем использования памяти процесса (в килобайтах) перед повторной обработкой процесса. Если использование памяти процесса превышает указанное число дольше одной минуты, процесс перезапускается. Допустимый диапазон составляет от 0 до 1048 576 КБ, а объем памяти по умолчанию — 0 КБ.
    • время истечения указывает количество минут ожидания, прежде чем принудительно завершить работу, для освобождения всех внешних ссылок на объекты в процессе. Допустимый диапазон составляет 1–1440 минут (24 часа), а время истечения срока действия по умолчанию — 15 минут. Это значение используется только в том случае, если оно уже определено, что процесс будет переработаться на основе других критериев.
    • предел вызова указывает максимальное количество вызовов, которые объекты приложений могут принимать перед повторной обработкой процесса. Допустимый диапазон составляет от 0 до 1 048 576 вызовов, а по умолчанию — 0.
    • ограничение активации указывает максимальное количество активаций объектов приложения, которые необходимо принять перед повторной обработкой процесса. Допустимый диапазон составляет от 0 до 1 048 576 активаций, а число активаций по умолчанию — 0.

    Заметка

    Если лимит времени существования, предел памяти, предел вызоваили значение ограничения активации равно 0 (значение по умолчанию), повторное использование приложения для этого критерия отключено. Если для всех четырех этих условий задано значение 0, для выбранного приложения отключается повторное использование приложений.

     

  3. Нажмите кнопку ОК.

Visual Basic

Следующая функция в Microsoft Visual Basic демонстрирует, как задать значения перезапуска приложений для любого выбранного серверного приложения COM+. Чтобы использовать его из Visual Basic, добавьте ссылку на библиотеку типов администратора COM+ .

Function SetMyApplicationRecycling( _
  strApplicationName As String, _
  lngLifetimeLimit As Long, _
  lngMemoryLimit As Long, _
  lngCallLimit As Long, _
  lngActivationLimit As Long, _
  lngExpirationTimeout As Long _
) As Boolean  ' Return False if any errors occur.

    SetMyApplicationRecycling = False  ' Initialize the function.
    On Error GoTo My_Error_Handler  ' Initialize error handling.

    Dim objCatalog As COMAdmin.COMAdminCatalog
    Dim objAppCollection As COMAdmin.COMAdminCatalogCollection
    Dim objApplication As COMAdmin.COMAdminCatalogObject
    Set objCatalog = CreateObject("COMAdmin.COMAdminCatalog")
    Set objAppCollection = objCatalog.GetCollection("Applications")
    objAppCollection.Populate
    For Each objApplication In objAppCollection
        With objApplication
            If .Name = strApplicationName Then
                .Value("RecycleLifetimeLimit") = lngLifetimeLimit
                .Value("RecycleMemoryLimit") = lngMemoryLimit
                .Value("RecycleCallLimit") = lngCallLimit
                .Value("RecycleActivationLimit") = lngActivationLimit
                .Value("RecycleExpirationTimeout") = lngExpirationTimeout
                MsgBox strApplicationName & _
                  " recycling values are now set to the following: " & _
                  vbNewLine & vbNewLine & _
                  "Lifetime Limit = " & lngLifetimeLimit & vbNewLine & _
                  "Memory Limit = " & lngMemoryLimit & vbNewLine & _
                  "Call Limit = " & lngCallLimit & vbNewLine & _
                  "Activation Limit = " & lngActivationLimit & vbNewLine _
                  & "Expiration Timeout = " & lngExpirationTimeout
                Exit For
            End If
        End With
    Next
    objAppCollection.SaveChanges
    Set objApplication = Nothing
    Set objAppCollection = Nothing
    Set objCatalog = Nothing
    SetMyApplicationRecycling = True  ' Successful end to procedure
    Exit Function
    
My_Error_Handler:  ' Replace with specific error handling.
    MsgBox "Error # " & Err.Number & " (Hex: " & Hex(Err.Number) _
      & ")" & vbNewLine & Err.Description
    Set objApplication = Nothing
    Set objAppCollection = Nothing
    Set objCatalog = Nothing
End Function

Чтобы использовать функцию, укажите строковое значение для имени приложения и целочисленных значений для требуемых параметров перезапуска приложения. В следующем коде Visual Basic показано, как задать значение RecycleLifetimeLimit значение 5, значение RecycleMemoryLimit значение 10, значение RecycleCallLimit значение 9, значение RecycleActivationLimit значение 100 и значение RecycleExpirationTimeout значение 15.

Sub Main()
    If Not SetMyApplicationRecycling("MyApp", 5, 10, 9, 100, 15) Then
        MsgBox "SetMyApplicationRecycling failed."
    End If
End Sub

Основные понятия повторного использования приложений COM+