während Download warten bis abgeschlossen

  • VB.NET

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

    während Download warten bis abgeschlossen

    Hey Leute ^^

    Ich schon wieder :P
    Ich habe diesen Code:

    Spoiler anzeigen

    Quellcode

    1. Public WithEvents client As New Net.WebClient
    3. Public Sub DownloadFiles()
    4. If File1 = 1 Then
    6. If My.Computer.FileSystem.FileExists(File) Then
    8. My.Computer.FileSystem.DeleteFile(File)
    9. lbProgramm.Text = "File_Setup_" + Version+ ".exe"
    10. client.DownloadFileAsync(New Uri("https://www.FILE.de"), "File_Setup_" + Version+ ".exe")
    11. Else
    12. lbProgramm.Text = "File_Setup_" + Version+ ".exe"
    13. client.DownloadFileAsync(New Uri("https://www.FILE.de"), "File_Setup_" + Version+ ".exe")
    14. End If
    16. End If
    18. If File2 = 1 Then
    20. If My.Computer.FileSystem.FileExists(File2) Then
    22. My.Computer.FileSystem.DeleteFile(File2)
    23. lbProgramm.Text = "File2_Setup_" + Version2+ ".exe"
    24. client.DownloadFileAsync(New Uri("https://www.FILE2.de"), "File2_Setup_" + Version2+ ".exe")
    25. Else
    26. lbProgramm.Text = "File2_Setup_" + Version2+ ".exe"
    27. client.DownloadFileAsync(New Uri("https://www.FILE2.de"), "File2_Setup_" + Version2+ ".exe")
    28. End If
    30. End If
    32. End Sub
    34. Sub Finished(ByVal sender As System.Object, ByVal e As EventArgs) Handles client.DownloadFileCompleted
    35. lbProgramm.Text = ""
    36. pbFortschritt.Value = 0
    37. End Sub
    39. Sub ProgressChanged(ByVal sender As System.Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles client.DownloadProgressChanged
    40. pbFortschritt.Value = e.ProgressPercentage
    41. tbProzent.Text = pbFortschritt.Value
    42. End Sub


    Habe noch eine Progressbar = pbFortschritt / und lable = lbProgramm.

    Das Funtzt Super aber wenn ich oben noch ein Zweiten download nach dem ersten machen will sagt er das nicht mehrere gleichzeitig ausgeführt werden können :( Wie kann ich das Programm an der stelle warten lassen bis das erste Programm geladen hat ?

    EDIT: Oder kann ich beide downloads gleichzeitig downloaden lassen aber trozdem zwei exen haben ?

    MFG
    Peter

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

    nawiat schrieb:

    Hey Leute ^^

    Ich schon wieder :P


    Och nöö, nich du schon wieder :D

    Ernsthaft jetzt. Benutze eine Liste, in der die zu ladenden Files gespeichert werden (eine Queue bietet sich an). Die Files kannst du in einer Listbox anzeigen und dann eins nach dem anderen herunterladen, bis die Queue leer ist.
    So können jederzeit eines oder auch zweihundert Files in die Warteschlange gestellt werden.

    VB.NET-Quellcode

    1. Dim WithEvents wClient As WebClient
    3. Public Sub New()
    4. wClient = new WebClient()
    5. InitComponents() 'Oder wie auch immer die Methode ist...
    6. End Sub
    8. Public Sub button1_onClick(sender As Object, evt as EventArgs) Handles button1.Click
    9. downloadFile(<Link>, <Pfad>, <Datei überschreiben?>)
    10. End Sub
    12. Private Sub downloadFile(dlLink as String, dlPath As String, overwrite As Boolean)
    13. wClient.DownloadProgressChanged +=
    14. Function(s, e)
    15. label1.Text = String.Format("{0}{1}", e.ProgressPercentage.ToString, "%")
    16. progressBar1.Value = e.ProgressPercentage
    17. if button1.Enabled Then button1.Enabled = False
    18. End Function
    20. wClient.DownloadFileCompleted +=
    21. Function(s, e)
    22. label1.Text = ""
    23. progressBar1.Value = 0
    24. If Not button1.Enabled Then button1.Enabled = True
    25. End Function
    26. End Sub


    Das sollte funktionieren. Sorry, wenn da etwas komisch aussieht, ich programmiere eher in C# oder Java als VB.
    "Nichts ist unendlich, bis auf die menschliche Dummheit" - Albert Einstein
    "Man sollte nicht alles vertrauen, was im Netz steht" - Abraham Lincoln

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

    nawiat schrieb:

    mhm wenn ich das einfüge sind mir zu viele fehler


    Fehler sind da keine. Ich habe gerade geguckt. Du solltest ja auch nicht alles kopieren, sondern dir den Code angucken und verstehen wie es funktioniert. Bzw.; du müsstest ja auch die Variablen umschreiben und den Code für deinen Nutzen anpassen.

    nawiat schrieb:

    mit functionen kann ich nicht so gut arbeiten

    o_O
    Benutzt du nur Subs oder was?

    Dass du die Lambas erstmal nicht verstehst, ist mir klar, aber Functions an sich MUSST du benutzen.
    Spoiler anzeigen
    Methoden sind Subs; haben KEINEN Rückgabewert. Funktionen sind Functions (duh), sie haben einen Rückgabewert, außer diese.


    Ich habe den Code so geschrieben, damit es übersichtlich ist. Die Functions sind quasi Methoden, nur halt ohne Namen (Lambda => anonyme Funktion oder Methode).

    nawiat schrieb:

    meinen Code ne While Schleife einzubauen oder sowas ?


    Nope. Schau dir den Code nochmal an. Da steht doch was mit button1.Enabled, oder? Sollte hinweis genug sein :D

    EDIT:
    Bei einer While-Schleife würdest du im Endeffekt nur einen Deadlock erzeugen, oder den Nutzer an der weiteren Nutzer des gesamten Programms hindern - Das wollen wir nicht.
    "Nichts ist unendlich, bis auf die menschliche Dummheit" - Albert Einstein
    "Man sollte nicht alles vertrauen, was im Netz steht" - Abraham Lincoln

    bei mir wird in dein Sub Download File der Client nicht mehr erkannt..
    hab das aus button 1 in mein Sub gepackt der angesprochen wird und dann verweiße ich auf dein Sub unten. Aber ich kann doch kein Sub Enabled = Fals/True setzen. Das ergibt doch kein sinn XD

    Edit: Client wurde nicht deklariert. Button1 in dein Sub kann ich ja nicht in mein Subnamen umändern, aber warum du ein Button enablen willst weiß ich eh nicht XD ist mir grade zu hoch deine denkweiße :P

    nawiat schrieb:

    bei mir wird in dein Sub Download File der Client nicht mehr erkannt..


    Poste mal deinen gesamten Code (mit Spoiler), ich schau mir das mal an.

    nawiat schrieb:

    Aber ich kann doch kein Sub Enabled = Fals/True setzen. Das ergibt doch kein sinn XD


    Sollst du auch nicht? Wie kommst du denn darauf?
    "Nichts ist unendlich, bis auf die menschliche Dummheit" - Albert Einstein
    "Man sollte nicht alles vertrauen, was im Netz steht" - Abraham Lincoln

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public WithEvents wClient As WebClient
    3. Public Sub New()
    4. wClient = New WebClient()
    5. InitializeComponent()
    6. End Sub
    8. Public Sub DownloadFiles()
    10. My.Computer.FileSystem.DeleteFile(ExePDFCREATOR)
    11. lbProgramm.Text = "PDFCreator_Setup_" + AktuellePDFCreatorVersionP + ".exe"
    12. downloadFile("https://ftp.mozilla.org/pub/mozilla.org/firefox/releases/22.0/win32/en-US/Firefox Setup 22.0.exe", "D:\Standart Software Checker Programme\MozillaFirefox_Setup_" + AktuelleFirefoxVersionP + ".exe", True)
    13. Else
    14. lbProgramm.Text = "PDFCreator_Setup_" + AktuellePDFCreatorVersionP + ".exe"
    15. downloadFile("https://ftp.mozilla.org/pub/mozilla.org/firefox/releases/22.0/win32/en-US/Firefox Setup 22.0.exe", "D:\Standart Software Checker Programme\MozillaFirefox_Setup_" + AktuelleFirefoxVersionP + ".exe", True)
    16. End If
    18. End If
    20. If DownloadJava = 1 Then
    22. If My.Computer.FileSystem.FileExists(ExeJAVA) Then
    24. My.Computer.FileSystem.DeleteFile(ExeJAVA)
    25. lbProgramm.Text = "Java_Setup_" + AktuelleJavaSEVersionP + ".exe"
    26. downloadFile("https://ftp.mozilla.org/pub/mozilla.org/firefox/releases/22.0/win32/en-US/Firefox Setup 22.0.exe", "D:\Standart Software Checker Programme\MozillaFirefox_Setup_" + AktuelleFirefoxVersionP + ".exe", True)
    27. Else
    28. lbProgramm.Text = "Java_Setup_" + AktuelleJavaSEVersionP + ".exe"
    29. downloadFile("https://ftp.mozilla.org/pub/mozilla.org/firefox/releases/22.0/win32/en-US/Firefox Setup 22.0.exe", "D:\Standart Software Checker Programme\MozillaFirefox_Setup_" + AktuelleFirefoxVersionP + ".exe", True)
    30. End If
    32. End If
    34. End Sub
    36. Private Sub downloadFile(dlLink As String, dlPath As String, overwrite As Boolean)
    37. client.DownloadProgressChanged +=
    38. Function(s, e)
    39. lbProgramm.Text = String.Format("{0}{1}", e.ProgressPercentage.ToString, "%")
    40. progressBar1.Value = e.ProgressPercentage
    41. If button1.Enabled Then button1.Enabled = False
    42. End Function
    43. client.DownloadFileCompleted +=
    44. Function(s, e)
    45. lbProgramm.Text = ""
    46. progressBar1.Value = 0
    47. If Not button1.Enabled Then button1.Enabled = True
    48. End Function
    49. End Sub

    Das ist nicht die ganze Klasse. So macht der Code überhaupt keinen Sinn.

    Zudem, sollte man das My-Namespace nie benutzen. Auch nicht, wenn es nur schnell gehen soll.

    EDIT:
    Schau mal, ob du damit was anfangen kannst.

    VB.NET-Quellcode

    1. Option Strict On
    2. Option Explicit On
    4. Imports Microsoft.VisualBasic
    5. Imports System.IO
    6. Imports System.Net
    7. Imports System.Threading
    9. Public Class Class1
    11. Dim currentPdfCreatorVersion As String = 0
    12. Dim currentFirefoxVersion As String = 0
    13. Dim pdfCreatorExe As String = "" ' Hier Pfad eingeben...
    15. ' Die restlichen Variablen sind in der Designer-Datei, die brauchst du NICHT nochmal deklarieren.
    17. Private Sub downloadAllFiles()
    18. downloadFileAsync(New Uri("http://pen.de"), String.Format("PDFCreator_Setup_{0}.exe", currentPdfCreatorVersion), File.Exists(pdfCreatorExe), Nothing, Nothing)
    20. ' Vorgang wiederholen
    22. End Sub
    24. Public Shared Sub downloadFileAsync(dlLink As Uri, dlPath As String, overwrite As Boolean, ByRef eventOut As DownloadProgressChangedEventArgs, ByRef isFinished As Boolean)
    25. Dim wClient As WebClient = New WebClient()
    26. wClient.DownloadProgressChanged += Function(s, evt)
    27. eventOut = evt
    28. End Function
    29. wClient.DownloadFileCompleted += Function(s, evt)
    30. isFinished = True
    31. End Function
    32. wClient.DownloadFileAsync(dlLink, dlPath)
    33. End Sub
    35. End Class

    "Nichts ist unendlich, bis auf die menschliche Dummheit" - Albert Einstein
    "Man sollte nicht alles vertrauen, was im Netz steht" - Abraham Lincoln

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

    bei "wClient.DownloadProgressChanged" in deinen Sub sagt er noch folgendes:

    "Fehler 4 "Public Event DownloadProgressChanged(sender As Object, e As System.Net.DownloadProgressChangedEventArgs)" ist ein Ereignis und kann nicht direkt aufgerufen werden. Verwenden Sie eine RaiseEvent-Anweisung, um ein Ereignis aufzurufen."

    Edit: Sry mein Fehler XD ich schau mal und gebe dir eine rückmeldung ob es geht oder nicht ^^

    Edit2: ne wenn ich das "Option Strict On" setze kommen zu viele fehler in meinen Programm und in deinen Sub kommen auch nochmal 4 hinzu, kann man das umbauen in dein Sub ? fehlermeldung steht oben

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

    Hallo nawiat,

    Das für dich Infrage kommende Stichwort lautet DownloadFileAsync Klick mich

    Um einen Download zu Starten benötigst du als Erstes einen WebClient und den entsprechenden Handler für die Download Fertigstellung:

    VB.NET-Quellcode

    1. Dim MeinWebClient As New Net.WebClient
    2. AddHandler MeinWebClient.DownloadFileCompleted, AddressOf Me.DownloadFileCompleted


    Als nächstes musst du einfach nur noch den Download Starten:

    VB.NET-Quellcode

    1. MeinWebClient.DownloadFileAsync(New Uri("<LINK>"), "<LOKALER DATEIPFAD>")


    Und dann eben sobald der Download Fertiggestellt wurde deine Aktion(en) ausführen:

    VB.NET-Quellcode

    1. Private Sub DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
    2. MsgBox("Download Abgeschlossen!")
    3. End Sub

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

    nawiat schrieb:

    wenn ich das "Option Strict On" setze kommen zu viele fehler in meinen Programm
    hä? wenn ich setze....?
    Strict On ist eine Programmier-Vorraussetzung, und nicht ein Gimmick, was man mal setzt.

    Die Fehler zeigen dir, dass @BeatsleigherXDAs Code vorne und hinten nicht funktioniert - ein Detail hat @petaod schon genannt.
    Die Krux ist: sein Code ist aus c# übertragen, und in vb.net nicht getestet worden.

    okay ich danke euch allen für eure Hilfe aber ich habs jetzt 2 Stunden versucht mein Code umzubauen und es geht wirklich XD einfach mein Code ganz oben umgebastelt. Zwar nicht schön aber es geht :P

    hab alles aus den einen Sub in 9 unterschiedliche Subs gepackt und frage in meinen ersten Sub ab ob ein Integer 1 oder 0 ist wenn dann geh in den Sub von Mozilla, ElseIf geh in den anderen und wenn er iwo rein geht setze ich ihn auf 0 und beim nächsten durchlauf geht er da ja nicht mehr rein und nimmt den nächsten. Dann einfach in meinen Finish Sub wieder auf den obersten Sub verweißen XD Danke euch allen, echt nettes Forum hier ^^

    MFG
    Peter

    nawiat schrieb:

    ...9 unterschiedliche Subs gepackt ... frage ... ob ein Integer 1 oder 0 ist ... setze ich ihn auf 0 und beim nächsten durchlauf geht er da ja nicht mehr rein...


    Das klingt für mich nach einem dahin gewürfeltem Code.

    Du solltest dich mal über ​Strict On Informieren, außerdem solltest du dir das mal durchlesen.

Facebook
Telefonspende