Multi Download

Nanoxx · 8. Juli 2013, 20:24

Hey,

Ich habe hier ein code der nicht funktioniert und kann das problem nicht lösen...

ListBox1

Quellcode

Public Class Down
Private WithEvents NORM as WebClient
Private Sub SPIN_PATCH_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If LostBox1.Items.Count = 0 Then
MsgBox("Fertig")
else
ListBox1.Selected Index = 0
Norm.DownloadFileAsync(New Uri(ListBox1.SelectedItem),(".\Data\"))
While NORM.IsBusy
Application.DoEvents() '<- In dieser Schleife bleibt das Programm beim zweiten Download stehen und es wird eine 0-Byte große Datei erstellt.
End While
end if
End Sub

Mein Problem ist: es wird kein eintrag aus der listbox ausgewählt

kann mir da einer sagen wie ich das löse?

Topic verschoben

Switcherlapp97 · 8. Juli 2013, 22:19

Hallo,

@Nanoxx für was benötigst du eigentlich diese Schleife?

VB.NET-Quellcode

While NORM.IsBusy
Application.DoEvents() '<- In dieser Schleife bleibt das Programm beim zweiten Download stehen und es wird eine 0-Byte große Datei erstellt.
End While

Die DownloadFileAsync-Methode macht den Download ja gerade asynchron, damit die Form nicht einfriert.

Einen Eintrag in einer Listbox selektierst du folgendermaßen:

VB.NET-Quellcode

'Name der Listbox.SelectedIndex = gewünschter Index (0 = erstes Item in Listbox)
ListBox1.SelectedIndex = 0

Vielleicht hat es nicht funktioniert, weil du ein Leerzeichen zwischen Selected und Index hast. Und du hast in Zeile 6 LostBox1 statt ListBox1 geschrieben

Ansonsten mach mal Option Strict On, damit du sauberer programmierst.

Hier mal ein kleines Beispiel für den Download:

VB.NET-Quellcode

Private Sub SPIN_PATCH_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If ListBox1.Items.Count = 0 Then
'nicht MsgBox("BlaBla") das ist veraltet
MessageBox.Show("Fertig")
Else
Dim NORM As New WebClient
ListBox1.SelectedIndex = 0
'hinzufügen des Handlers -> MessageBox bei Abschluss des Downloads
AddHandler NORM.DownloadFileCompleted, AddressOf DownloadCompleted
NORM.DownloadFileAsync(New Uri(ListBox1.SelectedItem.ToString), (".\Data\"))
End If
End Sub
Private Sub DownloadCompleted(sender As System.Object, e As System.ComponentModel.AsyncCompletedEventArgs)
MessageBox.Show("Vollständig heruntergeladen!")
End Sub

Gruß
Switcherlapp97

Nanoxx · 8. Juli 2013, 23:05

Quellcode

Private WithEvents DLLA As WebClient
'''''DOWNLOAD
Private Sub PatcherPatch()
DLLA = New WebClient
If Filesee.Items.Count = "0" Then
MsgBox("Download erfolreich!" & vbNewLine & "", MsgBoxStyle.Information, ("Download erfolgreich!"))
Else
Try
'########################
ListBox1.SelectedIndex = 0
DLLA.DownloadFileAsync(New Uri(ListBox1.SelectedItem), (".\pack\"))
'########################
While DLLA.IsBusy
Application.DoEvents() '<- In dieser Schleife bleibt das Programm beim zweiten Download stehen und es wird eine 0-Byte große Datei erstellt.
End While
Catch ex As Exception
STATUS_TEXT.Text = "SERVER FEHLER@11"
MsgBox("DOWNLOAD SERVER FEHLER!@11", MsgBoxStyle.Critical, "FEHLER@11")
End Try
End If
End Sub
Private Sub DLLA_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles DLLA.DownloadFileCompleted
ListBox1.Items.Remove(Filesee.SelectedItem)
PatcherPatch()
End Sub

Si sieht das eigentlich aus....
er soll die einträge der listbox nacheinander downloaden

geht aber nicht bzw downloaded nicht und removt alle einträge aufeinmal

da brauche ich hilfe

wenn du skype hast nzw lust hast mir zu helfen dann sag mir mal deinen skype namen

Switcherlapp97 · 9. Juli 2013, 08:35

Hallo @Nanoxx,

Ich würde dir viel lieber helfen, wenn du das, was ich in meinem vorherigen Post geschrieben habe, auch umgesetzt hättest. Die Schleife ist immer noch im Code (Die mit Application.DoEvents) und auch Option Strict On hast du immer noch nicht in die erste Zeile des Codes geschrieben. Dazu steht immer noch MsgBox im Code.

@Nanoxx Dein Problem können wir auch hier im Forum lösen. Dann profitiert vielleicht noch ein anderer von der Lösung

.

Wenn du jedes Item aus einer Listbox downloaden willst, würde ich das mit einer For-Schhleife.

Kleines Beispiel:

VB.NET-Quellcode

Option Strict On
Imports System.Net
Public Class Form1
Private Sub SPIN_PATCH_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If ListBox1.Items.Count = 0 Then
MessageBox.Show("Fertig")
Else
For i = ListBox1.Items.Count - 1 To 0 Step -1
Dim NORM As New WebClient
'Handler hinzufügen
AddHandler NORM.DownloadFileCompleted, AddressOf DownloadCompleted
'Upload
NORM.DownloadFileAsync(New Uri(ListBox1.Items.Item(i).ToString), (".\Data\"))
'Löschen des Items
ListBox1.Items.RemoveAt(i)
Next
End If
End Sub
Private Sub DownloadCompleted(sender As System.Object, e As System.ComponentModel.AsyncCompletedEventArgs)
MessageBox.Show("Vollständig heruntergeladen")
End Sub
End Class

Gruß
Switcherlapp97

RodFromGermany · 9. Juli 2013, 08:39

@Nanoxx:
Mach Dir gleich ein richtiges Multi-Download. Gugst Du hier.

Nanoxx · 9. Juli 2013, 16:44

Switcherlapp97 schrieb:

Hallo @Nanoxx,

Ich würde dir viel lieber helfen, wenn du das, was ich in meinem vorherigen Post geschrieben habe, auch umgesetzt hättest. Die Schleife ist immer noch im Code (Die mit Application.DoEvents) und auch Option Strict On hast du immer noch nicht in die erste Zeile des Codes geschrieben. Dazu steht immer noch MsgBox im Code.

@Nanoxx Dein Problem können wir auch hier im Forum lösen. Dann profitiert vielleicht noch ein anderer von der Lösung .

Wenn du jedes Item aus einer Listbox downloaden willst, würde ich das mit einer For-Schhleife.

Ja problem ist das die items aus der listbox gelöscht und runtergeladen werden aber halt alle unter dem selben namen....
(jeder download wird dann überschrieben)

es müsste aber der dateiname sein der auch im link steht bzw. google.de/eine199.exe

dann soll es in .\Data gespeichert werden also

.\Data\eine199.exe

Switcherlapp97 · 9. Juli 2013, 17:10

@Nanoxx
Dann zählst du die "/" im Link. Das ist die Funktion:

VB.NET-Quellcode

Function ZeichenZählen(ByVal strText As String, ByVal Zeichen As String) As Integer
'Funktionsaufruf = ZeichenZählen(Bereich;Zeichen)
Dim I As Integer
Dim Anzahl As Integer
Dim str As String
ZeichenZählen = 0
I = 1
Do While I <= Len(strText)
Anzahl = InStr(I, strText, Zeichen)
If Anzahl > 0 Then
I = Anzahl + 1
ZeichenZählen = ZeichenZählen + 1
str = ZeichenZählen.ToString
Else
Exit Do
End If
Loop
Return str
End Function

So wird sie verwendet:

VB.NET-Quellcode

Dim i As Integer = ZeichenZählen(Listbox1.SelectedItem.ToString, "/")

Dann den Link Splitten:

VB.NET-Quellcode

Dim linkspl() As String = Split(ListBox1.SelectedItem.ToString, "/")

Nun ist der Dateiname im linkspl-Array gespeichert. Logischerweise im Letzten String des Stringarrays. Dadurch das dein Beispiel-Link (google.de/eine199.exe) 3 Schrägstriche beinhaltet, sind im Array vier Strings. Der letzte ist unser Dateiname. Dieser String hätte dann den Index 3. Also genau den Wert vom ZeichenZählen. Wenn kein Doppel-Schrägstrich im Link vorkommt, wäre der Index ZeichenZählen - 1

Und jetzt nur noch in eine Variable packen:

VB.NET-Quellcode

Dim filename As String = linkspl(i)

Das musst du in der For-Schleife aus meinem letzten Post die Zeilen nur noch hinzufügen und beim Download-Speicherort dann hald statt ".\Data" eben Path.Combine("Zielordner", filename)

Gruß
Switcherlapp97

Nanoxx · 9. Juli 2013, 18:18

Danke! Funktioniert :thumbup:

Multi Download

Multi Download

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Quellcode

VB.NET-Quellcode

Switcherlapp97 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

3 Benutzer haben hier geschrieben