Multithreading problem

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von mrMo.

    Multithreading problem

    Hallo zusammen.

    Ich habe ein Problem mit Multithreading wenn ich ein Sub aus einem Modul aufrufe. Ich starte den Thread via Button aus meiner Form. Die Sub liegt wie gesagt in einem separatem Modul.

    Aufruf:

    VB.NET-Quellcode

    1. ​
    2. backupThread = New Thread(AddressOf backupProcess)
    3. backupThread.Start()



    Sub:

    VB.NET-Quellcode

    1. ​ Public Sub backupProcess()
    2. list = New List(Of String)
    4. Dim currentFilename As String
    5. Dim subDirectory As String = ""
    6. Dim lastModifiedBackup As DateTime
    7. Dim lastModifiedDestination As DateTime
    8. Dim fileCount As Long = 0
    9. Dim copyCounter As Long = 0
    10. Dim changeCounter As Long = 0
    11. Dim errorCounter As Long = 0
    13. Form1.copyList.Items.Clear()
    14. Form1.BackupProgress.Value = 0
    16. Dim directoryList As String() = Directory.GetDirectories(sourcePath, "*", SearchOption.AllDirectories)
    17. list = directoryList.ToList
    19. StartCopy:
    20. fileCount = Directory.GetFiles(sourcePath & subDirectory).Count
    21. Form1.BackupProgress.Maximum = fileCount
    23. For Each file In IO.Directory.GetFiles(sourcePath & subDirectory)
    24. currentFilename = Path.GetFileName(file)
    26. If Not IO.File.Exists(destinationPath & subDirectory & currentFilename) Then
    27. Try
    28. IO.File.Copy(sourcePath & subDirectory & currentFilename, destinationPath & subDirectory & currentFilename)
    29. Form1.copyList.Items.Add(DateTime.Now & ": " & "\" & subDirectory & currentFilename)
    30. Form1.copyList.Update()
    31. Form1.copyList.TopIndex = Form1.copyList.Items.Count - 1
    33. copyCounter += 1
    34. Catch ex As Exception
    35. errorCounter += 1
    36. End Try
    38. Else
    39. lastModifiedBackup = IO.File.GetLastWriteTime(sourcePath & subDirectory & currentFilename).ToUniversalTime
    40. lastModifiedDestination = IO.File.GetLastWriteTime(destinationPath & subDirectory & currentFilename).ToUniversalTime()
    42. If lastModifiedBackup > lastModifiedDestination Then
    43. Try
    44. IO.File.Copy(sourcePath & subDirectory & currentFilename, destinationPath & subDirectory & currentFilename, True)
    45. Form1.copyList.Items.Add(DateTime.Now & ": " & "\" & subDirectory & currentFilename & " - change")
    46. Form1.copyList.Update()
    47. Form1.copyList.TopIndex = Form1.copyList.Items.Count - 1
    49. changeCounter += 1
    50. Catch ex As Exception
    51. errorCounter += 1
    52. End Try
    54. End If
    56. End If
    58. If Not Form1.BackupProgress.Value = Form1.BackupProgress.Maximum Then Form1.BackupProgress.Value += 1
    59. Next
    61. For Each item In list
    62. Dim dirInfo As New System.IO.DirectoryInfo(item)
    64. subDirectory = dirInfo.FullName.ToString().Replace(sourcePath, "") & "\"
    65. If Not Directory.Exists(destinationPath & subDirectory) Then Directory.CreateDirectory(destinationPath & subDirectory)
    67. list.RemoveAt(0)
    69. GoTo StartCopy
    70. Next
    72. endTime = DateTime.Now
    73. duration = (endTime - startTime).TotalSeconds
    74. ts = TimeSpan.FromSeconds(duration)
    76. With Form1
    77. .copyList.Items.Add("")
    78. .copyList.Items.Add("Files copied: " & copyCounter & " - " & "Files changed: " & changeCounter & " - " & "Errors: " & errorCounter)
    79. .copyList.Items.Add("Duration: " & ts.ToString)
    80. .BackupProgress.Value = fileCount
    81. End With
    82. Form1.copyList.TopIndex = Form1.copyList.Items.Count - 1
    84. BackupOffState()
    85. writeLogFile()
    87. End Sub



    Das Problem ist, es funktioniert zwar, heißt die Dateien werden alle kopiert und alles aber es wird die Listbox nicht befüllt, die Progressbar funktioniert nicht und das ganze hängt nach dem End Sub.


    Weiß jemand eine Lösung?

    Wo ist Form1 deklariert? Vermutlich nirgends und vor allem auch nicht instanziert.

    Und schmeiß zum Debuggen alle Try/Catch Blöcke raus.
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

    Alle Control Elemente tu ich in einem Thread mit

    VB.NET-Quellcode

    1. ​ BeginInvoke(Sub())
    versehen

    also zum Beispiel Statt:

    dr. Nick schrieb:

    Form1.copyList.Items.Add(DateTime.Now & ": " & "\" & subDirectory & currentFilename & " - change")


    VB.NET-Quellcode

    1. BeginInvoke(Sub()Form1.copyList.Items.Add(DateTime.Now & ": " & "\" & subDirectory & currentFilename & " - change"))​

    (nicht getestet, hat aber bei mir Geholfen)

    Nebenbei bemerkt: Ich vermisse im Code die Zeile CheckForIllegalCrossThreadCalls = True, denn ohne sie würde der Code nicht gehen. Was natürlich auch bedeutet, dass der ganze Code so ein no go ist. Vom GoTo in Zeile#69 mal ganz abgesehen.
    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.

    Morrison schrieb:

    VB.NET-Quellcode

    1. Form1.BackupProgress.Invoke(Sub() Form1.BackupProgress.Value += 1)
    Klappt wahrscheinlich, es ist möglicherweise die falsche Instanz, wohl aber derselbe Thread.
    Dialoge: Instanziierung von Forms und Aufruf von Dialogen
    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!

    Vollzitat eines Vorposts durch Anredefunktion ersetzt ~VaporiZed
    @VaporiZed:
    Was genau stimmt mit dem GoTo nicht? Ich meine, ja man könnte alles in eine Schleife packen und Goto stammt glaube ich noch von Q-Basic aber warum soll man das genau heute nicht mehr verwenden?

    BG

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

    mrMo schrieb:

    Wo ist Form1 deklariert? Vermutlich nirgends und vor allem auch nicht instanziert.
    Dieselbe Vermutung habe ich auch.
    Da wird sich auf den alten VB6-Mechanismus der automatischen Instanziierung verlassen, was natürlich schief geht.
    Dialoge: Instanziierung von Forms und Aufruf von Dialogen
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    petaod schrieb:

    Dieselbe Vermutung habe ich auch.
    Ja. Und @RodFromGermany hat diese Vermutung ebenso. Aber leider scheint @dr. Nick das zu ignorieren...
    "Gib einem Mann einen Fisch und du ernährst ihn für einen Tag. Lehre einen Mann zu fischen und du ernährst ihn für sein Leben."

    Wie debugge ich richtig? => Debuggen, Fehler finden und beseitigen
    Wie man VisualStudio nutzt? => VisualStudio richtig nutzen

Facebook
Telefonspende