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.

    ​Await Threading.Tasks.Task.Run scheint nicht zwangsläufig einen eigenständigen Thread zu starten. Bin aber nicht genügend in der Materie drin, um es erklären zu können.
    Zumindest wird die Oberfläche durch eine lange Aufgabe nicht blockiert und die Oberfläche bleibt reaktionsfähig. Aber, dass das jetzt per Definition nicht unbedingt ein neuer Thread ist, das wäre mir neu.

    Und so bleibt weiterhin im Dunkeln, warum ein Thread zu einer UnhandledException führen kann, ein (zu einfacher?) Task hingegen zu einer ThreadException, die ja nur im GUI-Thread entstehen kann, laut Microsoft.
    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.

    So habe nun meine Klasse für das kopieren und zippen gesäubert usw. Habe dann bei testen festgestellt, das ein RaiseEventHandler nicht passte.

    RaiseEvent NotificationsID(Notification.Failure, propertyValues.errorHdd)
    Hier wurde bei einem Fehler der Timer nicht gestartet
    ALT:

    VB.NET-Quellcode

    1. ​
    2. Private Sub Mitteilungen(ByVal var As CopyZip.Meldung, FailuerHDD As String) Handles copyzip.MeldungsID
    3. lblFormName.ForeColor = Color.Firebrick
    4. timerMessages.Start()
    5. ...


    Neu:

    VB.NET-Quellcode

    1. ​
    2. Private Sub Mitteilungen(ByVal var As CopyZip.Notification) Handles copyzip.NotificationsID
    3. lblFormName.ForeColor = Color.Firebrick
    4. timerMessages.Start()
    5. ...


    Die bereinigte Klasse.
    Spoiler anzeigen

    Auszug aus dem MainForm

    VB.NET-Quellcode

    1. Public Class frmMain
    2. Private logger As New Logging()
    3. Private drivehelper As New DriveManager()
    4. Private xmlhelper As New XmlManager()
    5. Private WithEvents copyzip As New CopyZip(drivehelper)
    6. Private enterPressed As Boolean = False
    8. Public Sub New()
    9. AddHandler Application.ThreadException, AddressOf ExceptionHandlerForErrors
    10. AddHandler AppDomain.CurrentDomain.UnhandledException, AddressOf ExceptionHandlerForErrors
    11. InitializeComponent()
    12. CheckXmlFile()
    13. End Sub
    15. Private Sub ExceptionHandlerForErrors(sender As Object, e As System.Threading.ThreadExceptionEventArgs)
    16. ShowError(e.Exception)
    17. End Sub
    19. Private Sub ExceptionHandlerForErrors(sender As Object, e As System.UnhandledExceptionEventArgs)
    20. ShowError(DirectCast(e.ExceptionObject, Exception))
    21. End Sub
    23. Private Sub ShowError(ex As Exception)
    24. logger.ExceptionToFile("Ein Fehler ist aufgetreten!" & Environment.NewLine & ex.Message)
    25. MessageBox.Show("Ein unerwarteter Fehler ist aufgetreten!" & Environment.NewLine & ex.Message, "Wichtige Info", MessageBoxButtons.OK, MessageBoxIcon.Warning)
    26. End Sub



    VB.NET-Quellcode

    1. Public Class CopyZip
    2. '' Definiert die verschiedenen Benachrichtigungstypen
    3. Friend Enum Notification
    4. Copy
    5. Zip
    6. Both
    7. End Enum
    9. '' ManagerClass für Laufwerke und Pfadinformationen
    10. Private propertyValues As New DriveManager()
    11. Private Property HDDS As DriveInfo() = DriveInfo.GetDrives()
    13. 'Friend Event FailureHDD(FailureHDD As String)
    14. Friend Event NotificationsID(NotificationID As Notification)
    15. Friend Event ZipFileReport(ReportedFileName As String)
    16. Friend Event CopyFileReport(ReportedFileName As String)
    18. Public Sub New(propInfo As DriveManager)
    19. propertyValues = propInfo
    20. End Sub
    22. ''' <summary>
    23. ''' Überprüft die Verfügbarkeit der Laufwerke und meldet ggf. einen Fehler.
    24. ''' </summary>
    25. Private Sub CheckDrives()
    26. Dim isSourcePathReady As Boolean = propertyValues.IsDriveReady(propertyValues.SourcePath)
    27. Dim isTargetCopyPathReady As Boolean = propertyValues.IsDriveReady(propertyValues.TargetCopyPath)
    28. Dim isTargetZipPathReady As Boolean = propertyValues.IsDriveReady(propertyValues.TargetZipPath)
    30. Dim affectedDrive As String = Nothing
    32. If Not isSourcePathReady Then
    33. affectedDrive = propertyValues.SourcePath
    34. ElseIf Not isTargetCopyPathReady Then
    35. affectedDrive = propertyValues.TargetCopyPath
    36. ElseIf Not isTargetZipPathReady Then
    37. affectedDrive = propertyValues.TargetZipPath
    38. End If
    40. '' Auskommentiert, weil zur Zeit nicht nötig ist, da auf dem MainForm abgefangen wird.
    41. 'If Not String.IsNullOrEmpty(affectedDrive) Then
    42. ' RaiseEvent FailureHDD(affectedDrive)
    43. 'End If
    44. End Sub
    46. ''' <summary>
    47. ''' Ruft den asyncronen Vorgang basierend auf dem ausgewählten Typ auf.
    48. ''' </summary>
    49. Friend Sub StartCopyZipThreads(SelectedCopytype As Integer)
    51. Select Case SelectedCopytype
    52. Case Is = 0
    53. CopyAsync()
    55. Case Is = 1
    56. ZipAsync()
    58. Case Is = 2
    59. CopyZipAsync()
    60. End Select
    62. End Sub
    64. ''' <summary>
    65. ''' CopyAsync & ZipAsync & CopyZipAsync
    66. ''' Startet jeweils den asyncronen Kopier- oder Zip-Vorgang basierend auf dem ausgewählten Typ.
    67. ''' </summary>
    68. Private Async Sub CopyAsync()
    69. Await Threading.Tasks.Task.Run(Function() DoFileCopy())
    70. RaiseEvent NotificationsID(Notification.Copy)
    71. End Sub
    73. Private Async Sub ZipAsync()
    74. Await Threading.Tasks.Task.Run(Function() DoFileZip())
    75. RaiseEvent NotificationsID(Notification.Zip)
    76. End Sub
    78. Private Async Sub CopyZipAsync()
    79. Await Threading.Tasks.Task.Run(Function() DoFileCopy())
    80. Await Threading.Tasks.Task.Run(Function() DoFileZip())
    81. RaiseEvent NotificationsID(Notification.Both)
    82. End Sub
    84. ''' <summary>
    85. ''' Führt das Zippen der Dateien aus.
    86. ''' </summary>
    87. Private Function DoFileZip() As Boolean
    88. CheckDrives()
    89. Dim FiledateSuffix As String = Date.Now.ToString("-HH_mm")
    90. If Not Directory.Exists(propertyValues.TargetZipPath) Then Directory.CreateDirectory(propertyValues.TargetZipPath)
    91. RaiseEvent ZipFileReport(propertyValues.TargetZipPath & FiledateSuffix)
    92. ZipFile.CreateFromDirectory(propertyValues.SourcePath, propertyValues.TargetZipPath & FiledateSuffix & ".zip", CompressionLevel.Fastest, False)
    93. If Not System.IO.Directory.GetFiles(propertyValues.TargetZipPath).Length = 0 Then
    94. Else
    95. IO.Directory.Delete(propertyValues.TargetZipPath)
    96. End If
    97. Return True
    98. End Function
    100. ''' <summary>
    101. ''' Führt das Kopieren der Dateien aus.
    102. ''' </summary>
    103. Private Function DoFileCopy() As Boolean
    104. CheckDrives()
    105. Dim NewSourcePath As New IO.DirectoryInfo(propertyValues.SourcePath), file As IO.FileInfo
    106. If IO.Directory.Exists(propertyValues.TargetCopyPath) = False Then IO.Directory.CreateDirectory(propertyValues.TargetCopyPath)
    107. For Each file In NewSourcePath.GetFiles()
    108. RaiseEvent CopyFileReport(propertyValues.TargetCopyPath & "\" & file.Name)
    109. IO.File.Copy(file.FullName.ToString, propertyValues.TargetCopyPath & "\" & file.Name.ToString, True)
    110. Next
    111. For Each subdir In NewSourcePath.GetDirectories()
    112. Call Subfoldercopy(subdir.FullName.ToString, propertyValues.TargetCopyPath & "\" & subdir.Name.ToString, True)
    113. Next
    114. Return True
    115. End Function
    117. ''' <summary>
    118. ''' Kopiert Dateien und Verzeichnisse rekursiv.
    119. ''' </summary>
    120. Private Sub Subfoldercopy(ByVal SubSource As String, ByVal Destination As String, ByVal Overwrite As Boolean)
    121. CheckDrives()
    122. Dim subdir As IO.DirectoryInfo, diSubSource As New IO.DirectoryInfo(SubSource), file As IO.FileInfo
    123. If IO.Directory.Exists(Destination) = False Then IO.Directory.CreateDirectory(Destination)
    124. For Each file In diSubSource.GetFiles()
    125. RaiseEvent CopyFileReport(file.FullName)
    126. If (IO.File.Exists(Destination & "\" & file.Name.ToString) AndAlso Overwrite = False) = False Then _
    127. IO.File.Copy(file.FullName.ToString, Destination & "\" & file.Name.ToString, Overwrite)
    128. Next
    129. For Each subdir In diSubSource.GetDirectories()
    130. Call Subfoldercopy(subdir.FullName.ToString, Destination & "\" & subdir.Name.ToString, Overwrite)
    131. Next
    132. End Sub
    133. End Class

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

    VaporiZed schrieb:

    Await Threading.Tasks.Task.Run scheint nicht zwangsläufig einen eigenständigen Thread zu starten.
    Es genügt doch, schreibend auf die GUI zuzugreifen.
    Ein Einzeiler:
    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!

    :cursing: Solange keiner hier schlüssig erklären kann, warum dann solche Exceptions im ThreadException-EventHandler und nicht im UnhandledException-EventHandler landen, bleibt die Unklarheit bestehen.

    Da bringt diese stackoverflow-Diskussion schon etwas mehr Licht ins Dunkel. Da heißt es zwar auch Because Tasks != Threads. - aber das ist nicht sonderlich zielführend, auch wenn es meinen Punkt unterstützt :whistling:
    Auch Microsoft sagt was dazu. Letztenendes wohl: Ein exceptionerzeugender Task gibt seine Infos inkl. Exception an den aufrufenden Thread (z.B. GUI-Thread) zurück und so landet die Exception, wenn sie nicht behandelt wird, im ThreadException-EventHandler und nicht wie eine Exception aus einem autarken Thread im UnhandledException-EventHandler.
    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.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „VaporiZed“ ()

    Der war gut. :thumbup:
    Wenn ich mein Beispiel aus Post #44 ohne Debugger ausführe, kommt der besagte Text im ListBox an. :S

    Und dann gibt es noch die Exception-Einstellungen im Debugger.
    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!

Facebook
Telefonspende