Zugriff auf Datei nach FileStream.Close verweigert

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von SpaceyX.

    Zugriff auf Datei nach FileStream.Close verweigert

    Guten Tag

    Ich schreibe gerade meine eigene Klasse zum Downloaden von Dateien. In diese Klasse habe ich eine Funktion eingebaut, mit welcher man den Download fortsetzen kann, wenn er unterbrochen wird.
    Aber ich hab damit ein Problem. Wenn ich vorher in meiner AbortDownload-Methode den Download abbreche, schließe ich auch mit FileStream.Close den Stream. Wenn ich zum Fortsetzen einen neuen FileStream auf die Datei zugreifen lassen will, kommt folgende Fehlermeldung.

    Quellcode

    1. Auf eine geschlossene Datei kann nicht zugegriffen werden.


    Wie kann ich aber trotzdem auf die Datei zugreifen?

    Vielen Dank im Voraus.

    Breadsoft

    Is klar. Wenn der Tankdeckel drauf ist, kommt kein Benzin in den Tank.
    Entweder Du lässt den Stream offen bis der Vorgang beendet ist oder Du disposest und öffnest ihn wieder (Achtung: File-Append), nimm dazu ein Using.
    Ansonsten schick mal den Code vorbei.
    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!

    Hey,

    ROD hat Dir doch schon den entscheidenden Hinweis gegeben. Du kannst beim Abbrechen den FileStream ruhig schliessen. Wird der Download wieder aufgenommen, dann übergibst Du beim Konstruktor des FileStreams einfach FileMode.Append.
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

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

    Breadsoft schrieb:

    Aber wie soll ich den Download dann abbrechen können,
    Das Problem dürfte eher darin bestehen, das Download dort fortzusetzen, wo es unterbrochen wurde.
    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!

    Hey,

    ich hab Dir mal was getippt, was eine Wiederaufnahme des Downloads erlaubt. Habs nicht wirklich durchgetestet und wahrscheinlich ziemlich fehlerbehaftet. Soll Dir aber auch nur ein Anhaltspunkt sein, wie man es machen kann.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class FileDownloader
    2. Public Property FileUri As Uri
    4. Private _totalReceived As Long
    5. Private _response As Net.HttpWebResponse = Nothing
    6. Private _interrupted As Boolean = False
    7. Private _fileStream As IO.FileStream = Nothing
    8. Private _asyncOp As System.ComponentModel.AsyncOperation
    9. Private _responseStream As IO.Stream = Nothing
    10. Private _fileName As String = ""
    11. Private _canceled As Boolean = False
    13. Public Event DownloadProgressChanged(ByVal sender As FileDownloader, ByVal percentage As Integer)
    14. Public Event DownloadCompleted(ByVal sender As FileDownloader, ByVal file As IO.FileInfo)
    15. Public Event DownloadInterrupted(ByVal sender As FileDownloader)
    17. Public Sub New(ByVal uri As Uri)
    18. _response = GetResponse(uri)
    20. If IsNothing(_response) Then
    21. Throw New FileNotExistsException()
    22. End If
    24. Me.FileUri = uri
    26. _responseStream = _response.GetResponseStream()
    27. _asyncOp = System.ComponentModel.AsyncOperationManager.CreateOperation(Nothing)
    28. _fileName = _response.ResponseUri.AbsolutePath.Replace("/", "")
    29. End Sub
    31. Private Sub DoDownload()
    32. Dim buffer(1000000) As Byte
    33. Dim recLen As Integer = 0
    34. Dim progress As Integer = 0
    36. If IsNothing(_responseStream) Then
    37. _response = GetResponse(Me.FileUri)
    38. _responseStream = _response.GetResponseStream()
    39. End If
    41. If IsNothing(_fileStream) Then
    42. _fileStream = New IO.FileStream("tmp.file", IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)
    43. Else
    44. _fileStream = New IO.FileStream("tmp.file", IO.FileMode.Append, IO.FileAccess.Write)
    45. End If
    47. Do
    48. If _interrupted Then
    49. _fileStream.Close()
    51. _asyncOp.Post(New Threading.SendOrPostCallback(AddressOf OnDownloadInterrupted), Nothing)
    53. Exit Do
    54. End If
    56. If _canceled Then
    57. _fileStream.Close()
    58. _responseStream.Close()
    59. _response = Nothing
    60. _responseStream = Nothing
    61. _fileStream = Nothing
    62. _totalReceived = 0
    63. End If
    65. recLen = _responseStream.Read(buffer, 0, buffer.Length)
    67. _totalReceived += recLen
    69. progress = Convert.ToInt32((_totalReceived * 100) / _response.ContentLength)
    71. _asyncOp.Post(New Threading.SendOrPostCallback(AddressOf OnProgressChanged), DirectCast(progress, Object))
    73. If recLen = 0 Then
    74. _responseStream.Close()
    76. _fileStream.Close()
    77. _responseStream.Close()
    78. _fileStream = Nothing
    79. _response = Nothing
    80. _responseStream = Nothing
    81. _totalReceived = 0
    83. IO.File.Move("tmp.file", _fileName)
    85. _asyncOp.Post(New Threading.SendOrPostCallback(AddressOf OnDownloadComplete), DirectCast(New IO.FileInfo(_fileName), Object))
    87. Exit Do
    88. End If
    90. _fileStream.Write(buffer, 0, recLen)
    91. Loop
    92. End Sub
    94. Public Sub BeginDownload()
    95. If _interrupted Then
    96. Exit Sub
    97. End If
    99. If _canceled Then
    100. _canceled = False
    101. End If
    103. Dim a As Action = AddressOf DoDownload
    105. a.BeginInvoke(Nothing, Nothing)
    106. End Sub
    108. Public Sub InterruptDownload()
    109. _interrupted = True
    110. End Sub
    112. Public Sub CancelDownload()
    113. _canceled = True
    114. End Sub
    116. Public Sub ResumeDownload()
    117. _interrupted = False
    119. Dim a As Action = AddressOf DoDownload
    121. a.BeginInvoke(Nothing, Nothing)
    122. End Sub
    124. Private Function GetResponse(ByVal uri As Uri) As Net.HttpWebResponse
    125. Dim hReq As Net.HttpWebRequest = Nothing
    126. Dim hRes As Net.HttpWebResponse = Nothing
    128. hReq = DirectCast(Net.HttpWebRequest.Create(uri), Net.HttpWebRequest)
    129. hReq.Proxy = Nothing
    131. Try
    132. hRes = DirectCast(hReq.GetResponse(), Net.HttpWebResponse)
    134. If Not hRes.StatusCode = Net.HttpStatusCode.OK Then
    135. Return Nothing
    136. End If
    137. Catch ex As Exception
    138. Return Nothing
    139. End Try
    141. Return hRes
    142. End Function
    144. Private Sub OnDownloadComplete(ByVal o As Object)
    145. Dim fi As IO.FileInfo = DirectCast(o, IO.FileInfo)
    147. RaiseEvent DownloadCompleted(Me, fi)
    148. End Sub
    150. Private Sub OnDownloadInterrupted(ByVal o As Object)
    151. RaiseEvent DownloadInterrupted(Me)
    152. End Sub
    154. Private Sub OnProgressChanged(ByVal o As Object)
    155. Dim progress As Integer = DirectCast(o, Integer)
    157. RaiseEvent DownloadProgressChanged(Me, progress)
    158. End Sub
    159. End Class
    161. Public Class FileNotExistsException : Inherits Exception
    162. Public Sub New()
    163. MyBase.New("This file does not exist")
    164. End Sub
    165. End Class

    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Könntest du mir erklären wie ich das anders lösen könnte weil mir bringt das ja nichts einfach code zu kopieren weil ich dabei nichts lerne.

    Wenn ich den Stream schließe, kommt die Fehlermeldung:"Auf eine geschlossene Datei kann nicht zugegriffen werden."
    Wenn ich den Stream aber nicht schließe, kommt die Fehlermeldung:"Auf die Datei ... kann nicht zugegriffen werden, weil ein anderer Prozess darauf zugreift.

    Du sollst den Code doch auch nicht kopieren, sondern vielleicht als Anhaltspunkt nehmen.

    Du kannst den FileStream jederzeit schliessen und jederzeit wieder öffnen. Und zwar mit dem .Append Argument.

    Genau hier wird das gemacht:

    VB.NET-Quellcode

    1. If IsNothing(_fileStream) Then
    2. _fileStream = New IO.FileStream("tmp.file", IO.FileMode.OpenOrCreate, IO.FileAccess.ReadWrite)
    3. Else
    4. _fileStream = New IO.FileStream("tmp.file", IO.FileMode.Append, IO.FileAccess.Write)
    5. End If
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

    Du stellst immer wieder die selben Fragen. Schau in den Code, den ich extra für Dich getippt habe, da steht alles drin. Wie man ihn pausiert, wie man ihn wieder aufnimmt.

    EDIT: Im Dateianhang findest Du das Projekt zum selber Probieren!

    EDIT2: Evtl. ists auch etwas einfacher, das Vorhaben, einen Download anzuhalten und wieder fortzusetzen, einfach auszulassen. Dann kannst Dich dem WebClient widmen. Da ist vieles einfacher.
    Dateien
    Die Unendlichkeit ist weit. Vor allem gegen Ende. ?(
    Manche Menschen sind gar nicht dumm. Sie haben nur Pech beim Denken. 8o

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

Facebook
Telefonspende