VB.NET. Попытка изменить общий метод Invoke на общий метод BeginInvoke с неожиданными проблемами.

Я использую довольно гладкий общий метод вызова для обновления пользовательского интерфейса из фоновых потоков. Я забыл, откуда я его скопировал (преобразовал его в VB.NET с С#), но вот он:

Теперь я хочу изменить это, чтобы создать функцию, которая возвращает Nothing, если не требуется вызов (или было отправлено исключение) или IAsyncResult, возвращенный из BeginInvoke, если требуется invoke. Вот что у меня есть:

Я хотел сделать это прежде всего, чтобы избежать блокировки. Проблема в том, что теперь я получаю ошибки при выполнении таких вызовов:

Это отлично работало с исходным методом Invoke (а не BeginInvoke). Теперь я получаю исключение "Объект ссылка не установлен на экземпляр объекта". Если я поставлю часы на SomeTextBox, он говорит

Может быть, что такие вызовы InvokeControl происходят из события System.Timers.Timer Elapsed. Его интервал составляет 500 мс, что должно быть более чем достаточно для завершения обновления пользовательского интерфейса (если это имеет значение). Что происходит?

Надеюсь, что не TMI, но, надеюсь, это поможет определить, что происходит не так.

Кроме того, с часами в одном из текстовых полей и некоторых точек останова, я обнаружил, что ошибка как-то волшебно выбрасывается после ReadFromDevices, но до UpdateIndicators. Под этим я подразумеваю, что точка останова в самом конце ReadFromDevices показывает, что текстовые поля не выбрасывали ошибку, но точка останова в начале UpdateIndicators (до того, как были сделаны вызовы InvokeControl) показывает, что они имеют...

Ответы

Ответ 1

Трудно использовать отладку, чтобы поймать исключение, поскольку оно будет происходить на любом из нескольких вызовов PostMessage на насос сообщений пользовательского интерфейса (вызванный вызовами InvokeControl и BeginInvoke). Visual Studio будет нелегко нарушить исключение. Вероятно, поэтому кажется, что исключение "магически" бросается.

Ваша проблема заключается не в вашей реализации InvokeControl, а в методе UpdateIndicators. Это связано с использованием оператора With и асинхронных вызовов потоков пользовательского интерфейса, например:

With Devices
    ...
    InvokeControl(MillerCurrentIndicator, Sub(x) x.Text = .Miller1.CurrentRead.GetParsedValue.ToString)
    ... 
 End With

Поскольку код Sub(x) выполняется в потоке пользовательского интерфейса, отправляя сообщение в потоке пользовательского интерфейса, весьма вероятно, что код вызова текущего потока будет завершен до того, как поток пользовательского интерфейса будет выполнен.

Проблема заключается в базовой реализации инструкции Visual Basic With. По сути, компилятор создает анонимную локальную переменную для оператора With, который устанавливается в Nothing в инструкции End With.

В качестве примера, если у вас есть этот код:

Dim p As New Person
With p
    .Name = "James"
    .Age = 40
End With

Компилятор Visual Basic превращает это в:

Dim p As New Person
Dim VB$t_ref$L0 As Person = p
VB$t_ref$L0.Name = "James"
VB$t_ref$L0.Age = 40
VB$t_ref$L0 = Nothing

Итак, в вашем случае, когда выполняется код потока пользовательского интерфейса, эта анонимная локальная переменная теперь Nothing, и вы получаете исключение "Объект ссылка не установлена в экземпляр объекта".

Ваш код по существу эквивалентен этому:

Dim VB$t_ref$L0 = Devices
Dim action = new Action(Sub(x) x.Text = VB$t_ref$L0.Miller1.CurrentRead.GetParsedValue.ToString);
VB$t_ref$L0 = Nothing
action(MillerCurrentIndicator);

К тому времени, когда действие вызывается, переменная VB$t_ref$L0 уже установлена на Nothing и whammo!

Ответ заключается не в использовании оператора With. Они плохие.

Это должен быть ваш ответ, но в вашем коде есть и другие проблемы, хотя вы тоже должны смотреть.

В коде SyncLock используется переменная локального блокирования, которая по существу делает бесполезную блокировку. Поэтому не делайте этого:

Private Sub UpdateIndicators()
    Dim ObjLock As New Object
    SyncLock ObjLock
    With Devices
        ...
    End With
    End SyncLock
End Sub

Сделайте это вместо:

Private ObjLock As New Object
Private Sub UpdateIndicators()
    SyncLock ObjLock
    With Devices
        ...
    End With
    End SyncLock
End Sub

Все вызовы InvokeControl в методе UpdateIndicators затрудняют отладку вашего кода. Сокращение всех этих вызовов до одного звонка должно помочь вам безболезненно. Вместо этого попробуйте:

Private Sub UpdateIndicators()
    SyncLock ObjLock
        InvokeControl(Me, AddressOf UpdateIndicators)
    End SyncLock
End Sub

Private Sub UpdateIndicators(ByVal form As ControlInvokeForm)
    With Devices
        EmergencyStopPictureBox.Toggle(Mode > RunMode.NotRunning)
        MillerCurrentIndicator.Text = .Miller1.CurrentRead.GetParsedValue.ToString
        ...
        ToggleImageList(.GateValvePosition.ImageList, .GateValvePosition.SetValue > 0)
    End With
End Sub

Очевидно, вам нужно удалить код With Devices, чтобы они работали.

Существует ряд проблем со следующим типом кода:

If .Ion.GetParsedValue > 0.01 Then
    InvokeControl(IonIndicator, Sub(x) x.Text = "OFF")
Else
    InvokeControl(IonIndicator, Sub(x) x.Text = .Ion.GetParsedValue.ToString)
End If

Значение .Ion.GetParsedValue может быть изменено между оцениваемым условием и выполняемым оператором Else. Это усугубляется, потому что условие в операторе If оценивается в текущем потоке, но оператор Else выполняется в потоке пользовательского интерфейса, поэтому задержка может быть большой. Кроме того, если класс .Ion. не является потокобезопасным, вы подвергаете себя потенциальным ошибкам.

Сделайте это вместо:

Dim parsedIonValue = .Ion.GetParsedValue
If parsedIonValue > 0.01 Then
    InvokeControl(IonIndicator, Sub(x) x.Text = "OFF")
Else
    InvokeControl(IonIndicator, Sub(x) x.Text = parsedIonValue.ToString)
End If

(Это также избавляет вас от проблемы With.)

Используйте AutoReset = True на MasterTimer для автоматического вызова Enabled = False, когда событие срабатывает, чтобы избежать (удаленной) возможности условий гонки.

Ваш код также не кажется правильным в том, что вы используете With Devices в методе UpdateIndicators, но у вас есть цикл For Each в методе ReadFromDevices. Devices тогда выглядит как коллекция, но код в UpdateIndicators использует объект Devices, как если бы это был объект Device. И он вызывает .SubstrateBiasVoltage в объекте Devices. Поэтому я не уверен точно, что делает объект Devices.

В методе ToggleImageList, который вы передаете параметр ImageList, передается ByRef, но вы не меняете ссылку на ImageList. Лучше передать его в ByVal, чтобы избежать возможных ошибок.

Кроме того, вместо этого:

If dev.GetType.Equals(GetType(Miller)) Then
    Dim devAsMiller As Miller = CType(dev, Miller)
    With devAsMiller

Было бы проще сделать это:

Dim devAsMiller = TryCast(dev, Miller)
If devAsMiller IsNot Nothing Then
    With devAsMiller

Надеюсь, это не похоже, что я погружаю загрузку! Надеюсь, это поможет.

Ответ 2

Enigmativity ясно решила всю вашу проблему, но только для поддержки использования оператора With: (То есть я определенно не говорю, что это правильное решение для всей вашей программы, просто подчеркивая, как только вы знаете, что проблема решение проблемы With.)

Так же, как мы привыкли к переменным цикла for, объявление локальной переменной для ваших выражений . позволит избежать проблемы:

With Devices
    ...
    Dim miller1 = .Miller1
    InvokeControl(MillerCurrentIndicator, Sub(x) x.Text = miller1.CurrentRead.GetParsedValue.ToString)
    ... 
End With

Конечно, это часто бывает только то, что вы хотите, когда свойство возвращает "активный" объект, который будет обновляться, когда он вызывается целевым потоком. Если это не так, вам нужно отказаться от инструкции With.