Download von Startpoint fortsetzen

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von FireEmerald.

    Download von Startpoint fortsetzen

    Hallo Zusammen,

    vorab, als Ausgangspunkt verwende ich aktuell folgendes Snippet:

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System.Data
    3. Imports System.Threading
    5. Public Class MyDownload
    6. Public Event DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
    7. Public Event DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
    9. Private WithEvents _Downloader As WebClient
    10. Private _Thread As Thread ' Download-Thread
    11. Public ReadOnly _Index As Integer ' Index für Multi-Download
    12. Private _FileName As String ' Save As ...
    13. Private _Uri As Uri ' Source
    15. Public Sub New(index As Integer)
    16. _Downloader = New WebClient
    17. _Index = index
    18. _Thread = Nothing
    19. End Sub
    21. Public Sub DownloadFileAsync(ByVal url As Uri, ByVal FileName As String)
    22. _FileName = FileName
    23. _Uri = url
    24. ' jedes Mal ein neuer Thread
    25. If _Thread Is Nothing OrElse Not _Thread.IsAlive Then
    26. _Thread = New Thread(AddressOf StartThread)
    27. End If
    28. _Thread.Start()
    29. End Sub
    31. Private Sub StartThread()
    32. _Downloader.DownloadFileAsync(Me._Uri, Me._FileName)
    33. End Sub
    35. Public Sub CancelAsync()
    36. _Downloader.CancelAsync()
    37. End Sub
    39. Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles _Downloader.DownloadProgressChanged
    40. RaiseEvent DownloadProgressChanged(Me, e)
    41. End Sub
    43. Private Sub downloader_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles _Downloader.DownloadFileCompleted
    44. Dim fi As New System.IO.FileInfo(_FileName)
    45. If (fi.Length = 0) Then
    46. fi.Delete()
    47. End If
    48. RaiseEvent DownloadFileCompleted(Me, e)
    49. End Sub
    50. End Class

    von RodFromGermany aus diesem Thread, [VB 2010] Multi-Download nur im Doppelpack.


    Ist es bei dem _Downloader As WebClient auch möglich eine Art "Startpoint" festzulegen?

    Sprich, wenn wir eine Datei downloaden, den Download abbrechen und das Programm neu starten, die aktuelle Dateilänge der vorhandenen Datei ermitteln, sowie dann von dieser Dateilänge aus, den Download fortzusetzen? (Bezogen auf eine einzelne Datei, nicht mehrere)

    Gruß, FireEmerald

    ps.: wenn möglich nach Internet- und Netzwerkprogrammierung verschieben... wollte das Thema eigentlich dort erstellen.

    FireEmerald schrieb:

    eine Art "Startpoint" festzulegen?
    Frag mal Frau Google nach .net download splitten.
    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 schrieb:

    FireEmerald schrieb:

    eine Art "Startpoint" festzulegen?
    Frag mal Frau Google nach .net download splitten.

    Hast du mal selbst nach genau diesem Begriff gegoogelt? Dort findest du "Splitting" Tools - aber nicht ansatzweise etwas wo mit meiner Frage/Problem zusammenhängt.

    Unter "Splitten" verstehen die meisten das teilen von Strings o.ä. deshalb findet man unter diesem Begriff nichts.

    FireEmerald schrieb:

    Hast du mal selbst nach genau diesem Begriff gegoogelt?
    Ja. Höre ich da einen Vorwurf heraus? :D
    Du müsstest das hier einbringen und sagen, dass da nur Tools, nicht aber Snippets rausfallen.
    Aber
    So kannst Du Deine Suche beginnen.
    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 schrieb:

    FireEmerald schrieb:

    Hast du mal selbst nach genau diesem Begriff gegoogelt?
    Ja. Höre ich da einen Vorwurf heraus? :D

    Definitiv: Ja. :D

    RodFromGermany schrieb:

    Du müsstest das hier einbringen und sagen, dass da nur Tools, nicht aber Snippets rausfallen.
    Aber
    So kannst Du Deine Suche beginnen.

    Es ist nicht so als hätte ich noch nicht danach gegoogelt.

    Das kleine Problem ist, es findet sich zu diesem Thema:
    1. Nichts.
    2. Visual Basic 2005, nicht mehr zu gebrauchender Code.
    3. Visual Basic 2008, nicht mehr zu gebrauchender Code.
    4. Sehr vereinzelte Ansätze in VB2010 von anderen Usern, siehe hier, welche leider nie verwendbar sind oder keinen wirklichen Ansatz erkennen lassen.

    es findet sich einfach kein Thema, welches auf VB2010 aufwärts basiert, welches von einem Autor mit Verständnis dieser Materie geschrieben wurde, von welchem man sagen könnte, ok das ist ein guter Ansatz/Vorlage. Aus diesem Grund wollte ich auch von deinem aus beginnen... :rolleyes:

    Edit:
    In diesem Thema, [VB 2012] Zugriff auf Datei nach FileStream.Close verweigert scheint SpaceyX sich das ganze schonmal genauer angeschaut zu haben.
    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

    Er meinte aber selbst,

    SpaceyX schrieb:

    Habs nicht wirklich durchgetestet und wahrscheinlich ziemlich fehlerbehaftet.

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

    FireEmerald schrieb:

    von deinem aus beginnen...
    Meiner ist dafür nicht ausgelegt, ich hab mich damit auch nicht beschäftigt.
    Wie Du nun wohl gesehen hast, ist das Thema absolut nicht trivial, so dass die Trefferwahrscheinlichkeit entsprechend klein ist.

    FireEmerald schrieb:

    Definitiv: Ja. :D
    Und ich hab keine Lust, Deine Hausaufgaben zu machen. :D
    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!