UI wird nicht upgedatet??

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 11 Antworten in diesem Thema. Der letzte Beitrag () ist von VaporiZed.

    UI wird nicht upgedatet??

    Guten Morgen allerseits :)

    ich hab ein kleines Problem, es scheint, als würde mein UI nicht upgdatet, also das ist meine Vermutung, es kann aber auch was Anderes sein.

    Ich versuche, einen Downloadfortschritt mit einer ProgressBar anzuzeigen (bzw. einer TextBox), die Methode DoAny hab ich bloss zu Testzwecken, sie soll dann ersetzt werden...Leider zeigt mir die TextBox nichts an...

    Hier mein Code, wie man sieht, hab ich schon versucht, dem Problem mit .Invoke in Kombination mit asynchronen Methoden zu Leibe zu rücken, aber bei dem Thema bin ich mir noch bisschen unsicher:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private MeinDispatcher As Dispatcher
    4. Private FortSchritt As IProgress(Of String)
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. MeinDispatcher = Dispatcher.CurrentDispatcher
    8. End Sub
    10. Private Sub btnInstall_Click(sender As Object, e As EventArgs) Handles btnInstall.Click
    11. MeinDispatcher.Invoke(Sub() FortSchritt = New Progress(Of String)(Function(s) (TextBox1.Text, s)))
    12. DoAny(FortSchritt).GetAwaiter.GetResult()
    13. MessageBox.Show("fertig")
    14. End Sub
    16. Private Async Function DoAny(p As IProgress(Of String)) As Task(Of Boolean)
    17. Dim x As Integer = 0
    18. For i = 1 To 500000000
    19. If i Mod 10000 = 0 Then
    20. MeinDispatcher.Invoke(Sub() p.Report(x.ToString))
    21. End If
    22. x += 1
    23. Next
    24. Return True
    25. End Function

    Deine DoAny: Async ohne Await ergibt keinen Sinn. Das hätte bei richtigen Einstellungen VS aber schon anmeckern sollen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Jou tut es auch.

    Ich hab jetzt das hier, nur sagt er da "Option Strict on lässt spätes Binden nicht zu". Wenn ich es ausschalte, dann kommt: Der Lambdaparamter p verbirgt eine Variable in einem einschliessenden Block, eine zuvor definierte Bereichsvariable oder eine implizit im Abfrageausdruck deklarirte Variable:

    VB.NET-Quellcode

    1. ​Private Async Function DoAny(p As IProgress(Of String)) As Task(Of Boolean)
    2. Dim x As Integer = 0
    4. For i = 1 To 500000000
    5. If i Mod 10000 = 0 Then
    6. 'p.Report(x.ToString)
    7. Await MeinDispatcher.Invoke(Function(p) p.Report(x.ToString))
    8. End If
    9. x += 1
    10. Next
    11. Return True
    12. End Function

    Dann mach Await MeinDispatcher.Invoke(Function(wasauchimmer) wasauchimmer.Report(x.ToString))
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Du hättest mich tatsächlich wörtlich nehmen sollen.
    Du hast

    VB.NET-Quellcode

    1. Await MeinDispatcher.Invoke(Function(p) p.Report(x.ToString))
    geschrieben. Du verwendest also p in der lokalen Lambdafunktion und mit

    VB.NET-Quellcode

    1. Private Async Function DoAny(p As IProgress(Of String)) As Task(Of Boolean)
    in der umliegenden Funktion als Funktionsparameter. Nun weiß der Compiler nicht, was Du mit p meinst. Benenne den Lambdafunktionsparameter um: von p in wasauchimmer. Oder von p in q oder in asdf. Aber ändern musst Du es.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Okay das versteh ich. Aber dann stimmt wahrscheinlich die ganze Zeile nicht. Weil irgendwas will ich ja mit meinem p (also das Argument der Methode DoAny) machen.

    Schau dir dazu mal die auskommentierte Zeile an. So sollte das eigentlich sein, wenn man das ganze Async und Dispatcher Gedöns weglässt.

    Gibt's vielleicht eine Alternative, wie man diese auskommentierte Zeile mit Await von MeinDispatcher invoken kann? Weisst du wie ich mein? Ohne Sub und Function.

    Probier das mal. Ist zwar etwas anders, aber sollte vom Prinzip her reichen.

    VB.NET-Quellcode

    1. Private ReadOnly ProgressReporter As New Progress(Of Long)(Sub(x) ReportProgressUpdate(x))
    2. Private ReadOnly AbstractProgressReporter As IProgress(Of Long) = ProgressReporter
    4. Private Sub ReportProgressUpdate(x As Long)
    5. TextBox1.Text = x.ToString
    6. End Sub
    8. Private Async Sub btnInstall_Click(sender As Object, e As EventArgs) Handles btnInstall.Click
    9. Await Task.Run(Sub() DoHeavyWork())
    10. MessageBox.Show("fertig")
    11. End Sub
    13. Private Sub DoHeavyWork()
    14. For i = 1 To 500000000
    15. If i Mod 100000 = 0 Then AbstractProgressReporter.Report(i)
    16. Next
    17. End Sub

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Okay danke das funktioniert schon mal.

    Jetzt versuch ich das Ganze mit der Downloadfunktion zu machen, da bekomm ich aber für totalBytes in Zeile 6 immer -1
    zurück... Weiss jemand woran das liegen kann?

    VB.NET-Quellcode

    1. Module HttpClientExtensions
    2. <Extension>
    3. Public Async Function DownloadAsync(client As HttpClient, url As String, fileStream As MemoryStream, progress As Progress(Of Long), cancellationToken As CancellationToken) As Task
    4. Using response As HttpResponseMessage = Await client.GetAsync(url, HttpCompletionOption.ResponseHeadersRead)
    5. Using contentStream As Stream = Await response.Content.ReadAsStreamAsync()
    6. Dim totalBytes As Long = response.Content.Headers.ContentLength.GetValueOrDefault(-1)
    7. Dim bytesRead As Long = 0
    8. Dim buffer(4096) As Byte
    9. Dim bytesReadThisChunk As Integer
    11. While (bytesReadThisChunk = Await contentStream.ReadAsync(buffer, 0, buffer.Length, cancellationToken)) > 0
    12. Await fileStream.WriteAsync(buffer, 0, bytesReadThisChunk, cancellationToken)
    13. bytesRead += bytesReadThisChunk
    15. If totalBytes > 0 Then
    16. Dim progressPercentage As Single = CSng(bytesRead) / CSng(totalBytes)
    17. Form1.AbstractProgressReporter.Report(progressPercentage)
    18. End If
    19. End While
    20. End Using
    21. End Using
    22. End Function

    kafffee schrieb:

    Form1.AbstractProgressReporter.Report(progressPercentage)
    ;( Ich weiß nicht, ob ich wissen will, was Form1 ist …

    Aber zurück zum Problem. Das ist nicht Dein Code, oder? Denn wenn es Dein eigener Code wäre, hättest Du nicht soviel geschrieben, nur um bereits so früh nicht zu einem sinnvollen Zwischenergebnis zu kommen. Daher: Quelle des Codes?
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    In der Tat :)

    Wenn ich mich richtig erinnere hat mir das die KI von Bing als erstes in den Suchergebnissen geliefert... Aber das hier ist so ähnlich:

    stackoverflow.com/questions/20…gress-bar-with-httpclient

    Edit: Ich glaub das liegt gar nicht an dem Code, die URL die ich abrufe, ist eine von mir in meiner Cloud freigebene Datei. Mir ist aber grad eingefallen, dass die Cloud immer erst noch eine "Zwischenseite" (müsste HTML sein) aufruft, wenn man auf den Link klickt. Hat jemand ne Idee mit welcher URL ich das sinnvoll testen könnte?

    @VaporiZed
    Edit:

    Hab jetzt das hier gefunden, und es funktioniert :-). Es bleibt aber die Frage: Weiss jemand wie ich an ne URL komme, die gross genug ist, dass ich das cts.Cancel mal testen kann? Weil bevor ich auf Abbrechen klicken kann, ist die Show schon vorbei...

    VB.NET-Quellcode

    1. Public Delegate Sub ProgressChangedHandler(ByVal totalFileSize As Long?, ByVal totalBytesDownloaded As Long, ByVal progressPercentage As Double?)
    3. Public Class HttpClientWithProgress
    4. Inherits HttpClient
    6. Private ReadOnly _DownloadUrl As String
    7. Private ReadOnly _DestinationFilePath As String
    8. Public Event ProgressChanged As ProgressChangedHandler
    10. Public Sub New(ByVal downloadUrl As String, ByVal destinationFilePath As String)
    11. _DownloadUrl = downloadUrl
    12. _DestinationFilePath = destinationFilePath
    13. End Sub
    15. Public Async Function StartDownload() As Task
    16. Using response = Await GetAsync(_DownloadUrl, HttpCompletionOption.ResponseHeadersRead)
    17. Await DownloadFileFromHttpResponseMessage(response)
    18. End Using
    19. End Function
    21. Public Async Function StartDownload(ByVal cancellationToken As CancellationToken) As Task
    22. Using response = Await GetAsync(_DownloadUrl, HttpCompletionOption.ResponseHeadersRead, cancellationToken)
    23. Await DownloadFileFromHttpResponseMessage(response)
    24. End Using
    25. End Function
    27. Private Async Function DownloadFileFromHttpResponseMessage(ByVal response As HttpResponseMessage) As Task
    28. response.EnsureSuccessStatusCode()
    29. Dim totalBytes As Long? = response.Content.Headers.ContentLength
    31. Using contentStream = Await response.Content.ReadAsStreamAsync()
    32. Await ProcessContentStream(totalBytes, contentStream)
    33. End Using
    34. End Function
    36. Private Async Function ProcessContentStream(ByVal totalDownloadSize As Long?, ByVal contentStream As Stream) As Task
    37. Dim totalBytesRead As Long = 0L
    38. Dim readCount As Long = 0L
    39. Dim buffer As Byte() = New Byte(8191) {}
    40. Dim isMoreToRead As Boolean = True
    42. 'Using fileStream As FileStream = New FileStream(_DestinationFilePath, FileMode.Create, FileAccess.Write, FileShare.None, 8192, True)
    43. Using fileStream As MemoryStream = New MemoryStream
    44. Do
    45. Dim bytesRead As Integer = Await contentStream.ReadAsync(buffer, 0, buffer.Length)
    47. If bytesRead = 0 Then
    48. isMoreToRead = False
    49. Continue Do
    50. End If
    52. Await fileStream.WriteAsync(buffer, 0, bytesRead)
    53. totalBytesRead += bytesRead
    54. readCount += 1
    55. If readCount Mod 10 = 0 Then TriggerProgressChanged(totalDownloadSize, totalBytesRead)
    56. Loop While isMoreToRead
    57. End Using
    59. TriggerProgressChanged(totalDownloadSize, totalBytesRead)
    60. End Function
    62. Private Sub TriggerProgressChanged(ByVal totalDownloadSize As Long?, ByVal totalBytesRead As Long)
    63. 'If ProgressChanged Is Nothing Then Return
    64. Dim progressPercentage As Double? = Nothing
    65. If totalDownloadSize.HasValue Then progressPercentage = Math.Round(CDbl(totalBytesRead) / totalDownloadSize.Value * 100, 2)
    66. RaiseEvent ProgressChanged(totalDownloadSize, totalBytesRead, progressPercentage)
    67. End Sub
    68. End Class

    Dieser Beitrag wurde bereits 10 mal editiert, zuletzt von „kafffee“ ()

    Such mal im Netz nach Gigantic Test Image, z.B. dieses 96 MB Bild
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende