[VB2008] Bessere Downloadmöglichkeit als FileStream?

Moinsen Allerseits!

Ich habe ein Problem, und zwar habe ich einen kleinen Downloader in VB geschrieben. Soweit so gut; Nur wenn ich dateien ab einer bestimmten Größe saugen will scheisst das Fenster ab, und es reagiert nicht mehr bis der DOwnload fertig ist...

Code:

...
Dim webreq As HttpWebRequest
        Dim webresp As HttpWebResponse
        Dim bReader As BinaryReader
        Dim bWriter As BinaryWriter
        Dim stream As FileStream
        Dim buffer() As Byte = New Byte(1024) {}
        Dim bytesRead As Integer

        ' Fortschritt zunächst auf 0% setzen
        Me.fstatus.Value = 0
        Me.fstatustext.Text = "Download"
        Me.fstatustext.Update()

        Try
            ' Datei-Download via HTTP "anfordern"
            webreq = HttpWebRequest.Create(sURL)
            webresp = webreq.GetResponse

            ' Download-Größe
            Me.fstatus.Maximum = webresp.ContentLength
            Me.fsize.Text = webresp.ContentLength & " Bytes"
            Me.fsize.Update()


            ' lokale Datei öffnen
            stream = New FileStream(strFolder & "\" & strFile, FileMode.Create)
            bReader = New BinaryReader(webresp.GetResponseStream)
            bWriter = New BinaryWriter(stream)

            ' Datei blockweise downloaden und lokal speichern
            Do
                bytesRead = bReader.Read(buffer, 0, 1024)
                bWriter.Write(buffer, 0, bytesRead)
                fstatus.Value += bytesRead
                fstatus.Update()
            Loop Until bytesRead = 0

            ' alle Dateien schließen
            bWriter.Close()
            bReader.Close()
            stream.Close()
            Me.fstatustext.Text = "Fertig"
            Me.fstatustext.Update()
            Me.flog.Text = "Der Download wurde beendet."
            Me.flog.Update()

        Catch ex As Exception
            ' Bei Fehler...
            Me.fstatustext.Text = "Fehler"
            Me.fstatustext.Update()
            Me.flog.Text = "Fehler: " & vbCrLf & ex.Message
        End Try
...

Was kann ich machen?
Ich kenne nur diesen Weg, und Google hat auch nichts brauchbares ausgespruckt! Vielen Dank im Voraus,

Liebe Grüße
d0t

 

Also bei mir haben Fenster noch nie "abgeschissen" ...

Dein Problem ist, dass wohl während des Downloads Deine Download Funktion nicht "zurückkehrt" solange der Download nicht abgeschlossen ist. Daher ist für diesen Zeitraum die Botschaftsverarbeitung von Windows nicht mehr möglich, und Windows kann das Fenster nicht mehr neu zeichenen oder sonst irgendwie Dinge tutn.

Lagere Dein download in einen eigenen Thread aus. Wenn Du Dein Download in einem eigenen Thread ausführst, ist dann das Handling der Botschaftsverarbeitung nicht beeinträchtigt.

 

Vielen Dank =)

werde mal sehen was sich machen lässt

Gruß
d0t

 

Tipp:

Übersicht über die BackgroundWorker-Komponente