FileSystemWatcher - Ungültiger threadübergreifender Vorgang

  • VB.NET

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von boozone.

    FileSystemWatcher - Ungültiger threadübergreifender Vorgang

    Hallo Community,

    ich hoffe ihr könnt mir helfen!

    ich versuche mittels FileSystemWatcher meine .txt Dateien auf Änderungen zu überwachen.
    Sollte sich dann was ändern, soll die .txt Datei nochmal neu gelesen werden und der Inhalt an eine Textbox übergeben werden.

    Das ganze brauche ich für ein auf Textdatei basierter Chatclient.

    Ich mach das derzeit so:


    VB.NET-Quellcode

    1. Public WithEvents m_fsv As FileSystemWatcher
    3. ...
    5. Private Sub m_fsv_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles m_fsv.Changed
    7. Using reader As StreamReader = New StreamReader(TruePfad & "\" & AusgewaehleTxtDatei)
    8. tbInhalt.Text = reader.ReadToEnd
    9. reader.Close()
    10. End Using
    12. End Sub
    14. ...
    16. Private Sub lbTxtAuswahl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTxtAuswahl.SelectedIndexChanged
    18. ...
    20. Try
    21. 'Es wird versucht vorhandene Text Dateien einzulesen
    22. Using reader As StreamReader = New StreamReader(TruePfad & "\" & AusgewaehleTxtDatei)
    23. tbInhalt.Text = reader.ReadToEnd
    24. reader.Close()
    25. End Using
    27. 'FileSystemWatcher soll aktiviert werden
    28. m_fsv = New FileSystemWatcher(TruePfad)
    29. m_fsv.EnableRaisingEvents = True
    30. m_fsv.SynchronizingObject = value
    31. m_fsv.Filter = "*.txt"
    33. Catch ex As Exception
    35. ....
    37. End Try
    39. ...
    41. End Sub


    Leider funktioniert das nicht ganz. Mein Programm schließt sich einfach ohne Fehlermeldung.
    Beim Debuggen bin ich jetzt auf diesen Fehler gestoßen:

    "Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement tbInhalt.Text erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde."

    Jetzt habe ich natürlich auch schon ein wenige recherchiert und bin auf begriffe wie Invoke und dergleichen gestoßen.

    Leider, evtl. auch durch falsche Anwendung, hat mir das nicht weiter geholfen.

    Ich wäre wirklich dankbar wen mir hier jemand helfen könnte :)

    Viele Grüße,
    Danny

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

    Okay, ich habe was ausprobiert was ich im Zusammenhang mit dem filesystemwatcher gefunden habe:

    VB.NET-Quellcode

    1. Public WithEvents m_fsv As FileSystemWatcher
    2. Public Property SynchronizingObject As ISynchronizeInvoke
    3. 'Benutzen
    4. Dim value As ISynchronizeInvoke
    6. ...
    9. Private Sub m_fsv_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles m_fsv.Changed
    11. Using reader As StreamReader = New StreamReader(TruePfad & "\" & AusgewaehleTxtDatei)
    12. tbInhalt.Text = reader.ReadToEnd
    13. reader.Close()
    14. End Using
    16. End Sub
    18. ...
    20. Private Sub lbTxtAuswahl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTxtAuswahl.SelectedIndexChanged
    22. ...
    24. Try
    25. 'Es wird versucht vorhandene Text Dateien einzulesen
    26. Using reader As StreamReader = New StreamReader(TruePfad & "\" & AusgewaehleTxtDatei)
    27. tbInhalt.Text = reader.ReadToEnd
    28. reader.Close()
    29. End Using
    31. m_fsv = New FileSystemWatcher(TruePfad)
    32. m_fsv.EnableRaisingEvents = True
    33. m_fsv.SynchronizingObject = value 'Invoke?
    34. m_fsv.Filter = "*.txt"
    36. Catch ex As Exception
    38. ...
    40. End Try
    42. ...
    44. End Sub


    Hier habe ich diesen Lösungsansatz gefunden:
    msdn.microsoft.com/de-de/libra…izingobject(v=vs.80).aspx

    leider, wie gesagt, hat es so bei mir auch nicht funktioniert.

    Viele Grüße,
    Danny

    Das ist nur ein Versuch. Der Client nutzt die Synchronisierungsfunktion z.b. von DropBox.
    Die Text Datei wird ausgetauscht und der Client ließt sie ein. Schon hat man einen "Chat".

    Ob das jetzt unsinn ist, will ich gar nicht bestreiten. Ich mach es ohnehin nur für mich.

    Hat noch jemand eine Idee?

    Viele Grüße,
    Danny

    Also ich habe jetzt alle TryCatchens im Code weggemacht. Aber selbst dann beendet sich das Programm einfach ohne Fehlermeldung.

    Im Debuggen kommt immer noch dies hier raus:
    Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement tbInhalt erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde

    Diese Funktion:

    VB.NET-Quellcode

    1. Public WithEvents m_fsv As FileSystemWatcher
    2. 'Public Property SynchronizingObject As ISynchronizeInvoke
    3. 'Benutzen
    4. 'Dim value As ISynchronizeInvoke


    VB.NET-Quellcode

    1. Private Function Readtxt(ByVal TruePfad As String, ByVal AusgewaehleTxtDatei As String)
    3. 'Ausgewählte Textdatei wird gelesen. Inhalt wird der TextBox übergeben
    4. Using reader As StreamReader = New StreamReader(TruePfad & "\" & AusgewaehleTxtDatei)
    5. tbInhalt.Text = reader.ReadToEnd
    6. reader.Close()
    7. End Using
    9. Return Nothing
    11. End Function


    Sagt im Debug:

    tbInhalt.text =
    AccessibilityObject = {"Ungültiger threadübergreifender Vorgang: Der Zugriff auf das Steuerelement tbInhalt erfolgte von einem anderen Thread als dem Thread, für den es erstellt wurde."}

    Die Funktion Readtxt wird hier aufgrufen:

    VB.NET-Quellcode

    1. Private Sub m_fsv_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles m_fsv.Changed
    3. Readtxt(TruePfad, AusgewaehleTxtDatei)
    5. End Sub


    Und hier wir der filesystemwatcher erstellt:

    VB.NET-Quellcode

    1. Private Sub lbTxtAuswahl_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lbTxtAuswahl.SelectedIndexChanged
    3. AusgewaehleTxtDatei = lbTxtAuswahl.SelectedItem
    5. If GetPfad = Nothing Then
    7. If TruePfad = Nothing Then
    8. MessageBox.Show("Du musst zuerst einen Pfad angeben!",
    9. "Achtung!", _
    10. MessageBoxButtons.OK, _
    11. MessageBoxIcon.Exclamation, _
    12. MessageBoxDefaultButton.Button1)
    13. Else
    14. 'Try
    16. Readtxt(TruePfad, AusgewaehleTxtDatei)
    18. m_fsv = New FileSystemWatcher(TruePfad)
    19. m_fsv.EnableRaisingEvents = True
    20. 'm_fsv.SynchronizingObject = value
    21. m_fsv.Filter = "*.txt"
    23. 'Catch ex As Exception
    25. If lbTxtAuswahl.SelectedItem = "Keine Dateien vorhanden" Then
    26. 'Es wird nicht unternommen
    27. Else
    28. 'Evtl falscher Pfad!
    29. 'Nicht Optimal gelöst!
    30. MessageBox.Show("Du hast womöglich einen falschen Pfad angegeben!",
    31. "Achtung!", _
    32. MessageBoxButtons.OK, _
    33. MessageBoxIcon.Exclamation, _
    34. MessageBoxDefaultButton.Button1)
    35. End If
    37. 'End Try
    39. End If
    41. Else
    42. MessageBox.Show("Du musst deinen Pfad noch abspeichern!",
    43. "Achtung!", _
    44. MessageBoxButtons.OK, _
    45. MessageBoxIcon.Exclamation, _
    46. MessageBoxDefaultButton.Button1)
    47. End If
    49. End Sub


    Falls du noch mehr Code sehen musst, sag bescheid.

    Vielen Dank schonmal.
    Danny

    ich verstehe ühaupt nicht, wie sich das prog einerseits ohne fehlermeldung verabschiedet, annererseits aber im debugmode durchaus fehlermeldungen raushaut.

    aber sagt dodo denn auch, welche Methode per Invoking aufgerufen wern muß?

    Es ist die ReadText - Methode, in m_fsv_Changed().

    VB.NET-Quellcode

    1. Private Sub m_fsv_Changed(ByVal sender As Object, ByVal e As System.IO.FileSystemEventArgs) Handles m_fsv.Changed
    2. me.Invoke(new Action(Of String, String)(addressof REadText),TruePfad, AusgewaehleTxtDatei)
    3. End Sub
    (glaubich - der code ist recht unübersichtlich)

    zur übersichtlichkeit täte ich empfehlen, innerhalb der methoden alle leerzeilen zu entfernen.

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

    boozone schrieb:

    Ich hab leider keine ahnung^^
    Sobald ich es rausgefunden habe, schreib ich dir eine PN :)

    mein Gott!

    du wirst doch irgendein Knöpfchen gedrückt haben, dasses startet! Das läuft doch nicht von alleine los und stürzt kommentarlos ab!

    ich zB drücke immer F5, und dann läufts los, und zwar im Debug-Mode.

    Naja klar hab ich das Programm bedient. Bei der Änderung einer .txt Datei von ausserhalb ist das Programm ohne Fehlermeldung abgestürzt.
    Wieso wissen wir ja. Aber warum ohne Fehlermeldung - kA. :)

    EDIT:// Ja ich lass es auch im Debugmode laufen.

Facebook
Telefonspende