Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Seek di uno stream....
Forum - C# / VB.NET - Seek di uno stream.... - Pagina 4

Pagine: [ 1 2 3 4 5 ] Precedente | Prossimo
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 11:55
Lunedì, 13/07/2009
infatti si avrebbero portato il limite a 4 gb....

PM Quote
Avatar
riseofapocalypse (Ex-Member)
Pro


Messaggi: 150
Iscritto: 08/07/2009

Segnala al moderatore
Postato alle 11:59
Lunedì, 13/07/2009
Mah, misteri! :rotfl: comunque nessuno sa spiegarmi perchè request.ContentLength mi ritorna sempre -1? :-|

PM Quote
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 12:01
Lunedì, 13/07/2009
succede pure a me... per prenderlo devi fare cosi...

Codice sorgente - presumibilmente VB.NET
  1. Dim wc As New WebClient
  2.         Dim b1() As Byte = wc.Encoding.GetBytes("Get http://www.artfiles.org/knoppix/KNOPPIX_V5.1.1CD-2007-01-04-EN.iso HTTP/1.1" & vbNewLine & vbNewLine)
  3.         wc.OpenWrite("http://www.artfiles.org/").Write(b1, 0, b1.Length)
  4.         wc.OpenRead("http://www.artfiles.org/knoppix/KNOPPIX_V5.1.1CD-2007-01-04-EN.iso")
  5.         For Each asd As String In wc.ResponseHeaders
  6.             If IsNumeric(wc.ResponseHeaders.Item(asd)) Then
  7.                 filegen = wc.ResponseHeaders.Item(asd)
  8.             End If
  9.         Next


apoparte questo...

Codice sorgente - presumibilmente VB.NET
  1. Imports System
  2. Imports System.IO
  3. Imports System.Net
  4. Imports System.Net.Sockets
  5. Imports System.Threading
  6. Imports System.Text
  7.  
  8. Public Class conn
  9.  
  10.     Public parte As Int32
  11.     Public ferma As Int32
  12.     Public start As Int32
  13.     Public url As Uri
  14.  
  15.     Public Sub scarica()
  16.         Try
  17.             Dim request As HttpWebRequest = WebRequest.Create(url)
  18.             request.AddRange(start, ferma)
  19.             Dim response As HttpWebResponse = request.GetResponse
  20.             Dim stream As Stream = response.GetResponseStream
  21.             MsgBox("")
  22.         Catch ex As Exception
  23.  
  24.         End Try
  25.        
  26.     End Sub
  27. End Class


ho sbagliato qualcosa?? si blocca sul getresponse..... ho provato con http://google.it e va.... ma con i file no..... provi tu con qualcosaltro?

PM Quote
Avatar
riseofapocalypse (Ex-Member)
Pro


Messaggi: 150
Iscritto: 08/07/2009

Segnala al moderatore
Postato alle 12:10
Lunedì, 13/07/2009
Sinceramente non vedo errori! Comunque ho scoperto perchè ritorna -1, faccio sempre lo stesso errore! Cerco di ottenere l'header di richiesta ContentLength, invece devo prendere quello di risposta!
Codice sorgente - presumibilmente Plain Text
  1. request.GetResponse.ContentLength

PM Quote
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 12:17
Lunedì, 13/07/2009
manco io vedo errori pero' non funziona...solo con i file in remoto nn va con i siti in generale si...

PM Quote
Avatar
riseofapocalypse (Ex-Member)
Pro


Messaggi: 150
Iscritto: 08/07/2009

Segnala al moderatore
Postato alle 12:19
Lunedì, 13/07/2009
A me sinceramente funziona! :-| prova ad aspettare un po', magari si genera un'eccezione in ritardo...

PM Quote
Avatar
GoLDBeRG (Ex-Member)
Expert


Messaggi: 331
Iscritto: 19/12/2005

Segnala al moderatore
Postato alle 13:04
Lunedì, 13/07/2009
in locale va che strano.... cmq ci siamo vicini... molto vicini... guarda qui

Codice sorgente - presumibilmente VB.NET
  1. Imports System
  2. Imports System.IO
  3. Imports System.Net
  4. Imports System.Net.Sockets
  5. Imports System.Threading
  6. Imports System.Text
  7.  
  8. Public Class conn
  9.  
  10.     Public ferma As Int32
  11.     Public start As Int32
  12.     Public url As Uri
  13.  
  14.     Public Sub scarica()
  15.         Try
  16.             Dim request As HttpWebRequest = WebRequest.Create(url)
  17.             request.AddRange(start, ferma)
  18.             Dim response As HttpWebResponse = request.GetResponse
  19.             Dim stream As Stream = response.GetResponseStream
  20.             While (True)
  21.                 Dim by(8192) As Byte
  22.                 Dim int As Integer = stream.Read(by, 0, by.Length)
  23.                 Thread.Sleep(10)
  24.             End While
  25.         Catch ex As Exception
  26.  
  27.         End Try
  28.     End Sub
  29. End Class


GoLDBeRG ha allegato un file: Cattura.JPG (141829 bytes)
Clicca qui per guardare l'immagine
PM Quote
Avatar
riseofapocalypse (Ex-Member)
Pro


Messaggi: 150
Iscritto: 08/07/2009

Segnala al moderatore
Postato alle 13:38
Lunedì, 13/07/2009
Ma l'unico problema è quel blocco di cui mi parlavi prima?

PM Quote
Pagine: [ 1 2 3 4 5 ] Precedente | Prossimo