Wie wird ein ProgressReport bzw. Progress(Of T) bei async/await eingesetzt?

DanCooper · 8. Dezember 2015, 11:30

Hallo miteinander

als alter Nutzer von BackgroundWorkern kenne ich die ProgressChanged Methode, um Controls im UI zu ändern. Bei await/async ist mir der Vorgang aber trotz einiger Anleitungen nicht klar. Ich wäre froh, wenn sich jemand die Mühe machen würde, mir das anhand meines eigenen Codes zu erklären.

Ich möchte als versuch einfach mal ein String erhalten.

VB.NET-Quellcode

Private Async Sub RunTasks()
Dim getError As Boolean = False
Dim iNum As Integer = 5
While iNum > 0
If Not Await GenericRun() Then
getError = True
End If
iNum -= 1
End While
If Not getError Then
'irgendwas
Else
'etwas anderes
End If
End Sub
Private Async Function GenericRun() As Task(Of Boolean)
For i = 0 To 10
'hier sollte nun String.Concat("Es ist die Nummer ", i) als ProgressReport zurückgegeben werden
Next
Return True
End Function

RodFromGermany · 8. Dezember 2015, 11:37

DanCooper schrieb:

VB.NET-Quellcode

ProgressReport

ist ein BGW-Event, das in den MainThread gefeuert und von der GUI aufgefangen und behandelt wird.
Wenn Du das nachbilden willst, brauchst Du ein Event mit geeigneten Parametern, ein RaisEvent(...), wo die Parameter gesendet und ein Handles xxx bzw. AddHandler xxx, wo die Parameter aufgefangen und ausgewertet werden.
Feddich.

DanCooper · 8. Dezember 2015, 11:44

Ja das ist mir klar. Doch es gibt ja sowas auch für Await/Async: Link
Das meinte ich. Ich verstehs nur nicht...

RodFromGermany · 8. Dezember 2015, 12:12

DanCooper schrieb:

es gibt ja sowas

Es sieht mir so aus, dass das keine generische Eigenschaft von Await/Async ist, sondern dass das alles fein säuberlich nachgebildet wird.

DanCooper · 8. Dezember 2015, 12:29

Ok, das habe ich nicht gesehen.

Ich hatte das bis vor der Umstellung auf await/async über RaiseEvent(...) und Handles xxx bzw. AddHandler xxx gelöst, das führt nun aber direkt aus GenericRun() zu dem Fehler "Threadübergreifend...".
Wenn ich den selben Event aus RunTasks() aufrufe, dann gehts ohne Fehler, ist aber auch logisch. Deshalb wollte ich das über einen "ProgressIrgendwas" lösen.

Fällt dir eine andere Lösung ein, wie ich das lösen könnte?

Falls es interessant ist, hier wäre der SourceCode (ich denke aber der ist auf den ersten Blick eher zu komplex):
Methode RunTask
Methode RunGenericCallBack In Zeile 217 wird der Handler hinzugefügt
Klasse APIKodi hier wird das Event ausgelöst (zur Zeit auskommentiert)

RodFromGermany · 8. Dezember 2015, 13:31

Bei

DanCooper schrieb:

"Threadübergreifend..."

musst Du einfach beim Empfänger invoken.

DanCooper · 8. Dezember 2015, 13:46

Naja, wäre ziemlich vie zu invoken.

Aber ich denke, ich hab ne Lösung gefunden, die zumindest in der Testumgebung funktioniert. Muss das jetzt nur noch für meinen Fall umsetzen:

VB.NET-Quellcode

Imports System.Threading
Public Class Form1
Public Async Sub StartProcessingButton_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim myEvent As New Action(Of String)(AddressOf GenericEvent)
Dim progresstest = New Progress(Of String)(myEvent)
Await Task.Run(Function() DoProcessing(progresstest))
TextBox1.Text = "Done!"
End Sub
Public Async Function DoProcessing(progress As IProgress(Of String)) As Task(Of Boolean)
Dim i As Integer = 0
While i <> 100
Thread.Sleep(100)
If progress IsNot Nothing Then
progress.Report(i.ToString)
End If
i += 1
End While
Return True
End Function
Sub GenericEvent(strTest As String)
TextBox1.Text = strTest
End Sub
End Class

rdmguy · 8. Dezember 2015, 13:49

Ich denke die Progress (Of T) Klasse ist was du suchst.

Hier ein einfaches Beispiel:

VB.NET-Quellcode

Private Async Sub Sample()
Dim progressHandler = New Progress(Of String)(Sub(value)
lbSample.text = value
End Sub)
Dim progress = TryCast(progressHandler, IProgress(Of String))
Await Task.Run(Sub()
For i As Integer = 1 To 100
progress.Report(i.ToString)
Next
End Sub)
End Sub

RodFromGermany · 8. Dezember 2015, 13:57

DanCooper schrieb:

VB.NET-Quellcode

progress.Report(i.ToString)

Allerdings würde ich da einen Integer senden, nicht aber einen String.

DanCooper · 8. Dezember 2015, 14:05

RodFromGermany schrieb:

DanCooper schrieb:

VB.NET-Quellcode

progress.Report(i.ToString)

Allerdings würde ich da einen Integer senden, nicht aber einen String.

War ja auch nur als Test gedacht. Ich sende da in der Anwendung ein Objekt.

RodFromGermany · 8. Dezember 2015, 14:21

Ein Progress-Value ist kein

DanCooper schrieb:

Objekt

sondern ein Integer.
Genau wie beim BGW.

rdmguy · 8. Dezember 2015, 14:32

DanCooper schrieb:

Ich möchte als versuch einfach mal ein String erhalten.

RodFromGermany schrieb:

Allerdings würde ich da einen Integer senden, nicht aber einen String.

Daher das .ToString

Man kann es natürlich auch als Integer schicken und dann für den Label.Text mit value.ToString arbeiten.

DanCooper · 8. Dezember 2015, 15:07

RodFromGermany schrieb:

Ein Progress-Value ist kein

DanCooper schrieb:

Objekt

sondern ein Integer.
Genau wie beim BGW.

Ja, Integer wäre für eine ProgressBar oder so sicher nützlich. Ich muss da aber ein Objekt bzw. Struture zurückgeben:

VB.NET-Quellcode

Public Structure GenericEventCallBackAsync
Dim tEventType As Enums.ModuleEventType
Dim tParams As List(Of Object)
End Structure

Die wird dann in einen normalen RaiseEvent eingesetzt und so funktioniert es ohne Fehler "threadübergreifender...".

Ich hab das Thema als erledigt markiert, meine gepostete Lösung geht ja einwandfrei und macht genau das was ich wollte.

RodFromGermany · 8. Dezember 2015, 16:09

DanCooper schrieb:

Ich muss da aber

Dann muss es halt so sein.

Wie wird ein ProgressReport bzw. Progress(Of T) bei async/await eingesetzt?

Wie wird ein ProgressReport bzw. Progress(Of T) bei async/await eingesetzt?

VB.NET-Quellcode

DanCooper schrieb:

VB.NET-Quellcode

DanCooper schrieb:

DanCooper schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

DanCooper schrieb:

VB.NET-Quellcode

RodFromGermany schrieb:

DanCooper schrieb:

VB.NET-Quellcode

DanCooper schrieb:

DanCooper schrieb:

RodFromGermany schrieb:

RodFromGermany schrieb:

DanCooper schrieb:

VB.NET-Quellcode

DanCooper schrieb:

Ähnliche Themen

3 Benutzer haben hier geschrieben