AccessViolationException: "Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist."

  • VB.NET

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

    AccessViolationException: "Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist."

    Hallo zusammen,
    seit einiger Zeit tritt in einem von mir geschriebenen Programm sehr oft die AccessViolationException mit dem Fehler "Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist." auf, wenn ich etwas in eine bestimmte TextBox schreibe. Ich vermute, dass es an der angepassten AutoVervollständigung liegt, wüsste aber nicht, wordn genau, da mir keine Zeile markiert wird :( Hier ist der Codeausschnitt:

    VB.NET-Quellcode

    1. Private Sub doAutoComplete()
    2. Try
    3. Dim ls As New List(Of String)
    4. Dim t As String = doReplace(TextBox1.Text)
    5. Dim query As String = ""
    7. If Not TextBox1.AutoCompleteCustomSource.Contains(TextBox1.Text) Or lastInput = "" Then
    8. If scdict.Keys.Contains(t.Split(" ")(0)) Then
    9. If t.Contains("\") Then
    10. query = doReplace(TextBox1.Text.Substring(TextBox1.Text.Split(" ")(0).Length + 1))
    11. For Each e As String In My.Computer.FileSystem.GetDirectories(query.Substring(0, query.Length - query.Split("\")(UBound(query.Split("\"))).Length), FileIO.SearchOption.SearchTopLevelOnly)
    12. ls.Add(t.Split(" ")(0) & " " & e)
    13. ls.Add(t.Split(" ")(0) & " " & doReverseReplace(e))
    14. Next
    15. For Each e As String In My.Computer.FileSystem.GetFiles(query.Substring(0, query.Length - query.Split("\")(UBound(query.Split("\"))).Length), FileIO.SearchOption.SearchTopLevelOnly)
    16. ls.Add(t.Split(" ")(0) & " " & e)
    17. ls.Add(t.Split(" ")(0) & " " & doReverseReplace(e))
    18. Next
    19. End If
    20. Else
    21. If t.Contains("\") Then
    22. For Each e As String In My.Computer.FileSystem.GetDirectories(t.Substring(0, t.Length - t.Split("\")(UBound(t.Split("\"))).Length), FileIO.SearchOption.SearchTopLevelOnly)
    23. ls.Add(e)
    24. ls.Add(doReverseReplace(e))
    25. Next
    26. For Each e As String In My.Computer.FileSystem.GetFiles(t.Substring(0, t.Length - t.Split("\")(UBound(t.Split("\"))).Length), FileIO.SearchOption.SearchTopLevelOnly)
    27. ls.Add(e)
    28. ls.Add(doReverseReplace(e))
    29. Next
    30. Else
    31. ls.AddRange(scdict.Keys)
    32. End If
    33. End If
    35. For Each term As XElement In xdoc.<appconfig>.<history>.Descendants()
    36. ls.Add(term.Value)
    37. Next
    39. If scdict.Keys.Contains(t.Split(" ")(0)) Then
    40. For Each ac As String In scdict(t.Split(" ")(0)).AutoComplete
    41. ls.Add(t.Split(" ")(0) & " " & ac)
    42. Next
    43. End If
    45. ls.AddRange(startList)
    47. If Not (ls.Contains(t) And Not ls.Count = 0 And Not lastInput = TextBox1.Text) Or TextBox1.Text.Length = 1 Then
    48. TextBox1.AutoCompleteCustomSource.Clear()
    49. TextBox1.AutoCompleteCustomSource.AddRange(ls.ToArray)
    50. lastInput = TextBox1.Text
    51. End If
    53. ls = Nothing
    54. End If
    55. Catch
    56. End Try
    57. End Sub


    Und hier das TextChanged Event

    VB.NET-Quellcode

    1. Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    2. Try
    3. If scdict.ContainsKey(TextBox1.Text.Split(" ")(0)) Then
    4. Me.Text = "QuExeCute - " & scdict(TextBox1.Text.Split(" ")(0)).Title
    5. Label1.Text = scdict(TextBox1.Text.Split(" ")(0)).Title
    6. Label1.Left = Me.Width - Label1.Width - 19
    7. PictureBox1.Image.Dispose()
    8. PictureBox1.Image = Image.FromFile(doReplace(scdict(TextBox1.Text.Split(" ")(0)).IconPath))
    9. ElseIf startList.Contains(TextBox1.Text) Then
    10. Label1.Text = l("startmenu")
    11. Label1.Left = Me.Width - Label1.Width - 19
    12. PictureBox1.Image.Dispose()
    13. PictureBox1.Image = My.Resources.QuickLaunch_Logo32
    14. Else
    15. Me.Text = "QuExeCute - " & l("title_openpath")
    16. Label1.Text = l("title_openpath")
    17. Label1.Left = Me.Width - Label1.Width - 19
    18. PictureBox1.Image.Dispose()
    19. PictureBox1.Image = My.Resources.QuickLaunch_Logo32
    20. End If
    21. Catch ex As Exception
    23. End Try
    25. Dim gtitle As Graphics = lblMsgText.CreateGraphics()
    26. Dim wtitle As Integer = Label1.Width
    27. If lblMsgText.Text <> "" Then
    28. wtitle = CInt(gtitle.MeasureString(Label1.Text, Label1.Font, Label1.Width).Width)
    29. gtitle.Dispose()
    30. End If
    32. Dim gtb As Graphics = lblMsgText.CreateGraphics()
    33. Dim wtb As Integer = TextBox1.Width
    34. If lblMsgText.Text <> "" Then
    35. wtb = CInt(gtb.MeasureString(TextBox1.Text, TextBox1.Font, TextBox1.Width).Width) + 15
    36. gtb.Dispose()
    37. End If
    39. If TextBox1.Width - wtitle > wtb Then
    40. Label1.Show()
    41. Else
    42. Label1.Hide()
    43. End If
    45. Try
    46. doAutoComplete()
    47. Catch ex As Exception
    49. End Try
    50. End Sub



    Auch wenn ich versuche, den Fehler mit Try-Catch Blöcken abzufangen, funktioniert es nicht. Ich hoffe, einer von euch kennt eine Lösung und bedanke mich schonmal im Vorraus :)

    Viele Grüße
    leolabs

    Hmm, hab die Try-Catch Blöcke jetzt mal rausgelassen, das Problem ist nur, dass die Exception nur manchmal auftritt und momentan tritt sie nicht auf :(

    Naja, wenn die Exception das nächste mal wieder auftritt melde ich mich nochmal :)

    Vielen Dank und Viele Grüße
    leolabs

    @jul ja, ich habs auch schon auf anderen Computern versucht und dort ist das Problem bis jetzt nur einmal aufgetreten.

    //EDIT: So, grad ist der Fehler wieder aufgetreten, es wird aber leider immernoch keine Zeile markiert, obwohl ich alle try-catch Blöcke rausgenommen habe :(

    Quellcode

    1. System.AccessViolationException wurde nicht behandelt.
    2. Message=Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist.
    3. Source=System.Windows.Forms
    4. StackTrace:
    5. bei System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg)
    6. bei System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData)
    7. bei System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context)
    8. bei System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context)
    9. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun()
    10. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel()
    11. bei Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine)
    12. bei QuExeCute.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:Zeile 81.
    13. bei System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args)
    14. bei System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args)
    15. bei Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly()
    16. bei System.Threading.ThreadHelper.ThreadStart_Context(Object state)
    17. bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean ignoreSyncCtx)
    18. bei System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state)
    19. bei System.Threading.ThreadHelper.ThreadStart()


    So wie es aussieht hat es nicht sehr viel mit meinem Programmcode zu tun...

    Viele Grüße
    leolabs

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

    Geh mal mit Einzelschritten alles durch, bis der Fehler kommt.
    Wenn Du nicht weißt, wie Einzelschritte gehen, dann klick F8.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    Niko Ortner schrieb:

    Geh mal mit Einzelschritten alles durch, bis der Fehler kommt.
    Nein. Das dauert ewig und ist nur sinnvoll bei reproduzierbarem Fehler.
    Lass das Programm laufen bis es knallt, dann sieh Dir mit Shift-F9 die Variablen an und poste uns außerdem die richtige Zeile des Fehlers.
    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:
    es wird aber leider immernoch keine Zeile markiert

    Zieh mal eine CheckBox in eine leere Form und füge diesen Code ein:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim TestInstanz As New Test(CheckBox1)
    5. End Class
    7. Class Test
    9. Public Sub New(ByVal NewCheckBox As CheckBox)
    10. NewCheckBox.Checked = True
    11. End Sub
    13. End Class

    Es wird keine Fehlerzeile markiert, sonern nur das "Es ist keine Quelle verfügbar" Fenster angezeigt.
    "Luckily luh... luckily it wasn't poi-"
    -- Brady in Wonderland, 23. Februar 2015, 1:56
    Desktop Pinner | ApplicationSettings | OnUtils

    VB.NET-Quellcode

    1. Public Class Form1
    2. Dim TestInstanz As New Test(CheckBox1)
    3. End Class

    VB.NET-Quellcode

    1. Class Test
    2. Public Sub New(ByVal NewCheckBox As CheckBox)
    3. NewCheckBox.Checked = True
    4. End Sub
    5. End Class
    Bilder

    • Fehler.jpg

      53,51 kB, 637×362, 662 mal angesehen
    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!

    Niko Ortner schrieb:

    Hast Du Professional?

    Ultimate.
    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!

    Ich hab's noch mal im VS2008 professional (XP) probiert.
    Oben das war W7-64.
    Bilder

    • VS2008.jpg

      34,03 kB, 503×261, 606 mal angesehen
    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