C# / VB.NET - HTTPwebrequest

Forum - C# / VB.NET - HTTPwebrequest

Pagine: [ 1 2 3 4 5 ]

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 12:30
Giovedì, 09/07/2009

Codice sorgente - presumibilmente VB.NET

Public Sub scarica()
        Dim link As String = "http://colossus.altervista.org/file/Colossus.zip"
        request = WebRequest.Create(New Uri(link))
        Dim response As HttpWebResponse = request.GetResponse
        Dim stream As New StreamReader(response.GetResponseStream)
        Dim we As New StreamWriter("C:\guida.zip")
        While Not (stream.EndOfStream)
            we.Write(stream.Read)
        End While
        we.Close()
    End Sub

dove sbaglio? la velocità sembra esserci ma quello che scaric anon è quello che ho messo sul server......

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 12:45
Giovedì, 09/07/2009

Codice sorgente - presumibilmente VB.NET

Public Sub scarica()
        Dim link As String = "http://colossus.altervista.org/file/Colossus.zip"
        request = WebRequest.Create(New Uri(link))
        Dim response As HttpWebResponse = request.GetResponse
        Dim stream As Stream = response.GetResponseStream
        Dim dove As Stream = File.OpenWrite("C:\casa.zip")
        While (True)
            Dim byt As Byte = stream.ReadByte
            If byt = -1 Then
                Exit While
            Else
                dove.WriteByte(byt)
            End If
        End While
        stream.Close()
        dove.Close()
    End Sub

cosi scarica esattamente quello che voglio il file arriva integro pero' è lentissimo... mi dite che devo fare? mo lo meno sto coso

oubt:

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 12:50
Giovedì, 09/07/2009

Codice sorgente - presumibilmente VB.NET

Public Sub scarica()
        Dim link As String = "http://colossus.altervista.org/file/Colossus.zip"
        request = WebRequest.Create(New Uri(link))
        Dim response As HttpWebResponse = request.GetResponse
        Dim stream As Stream = (response.GetResponseStream)
        Dim dove As Stream = File.OpenWrite("C:\casa.zip")
        While (True)
            Try
                Dim c As Byte = stream.ReadByte
                dove.WriteByte(c)
            Catch
                Exit While
            End Try
        End While
        dove.Close()
    End Sub

oppure cosi ma è ancora lentissimissimo.....

riseofapocalypse (Ex-Member)
Pro

Messaggi: 150
Iscritto: 08/07/2009

Postato alle 14:00
Giovedì, 09/07/2009

Potrebbe essere un picco negativo momentaneo della tua connessione! Io ho provato il tuo codice aggiungendo la visualizzazione dei KB/sec, mi risulta quasi sempre sui 200! Per la mia connessione è tanto eh :rotfl:

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 14:54
Giovedì, 09/07/2009

quale dei tre codici hai provato e che funzione hai costruito per visualizzare i kb/s?

riseofapocalypse (Ex-Member)
Pro

Messaggi: 150
Iscritto: 08/07/2009

Postato alle 15:04
Giovedì, 09/07/2009

Ho preso spunto dall'ultimo codice! In pratica per visualizzare i KB/sec faccio così:
- Dichiaro due variabili globali: "numero_bytes_scaricati" e "secondi";
- Al partire del Download faccio partire un Timer con intervallo di 1000 ms;
- Nell'evento Tick del Timer incremento la variabile "secondi";
- Incremento la variabile "numero_bytes_scaricati" ad ogni ciclo;
- Alla fine del download faccio il rapporto fra "numero_bytes_scaricati" e "secondi" per ottenere i B/sec (quindi per i KB bisogna dividere ulteriormente per 1024).

P.S. Sto costruendo una classe Download dotata di eventi così se può servire la posto :k:

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 15:37
Giovedì, 09/07/2009

niente da fare nemmeno con questo codice va sopra i 200... il download manager mi va sopra i 700... come diavolo fa...

Codice sorgente - presumibilmente VB.NET

Public Sub scarica()
        File.Delete("C:\casa.zip")
        Dim link As String = "http://www.microsoft.com/downloads/info.aspx?na=90&p=&SrcDisplayLang=it&SrcCategoryId=&SrcFamilyId=5b33b5a8-5e76-401f-be08-1e1555d4f3d4&u=http%3a%2f%2fdownload.microsoft.com%2fdownload%2f9%2f4%2fd%2f94d3f80a-2c0d-4ce1-a983-52f946b62c78%2fWindowsXP-KB936929-SP3-x86-ITA.exe"
        request = WebRequest.Create(New Uri(link))
        Dim response As HttpWebResponse = request.GetResponse
        Dim stream As Stream = (response.GetResponseStream)
        While (True)
            Try
                Dim buff(65536) As Byte
                Dim p As Integer = stream.Read(buff, 0, buff.Length)
                ricevuti += p
            Catch
                Exit While
            End Try
        End While
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        secondi += 1
        Label2.Text = Int(Int(ricevuti / secondi) / 1024)
    End Sub

riseofapocalypse (Ex-Member)
Pro

Messaggi: 150
Iscritto: 08/07/2009

Postato alle 15:42
Giovedì, 09/07/2009

Ma che connessione hai? Io ho una 4 mega divisa in 3 da un router, eppure Orbit Downloader raggiunge addirittura velocità di 500/600 KB/sec, cosa che nessun altro programma riesce a fare

GoLDBeRG (Ex-Member)
Expert

Messaggi: 331
Iscritto: 19/12/2005

Postato alle 15:47
Giovedì, 09/07/2009

infatti a me orbit tocca pure gli 800... perche il vb si ferma massimo a quel maledetto 200?? dove sbaglio?

Pagine: [ 1 2 3 4 5 ]