Problem mit Event und verschiedenen Task

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

Es gibt 45 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Problem mit Event und verschiedenen Task

    Hallo und schönen guten Abend

    Ich habe hier ein Problem, wovon ich nicht weiß ob es ein Timing Problem ist, oder etwas anderes.
    Man kann folgendes im Programm anstoßen:
    1.) Daten kopieren
    2.) Daten zippen
    3.) Daten kopieren und zippen gleichzeitig.

    Die Funktionen des kopieren und zippen, dabei ist alles OK.
    Probleme macht das Anzeigen und Reseten auf dem Form. Wenn beide Task laufen ist es ok. Bei den Einzelläufen gibt es das Problem des nicht anzeigens.

    Wenn beide Task laufen Debug:

    XML-Quellcode

    1. ​
    2. ZippAsync gestartet
    3. KopiereAsync gestartet
    4. KopiereAsync beendet
    5. KopiereAsync success:True
    6. InClass-First: 1
    7. ZippAsync beendet
    8. ZippAsync success:True
    9. InClass-First: 0
    10. InClassElse: 0
    11. MeldungsID: 0
    12. CompletedOperationType: 0
    13. Bedingung 2 erfüllt

    Wenn nur kopieren läuft kommt dieser Debug:

    XML-Quellcode

    1. ​
    2. KopiereAsync gestartet
    3. KopiereAsync beendet
    4. KopiereAsync success:True
    5. InClass-First: 1

    Wenn nur zippen läuft kommt dieser Debug:

    XML-Quellcode

    1. ​
    2. ZippAsync gestartet
    3. Der Thread 0xe70 hat mit Code 259 (0x103) geendet.
    4. ZippAsync beendet
    5. ZippAsync success:True
    6. InClass-First: 0


    Der relevante Code:
    Spoiler anzeigen
    ​
    Ausug aus der Class:

    VB.NET-Quellcode

    1. ​
    2. Friend Event MeldungsID(MeldungID As Integer, Typ As Integer)
    3. Friend CompletedOperations As Integer
    4. Friend CompletedOperationType As Integer = -1
    6. Friend Async Sub ZippAsync()
    7. Debug.WriteLine("ZippAsync gestartet")
    8. Dim success As Boolean = Await Threading.Tasks.Task.Run(Function() CallZip())
    9. Debug.WriteLine("ZippAsync beendet")
    10. If success Then
    11. Debug.WriteLine("ZippAsync success:" & success)
    12. OperationCompleted(0)
    13. End If
    14. End Sub
    16. Friend Async Sub KopiereAsync()
    17. Debug.WriteLine("KopiereAsync gestartet")
    18. Dim success As Boolean = Await Threading.Tasks.Task.Run(Function() CallCopy())
    19. Debug.WriteLine("KopiereAsync beendet")
    20. If success Then
    21. Debug.WriteLine("KopiereAsync success:" & success)
    22. OperationCompleted(1)
    23. End If
    24. End Sub
    26. Friend Sub OperationCompleted(operationType As Integer)
    27. Debug.WriteLine("InClass-First: " & operationType)
    28. If CompletedOperationType = -1 Then
    29. CompletedOperationType = operationType
    31. Else
    33. If CompletedOperationType = operationType Then
    34. CompletedOperationType = -1
    35. Interlocked.Exchange(CompletedOperations, 0)
    36. Debug.WriteLine("InClassIf: " & operationType)
    37. RaiseEvent MeldungsID(0, operationType)
    39. Else
    41. CompletedOperationType = -1
    42. Interlocked.Exchange(CompletedOperations, 0)
    43. Debug.WriteLine("InClassElse: " & operationType)
    44. RaiseEvent MeldungsID(0, operationType)
    46. End If
    47. End If
    48. End Sub

    Auszug aus dem Form:

    VB.NET-Quellcode

    1. ​
    2. Private Sub Mitteilungen(ByVal var As Integer, typ As Integer) Handles copyzip.MeldungsID
    3. Debug.WriteLine("MeldungsID: " & var & Environment.NewLine & "CompletedOperationType: " & typ)
    5. If var = 0 AndAlso typ = 1 Or var = 1 AndAlso typ = 0 Then
    6. Debug.WriteLine("Bedingung 1 erfüllt")
    7. ResetControls()
    8. RestProgrssbar()
    9. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Success, "Single-Task abgeschlossen.")
    11. 'Der Zweig funktioniert wenn Copy&Zip gleichzeitig laufen
    12. ElseIf var = 0 AndAlso typ = 0 Then
    13. Debug.WriteLine("Bedingung 2 erfüllt")
    14. ResetControls()
    15. RestProgrssbar()
    16. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Success, "Copy und Zip-Task abgeschlossen.")
    18. End If
    19. End Sub

    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Daten kopieren und zippen gleichzeitig.
    Bedenke bei Deinem Problem, dass es nur einen Festplattenzugriff gleichzeitig geben kann.
    Wenn Du also n Dateien nacheinender zippst/kopierst, dauert das deutlich weniger lange, als wenn Du dies parallel tust.
    ====
    Dies gilt insbesondere für Schreibvorgänge.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „RodFromGermany“ ()

    @RodFromGermany und @Haudruferzappeltnoch

    Das Kopieren und Zippen ist ja nicht das Problem, sondern nur das anzeigen bzw Resten auf dem Form.
    Kopieren und zippen wird eh zu 90% auf 2 Festpaltten geschehen und ob das nun 20 oder 30 Sekunden dauert ist auch egal.

    Es geht ausschließlich darum, das hier nicht richtig gearbeitet wird bzw die falschen Infos aus der Klasse kommen.

    VB.NET-Quellcode

    1. Private Sub Mitteilungen(ByVal var As Integer, typ As Integer) Handles copyzip.MeldungsID
    2. Debug.WriteLine("MeldungsID: " & var & Environment.NewLine & "CompletedOperationType: " & typ)
    4. If var = 0 AndAlso typ = 1 Or var = 1 AndAlso typ = 0 Then
    5. Debug.WriteLine("Bedingung 1 erfüllt")
    6. ResetControls()....
    7. End Sub



    EDIT 19:40 Uhr

    @RodFromGermany
    ​Wenn Du also n Dateien nacheinender


    Wenn ich das gleichzeitige nicht parallel sondern nacheinander ablaufen lassen würde, bräuchte ich dabei AUCH nur 1 Mal Restten :?: :rolleyes:
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Amelie“ ()

    mir scheint, Mitteilungen wird in einen NebenThread gefeuert, und damit hast du Threadübergreifende Aufrufe an diverse Controls.
    Eiglich müssteste dafür eine InvalidOperationException geben.
    Prüf mal, ob du die nicht deaktiviert hast, mit CheckForInvalidThreadCalls=False. Vielleicht heisst CheckForInvalidThreadCalls auch anders, so ähnlich - weiss ich nicht, ich mache das nie.

    Jedenfalls gehen Threadübergreifende Calls gelegentlich daneben, und ist schwer zu debuggen.

    @ErfinderDesRades
    In der Tat hat mein "Logger" das mal aufgefangen:
    ​[Failure] 01.10.2023 - 19:57 Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement pbProgressbar erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.
    Was mir das Studio aber NICHT ausgab!

    @Haudruferzappeltnoch
    Was möchtest du mir sagen?

    @RodFromGermany
    Das hier wird ausgeführt:
    ​ Private Sub RestProgrssbar() Me.Invoke(Sub() pbProgressbar.Visible = False) End Sub


    Im Moment teste ich diese Kombinationen durch: Das "Dim Success" nehme ich noch raus.
    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Friend Async Sub ZippAsync()
    3. Debug.WriteLine("ZippAsync gestartet")
    4. Dim success As Boolean = Await Threading.Tasks.Task.Run(Function() CallZip())
    5. Debug.WriteLine("ZippAsync beendet")
    6. If success Then
    7. Debug.WriteLine("ZippAsync success:" & success)
    8. OperationCompleted(1) ' Geändert zu 1 für ZippAsync
    9. End If
    10. End Sub
    12. Friend Async Sub KopiereAsync()
    13. Debug.WriteLine("KopiereAsync gestartet")
    14. Dim success As Boolean = Await Threading.Tasks.Task.Run(Function() CallCopy())
    15. Debug.WriteLine("KopiereAsync beendet")
    16. If success Then
    17. Debug.WriteLine("KopiereAsync success:" & success)
    18. OperationCompleted(1) ' Geändert zu 1 für KopiereAsync
    19. End If
    20. End Sub
    22. Friend Async Sub KopiereZipAsync()
    23. Debug.WriteLine("KopiereAsync gestartet")
    24. Await Threading.Tasks.Task.Run(Function() CallCopy())
    25. Debug.WriteLine("KopiereAsync beendet")
    26. Debug.WriteLine("KopiereAsync gestartet")
    27. Await Threading.Tasks.Task.Run(Function() CallZip())
    28. Debug.WriteLine("KopiereAsync beendet")
    29. OperationCompleted(2) ' Geändert zu 2 für KopiereZipAsync
    30. End Sub


    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    @ErfinderDesRades
    In der Tat hat mein "Logger" das mal aufgefangen:
    [Failure] 01.10.2023 - 19:57 Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement pbProgressbar erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde.
    Was mir das Studio aber NICHT ausgab!
    tja, scheints ist da iwo ein TryCatch.
    wird die Exception weggeCatcht, kann VS die nichtmehr ausgeben.

    Amelie schrieb:

    Das hier wird ausgeführt:

    RodFromGermany schrieb:

    Was passiert da?
    Falsche Antwort.
    Nicht der Aufruf, sondern der Inhalt war gefragt. ;)
    @ErfinderDesRades Exceptions in einem Thread ist so ne Sache, da muss man sich von außen nach innen rantasten und natürlich die Exception-Info richtig auswerten.
    Da hapert es ggf. bei Amelie.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Moin moin

    Ich habe nun den "vorläufigen" Code etwas umgeschrieben und bisher klappt alles im Testlauf.
    Ich versuche noch den Code zu verschlanken... Tips dazu nehme ich gerne an. :)

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Private errorHdd As String
    4. Private Function IsDriveReady(ByVal HDD As String) As Boolean
    5. Dim driveInfo As System.IO.DriveInfo = Nothing
    6. If Not String.IsNullOrEmpty(HDD) AndAlso System.IO.Directory.Exists(HDD) Then
    7. driveInfo = New System.IO.DriveInfo(HDD)
    8. End If
    9. If driveInfo IsNot Nothing AndAlso driveInfo.IsReady Then
    10. Return True
    11. Else
    12. errorHdd = HDD
    13. RaiseEvent MeldungsID(5)
    14. Return False
    15. End If
    16. End Function
    18. Friend Sub Threadsstarten(SelectedCopytype As Integer)
    19. Select Case SelectedCopytype
    21. Case Is = 0
    22. If IsDriveReady(propertyinfo.SourcePath) AndAlso IsDriveReady(propertyinfo.TargetPathCopy) Then
    23. KopiereAsync()
    24. Else
    25. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Failure, "Das Laufwerk " & errorHdd & " meldet einen Fehler.")
    26. End If
    28. Case Is = 1
    29. If IsDriveReady(propertyinfo.SourcePath) AndAlso IsDriveReady(propertyinfo.TargetPathZip) Then
    30. ZippAsync()
    31. Else
    32. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Failure, "Das Laufwerk " & errorHdd & " meldet einen Fehler.")
    33. End If
    35. Case Is = 2
    36. If IsDriveReady(propertyinfo.SourcePath) AndAlso IsDriveReady(propertyinfo.TargetPathCopy) AndAlso IsDriveReady(propertyinfo.TargetPathZip) Then
    37. KopiereZipAsync()
    38. Else
    39. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Failure, "Das Laufwerk " & errorHdd & " meldet einen Fehler.")
    40. End If
    42. End Select
    43. End Sub
    45. Private Async Sub KopiereAsync()
    46. Debug.WriteLine("KopiereAsync gestartet")
    47. Await Threading.Tasks.Task.Run(Function() CallCopy())
    48. Debug.WriteLine("KopiereAsync beendet")
    49. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Debug, "Debug: Single-Task 'Kopieren'abgeschlossen.")
    50. RaiseEvent MeldungsID(0)
    51. End Sub
    53. Private Async Sub ZippAsync()
    54. Debug.WriteLine("ZippAsync gestartet")
    55. Await Threading.Tasks.Task.Run(Function() CallZip())
    56. Debug.WriteLine("ZippAsync beendet")
    57. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Debug, "Debug: Single-Task 'Zippen'abgeschlossen.")
    58. RaiseEvent MeldungsID(1)
    59. End Sub
    61. Private Async Sub KopiereZipAsync()
    62. Debug.WriteLine("KopiereAsync gestartet")
    63. Await Threading.Tasks.Task.Run(Function() CallCopy())
    64. Debug.WriteLine("KopiereAsync beendet")
    66. Debug.WriteLine("ZippAsync gestartet")
    67. Await Threading.Tasks.Task.Run(Function() CallZip())
    68. Debug.WriteLine("ZippAsync beendet")
    69. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Debug, "Debug: Double-Task 'Kopieren und Zippen'abgeschlossen.")
    70. RaiseEvent MeldungsID(2)
    71. End Sub


    VB.NET-Quellcode

    1. ​
    2. Private Sub Mitteilungen(ByVal var As Integer) Handles copyzip.MeldungsID
    3. Debug.WriteLine("MeldungsID: " & var)
    4. If var = 0 Then
    5. Debug.WriteLine("Bedingung 0 erfüllt")
    6. ResetControls()
    7. RestProgrssbar()
    8. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Success, "Single-Task 'Kopieren' abgeschlossen.")
    9. ElseIf var = 1 Then
    10. Debug.WriteLine("Bedingung 1 erfüllt")
    11. ResetControls()
    12. RestProgrssbar()
    13. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Success, "Single-Task 'Zippen' abgeschlossen.")
    14. ElseIf var = 2 Then
    15. Debug.WriteLine("Bedingung 2 erfüllt")
    16. ResetControls()
    17. RestProgrssbar()
    18. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Success, "Double-Task 'Kopieren und Zippen'abgeschlossen.")
    19. ElseIf var = 5 Then
    20. Debug.WriteLine("Bedingung 5 erfüllt") ' Wenn Fehler auftreten.
    21. ResetControls()
    22. RestProgrssbar()
    23. End If
    24. End Sub



    @RodFromGermany
    ​Exception-Info richtig auswerten

    Ja da tut ich mich noch oft schwer mit. :(
    Und in einigen Testläufen habe ich festgestellt, das es subjektiv kaum einen Geschwindigkeitsunterschied macht ob ich die alte oder neue Version des "Copy & Zip" mache. Zumal das Source und das TargetZip immer USB-Geräte sind.


    @ErfinderDesRades
    Ich versuche so wenig wie möglich Try/Catch zu verwenden. Ist nicht einfach, wenn man das "immer" verwendet hat.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    @Amelie Gib Deiner Sub Mitteilungen() keinen Integer als Parameter, sondern einen Enum.
    Und gib den Enum-Items klingende Namen, da liest sich Dein Code wesentlich leichter und Du musst nicht überprüfen, ob ein Integer-Wert schon in Benutzung ist.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany

    Habe das nun so umgesetzt. :thumbsup:

    VB.NET-Quellcode

    1. ​
    2. Public Class CopyZip
    4. Friend Enum Meldung
    5. Copy
    6. Zip
    7. Both
    8. Failure
    9. End Enum
    11. Friend Event MeldungsID(MeldungID As Meldung)
    13. Private Async Sub KopiereAsync()
    14. Debug.WriteLine("KopiereAsync gestartet")
    15. Await Threading.Tasks.Task.Run(Function() CallCopy())
    16. Debug.WriteLine("KopiereAsync beendet")
    17. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Debug, "Debug: Single-Task 'Kopieren'abgeschlossen.")
    18. RaiseEvent MeldungsID(Meldung.Copy)
    19. End Sub


    Was noch zuweilen Probleme macht, ist die Prüfung ob ein Laufwerk vorhanden / bereit ist. Hier verhällt sich mein Code gerade merkwürdig. Mal geht es mal nicht.... ?(
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    Was noch zuweilen Probleme macht, ist die Prüfung ob ein Laufwerk vorhanden / bereit ist.
    Mit welchen Parametern rufst Du denn diese Funktion auf?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @RodFromGermany
    Im Moment spinnt alles. ;( Deswegen mal auf einfachste reduziert.

    Laufwerke vorhanden! Die Funktion meldet einen Fehler lässt aber die MSGBox nicht aufpoppen. ?(
    Habe ich ein Brett vorm Kopf??? ;(

    VB.NET-Quellcode

    1. Friend Function IsDriveReady(ByVal HDD As String) As Boolean
    2. Try
    3. Return Directory.Exists(HDD)
    4. Catch ex As Exception
    5. MessageBox.Show(ex.Message) ' Die popt nicht auf!!!
    6. Return False
    7. End Try
    8. End Function
    10. Friend Sub Threadsstarten(SelectedCopytype As Integer)
    11. Select Case SelectedCopytype
    12. Case Is = 0
    13. If IsDriveReady(propertyinfo.SourcePath) AndAlso IsDriveReady(propertyinfo.TargetPathCopy) Then
    14. KopiereAsync()
    15. Else
    16. logger.AddLogEntry(EventExceptionRecorder.LogLevel.Failure, "Das Laufwerk " & errorHdd & " meldet einen Fehler.") 'Hier wird aber ein Fehler gemeldet
    17. End If
    18. End Select
    19. End Sub
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

    Amelie schrieb:

    VB.NET-Quellcode

    1. ' Die popt nicht auf!!!
    Ich behaupte mal, dass die Funktion Directory.Exists(..) keine Exception wirft.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    was auch in der Doku steht:

    Microsoft-Doku schrieb:

    Gibt zurück
    true, wenn sich path auf ein vorhandenes Verzeichnis bezieht; false, wenn ein Verzeichnis nicht vorhanden ist, oder wenn beim Versuch festzustellen, ob ein angegebenes Verzeichnis vorhanden ist, ein Fehler auftritt.
    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.

    Amelie schrieb:

    Ich versuche so wenig wie möglich Try/Catch zu verwenden. Ist nicht einfach, wenn man das "immer" verwendet hat.
    Hihi!
    Tipp: Lass es einfach.
    Das ist durchaus ganz einfach: Einfach es unterlassen.

    Und - wurde schon gesagt - Doku lesen. Einfacher als mit dem ObjectBrowser gehts einfach nicht. VisualStudio richtig nutzen (Google ist nicht deine Mami)

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Konnte das Problem nun eingrenzen und zumindest für den Moment beheben.
    Habe auch nochmal das Thema hier mit dem Try/Catch gelesen. Ist nicht leicht diese Blöcke wegzulassen wenn man sich so daran "gewöhnt" hat, auch wenn es, was ich mittlerweile weiß eine eher schlechte Angewohnheit ist.
    So nach dem Motto: "Fehler wegklicken nur damit das Programm nicht abstürzt"
    Muss noch herausfinden, wann die "Sinnvoll" sein können und wann eben nicht.
    Asperger Autistin. Brauche immer etwas um gewisse Sachen zu verstehen. :huh:

Facebook
Telefonspende