Programm hängt sich auf beim Download größerer Files!

  • VB.NET

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

    Programm hängt sich auf beim Download größerer Files!

    Hallo,

    ich suche schon seit mehreren Stunden nach einer Lösung.
    Ich habe ein Programm geskriptet welches Überprüft welche Dateien er herunterladen soll. Dies erfolg alles übers Internet.

    Es funktionniert genau so wie es sollte, jedoch wenn die Files größer werden hängt sich das Programm auf.
    zB bei einem File von der größe 450 kb ist gar kein Problem zum downloaden und das Programm läuft weiter.

    Gibt es eine möglichkeit, den ablauf vom Skript zu stoppen bis der Download fertig ist ?

    MfG Ashton

    Ok gut, ich hab das in etwa hinbekommen mit dem Backgorundworker.
    Aber jetzt habe ich das Problem, dass er das was im BackgroundWorker drin steht immer wieder wiederholt, ohne Ende.

    Was kann ich da machen?

    Ich bin noch ziemlich neu in VB :)

    MfG Ashton

    Ashton schrieb:

    D.h mit dem Backgroundworker kann ich da Skript sozusagen anhalten, bis der Download fertig ist ?

    Dieses Denken erinnert mich an "Spagetti-Code".
    Windows-Programme sind ereignisorientiert. Ein Ereignis, Button_Click, Mouse_Down, Timer_Tick oder Thread_Start usw. startet einen Ablauf und hört auf, wenn der entsprechende Inhalt abgearbeitet ist. Diese Abläufe sind in Threads organisiert, die vom Betriebssystem zur Abarbeitung Zeitscheiben zugewiesen bekommen. Ein einfaches Programm hat nur einen Thread, den GUI-Thread. Wenn viel zu tun ist, kann es sein, dass die Oberfläche "einfriert", also nicht mehr aktualisiert wird. Deswegen werden gewisse Abläufe in separate Threads ausgelagert. Das hat den Vorteil, dass die GUI wieder frei ist und das Programm schneller läuft, weil 2 Zeitscheiben mehr Zeit ist als 1 Zeitscheibe (vom Gesamt-Zeitscheibenkuchen).
    Der Nachteil besteht darin, dass Zugriffe auf Variablen synchronisiert und GUI-Zugriffe invoked werden müssen.
    Ansonsten ist das alles nur eine Frage der Gewöhnung. :thumbup:
    ----------------------------------
    Zeige Deinen Code und Dir wird geholfen.
    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:

    Zeige Deinen Code und Dir wird geholfen.
    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!

    Ok, hab das nicht gesehen

    Naja hier ist der Code, es ist ein Patcher, auch wenn etwas umständlich geschrieben.
    Nochmal das Problem, nachdem er anfängt zu kontrollieren, ob er etwas Patchen muss, dann bleibt er beim Abschnitt zB Monster DATEIEN stehen
    und geht so wie ich das in der Praxis bemerkt habe sofort zum Ende und öffnet halt die MessageBox und fängt dann wieder von vorne an, und öffnet
    immer und immer wieder die MessageBox .

    Hier der Code:
    Zum testen ob er funktionniert, habe ich so eingestellt, dass er die Monster DATEIEN soll patchen, aber wenn er die geladen hat, überprüft er nicht mehr
    den Rest oder doch ? und wieso wiederholt er immer wieder alles ?

    VB.NET-Quellcode

    1. Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork Dim WC As New WebClient
    2. '---------------------------------------------------------------------------------------------------'--------------------------------ROOT DATEIEN-----------------------------------------------------'---------------------------------------------------------------------------------------------------
    3. barlabel.Text = "Überprüfe root.het/loo..."My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/root.txt","root.txt")Dim root As Integerroot = My.Computer.FileSystem.ReadAllText("root.txt")If root= My.Settings.root Thenbarlabel.Text = "Überprüfe root.het/loo...Ok"gesamt.Value = "10"My.Computer.FileSystem.DeleteFile("root.txt")Else
    4. barlabel.Text = "Lösche root.het..."
    5. My.Computer.FileSystem.DeleteFile("pack/root.het")
    6. barlabel.Text = "Lösche root.loo..."
    7. My.Computer.FileSystem.DeleteFile("pack/root.loo")
    8. barlabel.Text = "Lade root.het herunter..."
    9. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/root.het"),"pack/root.het")
    10. barlabel.Text = "Lade root.loo herunter..."
    11. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/root.loo"),"pack/root.loo")
    12. barlabel.Text = "root.het/loo wurden aktualisiert!"
    13. My.Computer.FileSystem.DeleteFile("root.txt")
    14. My.Settings.root= root
    15. End If
    18. '---------------------------------------------------------------------------------------------------
    19. '--------------------------------Effect DATEIEN-----------------------------------------------------
    20. '---------------------------------------------------------------------------------------------------
    21. barlabel.Text = "Überprüfe effect.het/loo..."
    22. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/Effect.txt","Effect.txt")
    23. Dim effect As Integer
    24. effect = My.Computer.FileSystem.ReadAllText("Effect.txt")
    25. Ifeffect = My.Settings.Effect Then
    26. barlabel.Text = "Überprüfe effect.het/loo...Ok"
    27. gesamt.Value = "20"
    28. My.Computer.FileSystem.DeleteFile("Effect.txt")
    29. Else
    30. barlabel.Text = "Lösche Effect.het..."
    31. My.Computer.FileSystem.DeleteFile("pack/Effect.het")
    32. barlabel.Text = "Lösche Effect.loo..."
    33. My.Computer.FileSystem.DeleteFile("pack/Effect.loo")
    34. barlabel.Text = "Lade Effect.het herunter..."
    35. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/Effect.het"),"pack/Effect.het")
    36. barlabel.Text = "Lade Effect.loo herunter..."
    37. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/Effect.loo"),"pack/Effect.loo")
    38. barlabel.Text = "Effect.het/loo wurden aktualisiert!"
    39. My.Computer.FileSystem.DeleteFile("Effect.txt")
    41. My.Settings.Effect = effect
    42. End If
    45. '---------------------------------------------------------------------------------------------------
    46. '--------------------------------icon DATEIEN-------------------------------------------------------
    47. '---------------------------------------------------------------------------------------------------
    48. barlabel.Text = "Überprüfe icon.het/loo..."
    49. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/icon.txt","icon.txt")
    50. Dimicon As Integer
    51. icon = My.Computer.FileSystem.ReadAllText("icon.txt")
    52. If icon= My.Settings.icon Then
    53. barlabel.Text = "Überprüfe icon.het/loo...Ok"
    54. gesamt.Value = "32"
    55. My.Computer.FileSystem.DeleteFile("icon.txt")
    56. Else
    57. barlabel.Text = "Lösche icon.het..."
    58. My.Computer.FileSystem.DeleteFile("pack/icon.het")
    59. barlabel.Text = "Lösche icon.loo..."
    60. My.Computer.FileSystem.DeleteFile("pack/icon.loo")
    61. barlabel.Text = "Lade icon.het herunter..."
    62. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/icon.het"),"pack/icon.het")
    63. barlabel.Text = "Lade icon.loo herunter..."
    64. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/icon.loo"),"pack/icon.loo")
    65. barlabel.Text = "icon.het/loo wurden aktualisiert!"
    66. My.Computer.FileSystem.DeleteFile("icon.txt")
    67. My.Settings.icon= icon
    68. End If
    71. '---------------------------------------------------------------------------------------------------
    72. '--------------------------------item DATEIEN-------------------------------------------------------
    73. '---------------------------------------------------------------------------------------------------
    74. barlabel.Text = "Überprüfe item.het/loo..."
    75. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/item.txt","item.txt")
    76. Dimitem As Integer
    77. item = My.Computer.FileSystem.ReadAllText("item.txt")
    78. If item= My.Settings.item Then
    79. barlabel.Text = "Überprüfe item.het/loo...Ok"
    80. gesamt.Value = "38"
    81. My.Computer.FileSystem.DeleteFile("item.txt")
    82. Else
    83. barlabel.Text = "Lösche item.het..."
    84. My.Computer.FileSystem.DeleteFile("pack/item.het")
    85. barlabel.Text = "Lösche item.loo..."
    86. My.Computer.FileSystem.DeleteFile("pack/item.loo")
    87. barlabel.Text = "Lade item.het herunter..."
    88. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/item.het"),"pack/item.het")
    89. barlabel.Text = "Lade item.loo herunter..."
    90. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/item.loo"),"pack/item.loo")
    91. barlabel.Text = "item.het/loo wurden aktualisiert!"
    92. My.Computer.FileSystem.DeleteFile("item.txt")
    93. My.Settings.item= item
    94. End If
    97. '---------------------------------------------------------------------------------------------------
    98. '--------------------------------locale_de DATEIEN--------------------------------------------------
    99. '---------------------------------------------------------------------------------------------------
    100. barlabel.Text = "Überprüfe locale_de.het/loo..."
    101. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/locale_de.txt","locale_de.txt")
    102. Dimlocale_de As Integer
    103. locale_de = My.Computer.FileSystem.ReadAllText("locale_de.txt")
    104. Iflocale_de = My.Settings.locale_de Then
    105. barlabel.Text = "Überprüfelocale_de.het/loo...Ok"
    106. gesamt.Value = "44"
    107. My.Computer.FileSystem.DeleteFile("locale_de.txt")
    108. Else
    109. barlabel.Text = "Lösche locale_de.het..."
    110. My.Computer.FileSystem.DeleteFile("pack/locale_de.het")
    111. barlabel.Text = "Lösche locale_de.loo..."
    112. My.Computer.FileSystem.DeleteFile("pack/locale_de.loo")
    113. barlabel.Text = "Lade locale_de.het herunter..."
    114. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/locale_de.het"),"pack/locale_de.het")
    115. barlabel.Text = "Lade locale_de.loo herunter..."
    116. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/locale_de.loo"),"pack/locale_de.loo")
    117. barlabel.Text = "locale_de.het/loo wurden aktualisiert!"
    118. My.Computer.FileSystem.DeleteFile("locale_de.txt")
    119. My.Settings.locale_de= locale_de
    120. End If
    123. '---------------------------------------------------------------------------------------------------
    124. '--------------------------------ETC DATEIEN--------------------------------------------------------
    125. '---------------------------------------------------------------------------------------------------
    126. barlabel.Text = "Überprüfe ETC.het/loo..."
    127. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/ETC.txt", "ETC.txt")
    128. Dim ETCAs Integer
    129. ETC = My.Computer.FileSystem.ReadAllText("ETC.txt")
    130. If ETC= My.Settings.ETC Then
    131. barlabel.Text = "Überprüfe ETC.het/loo...Ok"
    132. gesamt.Value = "50"
    133. My.Computer.FileSystem.DeleteFile("ETC.txt")
    134. Else
    135. barlabel.Text = "Lösche ETC.het..."
    136. My.Computer.FileSystem.DeleteFile("pack/ETC.het")
    137. barlabel.Text = "Lösche ETC.loo..."
    138. My.Computer.FileSystem.DeleteFile("pack/ETC.loo")
    139. barlabel.Text = "Lade ETC.het herunter..."
    140. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/ETC.het"),"pack/ETC.het")
    141. barlabel.Text = "Lade ETC.loo herunter..."
    142. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/ETC.loo"),"pack/ETC.loo")
    143. barlabel.Text = "ETC.het/loo wurden aktualisiert!"
    144. My.Computer.FileSystem.DeleteFile("ETC.txt")
    145. My.Settings.ETC= ETC
    146. End If
    149. '---------------------------------------------------------------------------------------------------
    150. '--------------------------------Monster DATEIEN----------------------------------------------------
    151. '---------------------------------------------------------------------------------------------------
    152. barlabel.Text = "Überprüfe Monster.het/loo..."
    153. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/Monster.txt","Monster.txt")
    154. DimMonster As Integer
    155. Monster = My.Computer.FileSystem.ReadAllText("Monster.txt")
    156. IfMonster = My.Settings.Monster Then
    157. barlabel.Text = "Überprüfe Monster.het/loo...Ok"
    158. gesamt.Value = "55"
    159. My.Computer.FileSystem.DeleteFile("Monster.txt")
    160. Else
    161. barlabel.Text = "Lösche Monster.het..."
    162. My.Computer.FileSystem.DeleteFile("pack/Monster.het")
    163. barlabel.Text = "Lade Monster.het herunter..."
    164. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/Monster.het"),"pack/Monster.het")
    165. barlabel.Text = "Lösche Monster.loo..."
    166. My.Computer.FileSystem.DeleteFile("pack/Monster.loo")
    167. barlabel.Text = "Lade Monster.loo herunter..."
    168. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/Monster.loo"),"pack/Monster.loo")
    169. barlabel.Text = "Monster.het/loo wurden aktualisiert!"
    170. My.Computer.FileSystem.DeleteFile("Monster.txt")
    171. My.Settings.Monster= Monster
    172. End If
    175. '---------------------------------------------------------------------------------------------------
    176. '--------------------------------monster2 DATEIEN---------------------------------------------------
    177. '---------------------------------------------------------------------------------------------------
    178. barlabel.Text = "Überprüfe monster2.het/loo..."
    179. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/monster2.txt","monster2.txt")
    180. Dimmonster2 As Integer
    181. monster2 = My.Computer.FileSystem.ReadAllText("monster2.txt")
    182. Ifmonster2 = My.Settings.monster2 Then
    183. barlabel.Text = "Überprüfe monster2.het/loo...Ok"
    184. gesamt.Value = "60"
    185. My.Computer.FileSystem.DeleteFile("monster2.txt")
    186. Else
    187. barlabel.Text = "Lösche monster2.het..."
    188. My.Computer.FileSystem.DeleteFile("pack/monster2.het")
    189. barlabel.Text = "Lösche monster2.loo..."
    190. My.Computer.FileSystem.DeleteFile("pack/monster2.loo")
    191. barlabel.Text = "Lade monster2.het herunter..."
    192. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/monster2.het"),"pack/monster2.het")
    193. barlabel.Text = "Lade monster2.loo herunter..."
    194. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/monster2.loo"),"pack/monster2.loo")
    195. barlabel.Text = "monster2.het/loo wurden aktualisiert!"
    196. My.Computer.FileSystem.DeleteFile("monster2.txt")
    197. My.Settings.monster2= monster2
    198. End If
    201. '---------------------------------------------------------------------------------------------------
    202. '--------------------------------NPC DATEIEN--------------------------------------------------------
    203. '---------------------------------------------------------------------------------------------------
    204. barlabel.Text = "Überprüfe NPC.het/loo..."
    205. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/NPC.txt", "NPC.txt")
    206. Dim NPCAs Integer
    207. NPC = My.Computer.FileSystem.ReadAllText("NPC.txt")
    208. If NPC= My.Settings.NPC Then
    209. barlabel.Text = "Überprüfe NPC.het/loo...Ok"
    210. gesamt.Value = "65"
    211. My.Computer.FileSystem.DeleteFile("NPC.txt")
    212. Else
    213. barlabel.Text = "Lösche NPC.het..."
    214. My.Computer.FileSystem.DeleteFile("pack/NPC.het")
    215. barlabel.Text = "Lösche NPC.loo..."
    216. My.Computer.FileSystem.DeleteFile("pack/NPC.loo")
    217. barlabel.Text = "Lade NPC.het herunter..."
    218. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/NPC.het"),"pack/NPC.het")
    219. barlabel.Text = "Lade NPC.loo herunter..."
    220. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/NPC.loo"),"pack/NPC.loo")
    221. barlabel.Text = "NPC.het/loo wurden aktualisiert!"
    222. My.Computer.FileSystem.DeleteFile("NPC.txt")
    223. My.Settings.NPC= NPC
    224. End If
    225. End Sub
    226. Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
    227. MessageBox.Show("Fertig!")
    228. End Sub


    Sorry wenn das so lang wurde... Wollte nicht so reinkommen wie es im VB war.... Und If ist mit dem darauffolgendem Wort verbunden, ka wieso -.-

    INFO:
    Der BackgroundWorker wird durch einen Timer aktiviert.

    Wenn noch etwas fehlt, was wichtig sein könnte bitte sagen.

    MfG Ashton

    Du arbeitest parallel mit 2 Download-Verfahren:

    VB.NET-Quellcode

    1. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/Monster.txt","Monster.txt")
    2. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/Monster.het"),"pack/Monster.het")

    Stelle zunächst alles auf downloaderX.DownloadFileAsync() um.
    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:

    Du arbeitest parallel mit 2 Download-Verfahren:

    VB.NET-Quellcode

    1. My.Computer.Network.DownloadFile("http://www.het-loo.org/patch/Monster.txt","Monster.txt")
    2. downloader.DownloadFileAsync(New Uri("http://www.het-loo.org/patch/pack/Monster.het"),"pack/Monster.het")

    Stelle zunächst alles auf downloaderX.DownloadFileAsync() um.
    downloaderX? Wieso X ?

    Da kannst Du mehrere Downloads parallel machen.
    Gib den Downloadern entsprechende Namen.
    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!

    Also ich hab dann für jeden Abchnitt einen downloader erstellt.
    Alles ist gut, jedoch wiederholt er noch das ganze immer wieder -.-

    Edit:
    Anderes Problem:
    Er Kontrolliert nur die erste DATEI und geht dann sofort auf das Ende... Wenn ich jetzt so einstelle, dass er die Monster DATEIEN patchen soll, dann kommt er nicht einmal bis dahin, seitdem ich für jeden Abschnitt einen eigenen WebClient gemacht habe :(

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

    Du musst die Schleife identifizieren und auflösen.
    Dann setze mal beim Start der Wiederholung einen Haltepunkt rein und sieh nach, wo er herkommt.
    DownloadFileAsync() .
    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!

    Ashton schrieb:

    Edit:
    Anderes Problem:
    Er Kontrolliert nur die erste DATEI und geht dann sofort auf das Ende... Wenn ich jetzt so einstelle, dass er die Monster DATEIEN patchen soll, dann kommt er nicht einmal bis dahin, seitdem ich für jeden Abschnitt einen eigenen WebClient gemacht habe :(
    Hab noch anderes Problem: Zitat^

    Da musst und kannst Du jetzt echt viel lernen.
    Ich habe nämlich keine Zeit, Deinen "Monstercode" in der Tiefe zu analysieren oder gar auszuprobieren.
    Also:
    Zerpflücke Dein Programm in Teilprogramme (mach Dir ggf ein neues kleines Projekt) und teste, ob es läuft.
    Wenn jeder Teil einzeln läuft, setze die Teile einzeln wieder zusammen.
    Teste jedesmal und sorge, dass jede Etappe läuft.
    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!