System.IDisposable.Dispose Fehler?

  • VB.NET

Es gibt 17 Antworten in diesem Thema. Der letzte Beitrag () ist von Stefan.

    System.IDisposable.Dispose Fehler?

    Ich hab das Problem das mir VB sagt objRead und objWrite nicht entlang allen Ausnahmepfaden verworfen werden. und ich Soll System.IDisposable.Dispose für ObjRead und ObjWrite aufrufen, bevor alle verweise darauf außerhalb des gültigen Bereichs liegen.

    VB.NET-Quellcode

    1. Imports System
    2. Imports System.IO
    3. Public Class Form1
    4. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    6. Dim objRead As New StreamReader("Path.txt")
    7. Dim lin As String = objRead.ReadLine()
    9. Dim folderDlg As New FolderBrowserDialog
    10. folderDlg.ShowNewFolderButton = True
    11. If (folderDlg.ShowDialog() = DialogResult.OK) Then
    13. Dim root As Environment.SpecialFolder = folderDlg.RootFolder
    15. If File.Exists("Path.txt") = False Then
    17. MsgBox("Bitte geben Sie einen Speicherort für Ihr Projekt an.", vbInformation, "Pfadangabe")
    19. Dim objWriter As New StreamWriter("Path.txt", False)
    20. objWriter.WriteLine(folderDlg.SelectedPath)
    21. objWriter.Close()
    23. Else
    25. For Each folder As String In IO.Directory.GetDirectories(lin)
    26. ComboBox1.Items.Add(New IO.DirectoryInfo(folder).Name)
    27. Next
    30. End If
    31. End If
    33. 'Alles schliesen
    34. objRead.Close()
    36. End Sub


    Warum ist das so? Und was kann ich dagegen tun? ?(

    Stefan schrieb:

    Und was kann ich dagegen tun?
    Nimm Using.
    Using

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. Using objRead As New StreamReader("Path.txt")
    4. Dim lin As String = objRead.ReadLine()
    6. Dim folderDlg As New FolderBrowserDialog
    7. folderDlg.ShowNewFolderButton = True
    8. If (folderDlg.ShowDialog() = DialogResult.OK) Then
    9. Dim root As Environment.SpecialFolder = folderDlg.RootFolder
    11. If File.Exists("Path.txt") = False Then
    12. MsgBox("Bitte geben Sie einen Speicherort für Ihr Projekt an.", vbInformation, "Pfadangabe")
    13. Dim objWriter As New StreamWriter("Path.txt", False)
    14. objWriter.WriteLine(folderDlg.SelectedPath)
    15. Else
    16. For Each folder As String In IO.Directory.GetDirectories(lin)
    17. ComboBox1.Items.Add(New IO.DirectoryInfo(folder).Name)
    18. Next
    19. End If
    20. End If
    22. 'Alles schliesen
    23. End Using
    24. End Sub
    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!

    Danke für die Hilfe.
    Hab mal eine Algemeine Frage:
    Darf ich hier in einem Forum, mein Gesamtes Project stück für stück durchgen? Um Eventuele Fehler zu vermeiden? Ich habe nicht sehr viel erfahrung mit Posten von Beiträgen. Da ich selten irgendewas im Internet schreibe. ?(

    Hat glaub keiner was dagegen. Über anner Leuts Code herziehen ist unsere Lieblingsbeschäftigung :D

    Kannst auch überlegen, es komplett in den SourceCode-Austausch zu stellen.
    Musst nur ein dickes Fell haben, weil manch Besserwisser vergreift sich auch mal im Ton, und da nicht in Flamewars abzugleiten ist manchmal auch eine Aufgabe ;)

    Stefan schrieb:

    stück für stück durchgen
    Ich rate da immer, ein komplexes Projekt in eine Reihe disjunkter Teilprojekte zu zerlegen und diese einzeln in je einem kleinen Testprojekt zu untersuchen.
    Wenn Du mit allen Teilaufgaben zufrieden bist, fügst Du es zu einem neuen Gesamtprojekt zusammen.
    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!

    Danke, dann kann ich mein Project ja hier rein machen? nur das mir dem in den Source Code Stellen hab ich nicht so verstanden.
    Ich habe den Vorschlag Umgesetzt und Using anstatt Dim für den StreamReader verwendet. Und habe ObjWriter.Dispose() verwendet und bekomme keine Fehler mehr. Vielen Dank. So Lerne Ich anständig Progn. :D :thumbsup:

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

    Ich musste den Code abändern. Es soll überprüft werden ob Die datei "path.txt" Exsistiert. Und wenn sie NICHT Exsistiert dann soll ein folderBrowsingDialog aufgerufen werden und der angegebene Pfad in die Datei "path.txt" gespeichert werden. Anschliesend soll der die Datei eingelesen werden (enthält den Pfad) und alle Ordner innerhalb des Pfades sollen in einer ComboBox aufgelisstet werden. So wie mein Code ist (mit Dispose) bekomme Ich keine Fehler von VS. Aber das Programm macht nichts von dem was ich möchte. wenn ich denn Dispose befehl (Ressourcen Freigeben ) am Ende meiner Befehlskette setze. macht das Programm was ich möchte, aber VS zeigt mir Fehler an, das ich Dispose Setzen soll. warum ist das So und was kann ich dagegen machen? ?(
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. If File.Exists("Path.txt") = False Then
    3. MsgBox("Bitte geben Sie einen Speicherort für Ihr Projekt an.", vbInformation, "Pfadangabe")
    5. Dim folderDlg As New FolderBrowserDialog
    6. folderDlg.Dispose()
    7. folderDlg.ShowNewFolderButton = True
    8. If (folderDlg.ShowDialog() = DialogResult.OK) Then
    9. Dim root As Environment.SpecialFolder = folderDlg.RootFolder
    11. Dim myWriter As New StreamWriter("Path.txt", False)
    12. myWriter.Dispose()
    13. myWriter.WriteLine(folderDlg.SelectedPath)
    15. Dim objRead As New StreamReader("Path.txt")
    16. objRead.Dispose()
    17. Dim lin As String
    18. lin = objRead.ReadLine()
    20. For Each folder As String In IO.Directory.GetDirectories(lin)
    21. ComboBox1.Items.Add(New IO.DirectoryInfo(folder).Name)
    22. Next
    24. End If
    26. Else
    28. Dim objRead As New StreamReader("Path.txt")
    29. objRead.Dispose()
    30. Dim lin As String
    31. lin = objRead.ReadLine()
    33. For Each folder As String In IO.Directory.GetDirectories(lin)
    34. ComboBox1.Items.Add(New IO.DirectoryInfo(folder).Name)
    35. Next
    37. End If
    39. End Sub


    Manchmal glaube ich ich bin zu blöd für alles. :S

    Stefan schrieb:

    Es soll überprüft werden ob Die datei "path.txt" Exsistiert.

    VB.NET-Quellcode

    1. If Not IO.File.Exist(DEINE_DATEI_MIT_PFAD) Then
    2. ' nicht da
    3. End If
    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!

    Dispose heißt sowas wie "loswerden", "abstoßen", "freistellen", "wegschmeißen".
    Also wenn du deine OpenFileDialog gleich nachdem du ihn erstellst wieder wegschmeißt, dann kann der auch nicht viel machen, und man wundert sich nur, dasses nicht richtig abstürzt.
    Disposen tut man ein Dingens erst, wennmans nicht mehr braucht.

    Und wie ich sehe, hast du Option Strict Off - das nix gutt: Option Strict On! - das dürfte weitere Fehler zutagefördern.

    Das mit Dispose verstehe ich ja. Aber wenn ich das so ... mache funktioniert das Prog. aber ich bekomme Fehler angezeigt von VS??? un was ist mit Option Strict Off gemeint?? Da versteh ich nur Bahnhof. Fals damit die "If folder... = False then gemeint ist. Ok das kann man umdrehen und das False weg lassen.?? ;(
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    2. If Not IO.File.Exists("Path.txt") Then
    3. MsgBox("Bitte geben Sie einen Speicherort für Ihr Projekt an.", vbInformation, "Pfadangabe")
    5. Dim folderDlg As New FolderBrowserDialog
    6. folderDlg.ShowNewFolderButton = True
    7. If (folderDlg.ShowDialog() = DialogResult.OK) Then
    8. Dim root As Environment.SpecialFolder = folderDlg.RootFolder
    10. Dim myWriter As New StreamWriter("Path.txt", False)
    12. myWriter.WriteLine(folderDlg.SelectedPath)
    14. Dim objRead As New StreamReader("Path.txt")
    16. Dim lin As String
    17. lin = objRead.ReadLine()
    19. For Each folder As String In IO.Directory.GetDirectories(lin)
    20. ComboBox1.Items.Add(New IO.DirectoryInfo(folder).Name)
    21. Next
    22. objRead.Dispose()
    23. myWriter.Dispose()
    24. End If
    26. folderDlg.Dispose()
    27. Else
    29. Dim objRead As New StreamReader("Path.txt")
    31. Dim lin As String
    32. lin = objRead.ReadLine()
    34. For Each folder As String In IO.Directory.GetDirectories(lin)
    35. ComboBox1.Items.Add(New IO.DirectoryInfo(folder).Name)
    36. Next
    37. objRead.Dispose()
    39. End If
    41. End Sub

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

    Option Strict On heißt, dass dir der Compiler sagt, dass eine Zeichenkette keine Zahl ist (String != Integer). Oder auch, dass Äpfel keine Birnen sind. Sieh dir dazu auch mal den Link von @ErfinderDesRades an, da ist das sehr gut erklärt.
    Mit freundlichen Grüßen,
    Thunderbolt

    Ok Strict On Hab Ich. Aber VS zeigt mir immernoch die Warnungen an. und Ich verstehe es immer noch nicht, warum.? Es funktioniert. aber was ist Falsch.?

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

    Stefan schrieb:

    Aber VS zeigt mir immernoch die Warnungen an.
    Welche?
    Bei mir werden keine Warnungen angezeigt.
    Was mir allerdings auffällt: Eine MessageBox hat in der Form_Load nix zu suchen.
    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!

    Hi, VS 2010 zeigt mir immer warnung an das ich Dispose setzen soll und das habe ich ja getan wie oben zu sehen.Das mit Dispose, hab ich ja verstanden, ist ja nicht altzu schwer zu verstehen. Die MassageBox hab ich, damit der Benutzer weiss was er im nächsten Fanster (BrowsingTialog) zu tun hat. Oder hast du einen besseren forschlag. Bin schon am verzweifeln, weil icch hier Extra das Projekt neu angefangen habe, da ich nicht weitergekommen bin. Bin für jede hilfe offen. Pls.

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

    Stefan schrieb:

    VS 2010 zeigt mir immer warnung an das ich Dispose setzen soll.
    Bei mir nicht.
    Kannst Du bitte mal einen Screenshot oder so swas posten, das ich das nachvollziehen kann?
    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