Threadübergreifendes RaiseEvent

  • VB.NET

Es gibt 10 Antworten in diesem Thema. Der letzte Beitrag () ist von hal2000.

    Threadübergreifendes RaiseEvent

    Hallo,

    ich lasse eine bestimmte Aufgabe in einem extra Thread ausführen, da diese doch einige Zeit in Anspruch nimmt, die Form soll währenddessen jedoch nicht einfrieren. Wenn die Aufgabe erledigt ist, soll ein Done()-Event aufgerufen werden. Nunja, habe es mal so probiert:

    VB.NET-Quellcode

    1. Public Class Test
    2. Public Event Done()
    4. Public Sub Start()
    5. With New Thread(AddressOf DoWork)
    6. .IsBackground = True
    7. .Start()
    8. End With
    9. End Sub
    11. Private Sub DoWork()
    12. Thread.Sleep(5000) 'soll die Aufgaben darstellen
    13. RaiseEvent Done()
    14. End Sub
    15. End Class


    Nun die Form:

    VB.NET-Quellcode

    1. Public Class frmMain
    2. Public WithEvents t As New Test
    4. Private Sub btnStart_Click (...) Handles btnStart.Click
    5. t.Start()
    6. End Sub
    8. Public Sub Done() Handles t.Done
    9. Me.Text = "Done"
    10. End Sub
    11. End Class


    Mit diesem Versuch bekomme ich folgende Exception:


    Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement frmMain erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.


    So, wenn ich es nun jedoch so mache:

    VB.NET-Quellcode

    1. Public Class Test
    2. Public Event Done()
    4. Public Sub Start()
    5. With New Thread(AddressOf DoWork)
    6. .IsBackground = True
    7. .Start()
    8. End With
    9. End Sub
    11. Private Sub DoWork()
    12. Thread.Sleep(5000) 'soll die Aufgaben darstellen
    13. InvokeDone()
    14. End Sub
    16. Private Delegate Sub InvokeDoneDelegate()
    17. Private Sub InvokeDone()
    18. If Application.OpenForms(0).InvokeRequired Then
    19. Application.OpenForms(0).Invoke(New InvokeDoneDelegate(AddressOf InvokeDone))
    20. Else
    21. RaiseEvent Done()
    22. End If
    23. End Sub
    24. End Class


    Dann klappt am Ende zwar alles, jedoch bin ich mir nicht sicher, ob das so die beste Lösung bzw ob das so nicht ein wenig umständlich ist. Auch hatte ich schon mal das Problem mit Application.OpenForms(0), dass wenn das Hauptfenster versteckt wurde (nicht mehr in der Taskleiste, sondern nur noch das NotifyIcon unten rechts in der Windowsleiste) ich eine Exception beim Aufruf bekam.

    Hey,

    Beispiel. Du hast folgende Klasse, die eine Aufgabe in einem extra Thread abarbeitet:

    VB.NET-Quellcode

    1. Imports System.ComponentModel
    2. Imports System.Threading
    4. Public Class WorkerClass
    5. Private _asyncOp As AsyncOperation
    6. Private _workerResult As Integer
    8. Public Event WorkDone(ByVal workerResult As Integer)
    10. Public Sub New()
    11. _asyncOp = AsyncOperationManager.CreateOperation(Nothing)
    13. End Sub
    15. Public Sub StartWork()
    16. Dim t As New Thread(AddressOf Worker)
    18. t.Start()
    19. End Sub
    21. Private Sub Worker()
    22. For i As Integer = 0 To 1000
    23. _workerResult += i
    24. Next
    26. _asyncOp.Post(New SendOrPostCallback(AddressOf OnWorkDone), CType(_workerResult, Object))
    27. End Sub
    29. Private Sub OnWorkDone(ByVal workResult As Object)
    30. RaiseEvent WorkDone(CType(workResult, Integer))
    31. End Sub
    32. End Class


    Die Form, die die Klasse instanziert:

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private WithEvents _wC As New WorkerClass
    4. Private Sub _wC_WorkDone(workerResult As Integer) Handles _wC.WorkDone
    5. Me.Text = workerResult.ToString()
    6. End Sub
    8. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    9. _wC.StartWork()
    10. End Sub
    11. End Class


    Leg hier ein Augenmerk auf die

    VB.NET-Quellcode

    1. Private _asyncOp As AsyncOperation
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    @SpaceyX: Ist das nicht etwas Overkill für die kleine Aufgabe?
    @Kraizy: Ist die Methode von SpaceyX nicht etwas Overkill für Deine Aufgabe?


    Vom Prinzip her stimmt der Code bereits. Nur statt Application.OpenForms(0).Invoke() solltest Du einfach Me.Invoke() verwenden. Das kommt wahrscheinlich im Moment aufs gleiche, da Me und Application.OpenForms(0) die selbe Form sind, aber ich denke, man sollte den sicheren Weg nehmen.

    Edit: Hab mich verlesen.
    Nimm wieder den ersten Code und verwende statt

    VB.NET-Quellcode

    1. Public Sub Done() Handles t.Done
    2. Me.Text = "Done"
    3. End Sub


    VB.NET-Quellcode

    1. Public Sub Done() Handles t.Done
    2. Me.Invoke(Sub() Me.Text = "Done")
    3. End Sub

    Das ist die simpelste Variante, die es gibt.


    PS: Soll die Test-Klasse selbst invoken? Ist das sinnvoll?
    Ich würde sagen, dass es nicht sinnvoll ist. Die Form sollte selbst wissen, dass das Test-Objekt nicht Thread-sicher ist und sollte selbst invoken (kommt auch auf ein schöneres Ergebnis raus).
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Wenn schon, dann sollte das Invoken im Eventhandler stattfinden, denkst Du nicht? Dann hast Du auch mit "Me" den eindeutigen Zugriff.

    VB.NET-Quellcode

    1. Public Class frmMain
    2. Public WithEvents t As New Test
    4. Private Sub btnStart_Click (...) Handles btnStart.Click
    5. t.Start()
    6. End Sub
    8. Public Sub Done() Handles t.Done
    9. If Me.InvokeRequired Then
    10. Me.Invoke(Sub() Me.Text = "Done", New Object())
    11. Else
    12. Me.Text = "Done"
    13. End If
    14. End Sub
    15. End Class
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Das hat damit zu tun, dass Form1 keine Instanz einer Klasse ist, sondern eine Klasse selbst.
    Du kannst auch nicht BauplanFürAuto.Herumfahren() aufrufen, weil BauplanFürAuto kein Auto ist, sondern nur der Bauplan.

    VB biegt das so hin, dass man mit BauplanFürAuto das einzige Auto meint, das nach diesem Bauplan gebaut wurde. Das ist aber schrecklich und sollte nie verwendet werden (es nennt sich Standardinstanz).

    Me ist eine Instanz von FormXY. Deshalb ist es kein Problem Me.Invoke() zu verwenden. Oder Analog dazu
    Dim Auto As New BauplanFürAuto
    Auto.Herumfahren()
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Hi,

    @Kraizy:
    Dein Vorhaben wäre am besten mit dem BackgroundWorker gelöst. Der bietet das Event RunWorkerCompleted, und das kommt sogar automatisch im richtigen Thread.

    @Rest:
    Invoke() sollte IMMER verwendet werden, denn AsyncOperation.Post() funktioniert nur mit einem vorhandenen SynchronizationContext. Der ist im Framework nur für Forms implementiert, für alles andere muss er selbst geschrieben werden. Beispiel:

    VB.NET-Quellcode

    1. Class Form1
    2. Inherits Form
    4. Public Sub New()
    5. Dim b As New Button
    6. b.Text = "click me"
    7. b.Location = New Point(10, 10)
    8. b.Size = New Size(75, 30)
    9. AddHandler b.Click, AddressOf bclick
    10. Controls.Add(b)
    11. End Sub
    13. Private Sub bclick(sender As Object, e As EventArgs)
    14. wl("Click; UI thread id is " & Thread.CurrentThread.ManagedThreadId)
    15. Dim ao As AsyncOperation = AsyncOperationManager.CreateOperation(Nothing)
    16. Dim t As New Thread(AddressOf ClassMain.worker)
    17. t.Start(ao)
    18. End Sub
    19. End Class
    22. Class ClassMain
    24. Public Shared Sub Main(ByVal argv() As String)
    25. wl("main thread id is " & Thread.CurrentThread.ManagedThreadId)
    26. Application.Run(New Form1)
    27. wl("main thread will exit now...")
    28. rl()
    29. End Sub
    31. Public Shared Sub syncMethod(o As Object)
    32. wl("syncMethod thread id is " & Thread.CurrentThread.ManagedThreadId)
    33. End Sub
    35. Public Shared Sub worker(o As Object)
    36. Dim ao = DirectCast(o, AsyncOperation)
    37. wl("worker thread id is " & Thread.CurrentThread.ManagedThreadId)
    38. ao.Post(AddressOf syncMethod, Nothing)
    39. End Sub
    40. End Class

    Hier ist die Ausgabe auf der Konsole folgende:
    main thread id is 9
    Click; UI thread id is 9
    worker thread id is 10
    syncMethod thread id is 9
    Wir sehen, dass syncMethod korrekt synchronisiert ist und daher Zuweisungen OHNE Invoke vorgenommen werden können.

    Anderes Beispiel, ohne Form:

    VB.NET-Quellcode

    1. Class ClassMain
    3. Public Shared Sub Main(ByVal argv() As String)
    4. wl("main thread id is " & Thread.CurrentThread.ManagedThreadId)
    6. Dim ao As AsyncOperation = AsyncOperationManager.CreateOperation(Nothing)
    7. Dim t As New Thread(AddressOf worker)
    8. t.Start(ao)
    10. wl("main thread will exit now...")
    11. rl()
    12. End Sub
    14. Public Shared Sub syncMethod(o As Object)
    15. wl("syncMethod thread id is " & Thread.CurrentThread.ManagedThreadId)
    16. End Sub
    18. Public Shared Sub worker(o As Object)
    19. Dim ao = DirectCast(o, AsyncOperation)
    20. wl("worker thread id is " & Thread.CurrentThread.ManagedThreadId)
    21. ao.Post(AddressOf syncMethod, Nothing)
    22. End Sub
    23. End Class

    Ausgabe:
    main thread id is 10
    main thread will exit now...
    worker thread id is 11
    syncMethod thread id is 6
    Wir sehen, dass syncMethod gar nicht synchronisiert wurde! Das liegt am fehlenden SyncContext in der AsyncOperation-Instanz. Den Kontext müssen wir selbst bereitstellen, was aber eine Menge Arbeit bedeutet. Schließlich muss hier die ganze Invoke-Infrastruktur selbst implementiert werden.

    Wir lernen daraus: Immer schön vorsichtig mit dem AsyncOperationManager umgehen. Wer mehr darüber wissen will liest am besten folgende Artikelserie: codeproject.com/Articles/31971…hronizationContext-Part-I
    Gruß
    hal2000

    Ups - das war anders gemeint. Klar gibts ihn überall, aber zum Zwecke der Synchronisierung eben nicht ohne Mehrarbeit. Zitat aus deinem Link:
    Windows Forms provides the WindowsFormSynchronizationContext type which overrides Post to call Control.BeginInvoke.
    Wie mein zweites Codebeispiel oben zeigt, gibt es keine Implementierung, die eine derartige Synchronisierung abseits von Windows Forms (oder WPF) automatisch übernimmt. Es ist eine Sache, eine abstrakte (!) Ebene bereitzustellen, um irgendwas in geordnete Bahnen zu lenken. Wenn diese aber nicht mit Leben gefüllt wird, macht sie erstmal nichts, wie man sieht.

    Der Link ist übrigens Klasse - muss ich mal genauer lesen.
    Gruß
    hal2000

Facebook
Telefonspende