JPG files downloaden (vb.net)

Thread View: be.comp.programming

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Guust Mon, 19 Jan 2004 10:47

#3286

Author: Guust
Date: Mon, 19 Jan 2004 10:47

43 lines
2179 bytes

hello


ik moet allemaal JPG files downloaden die 
genummerd zijn, maar ik krijg de stream niet 
volledig in mijn file  (*kleine bestanden lukken*, 
bij grotere enkel het eerste deel)

Het zal wel iets simpel zijn, maar dit soort 
programmeren is zeker mijn specialiteit niet...

hier is een fragment van de code:

opm: bytes = byte array van 200000
      er is reeds een GET verstuurd hierboven

   Dim n As Long = networkStream.Read(bytes, 0, 
1500) 'CInt(tcpClient.ReceiveBufferSize))
   Dim returndata As String = 
Encoding.ASCII.GetString(bytes)

   If InStr(returndata, "JFIF") > 0 Then
      Dim prevbyte As Byte, i As Integer
      'header uit filteren
      For i = 0 To bytes.Length - 1
        If prevbyte = 10 And bytes(i) = 13 Then 
Exit For
        prevbyte = bytes(i)
      Next
      ' dout is mijn uitvoerbestand
      dout.Write(bytes, i + 2, n - (i + 2) - 1)

      Do While networkStream.DataAvailable
         n = networkStream.Read(bytes, 0, 
bytes.Length)
         If n = 0 Then Exit Do
         dout.Write(bytes, 0, n)
      Loop

   End If


thx!

Re: JPG files downloaden (vb.net)

#3290

Author: VoodooChile
Date: Mon, 19 Jan 2004 17:10

47 lines
2551 bytes

Webclient.downloadFile() ;)

Ik heb ook eens zitten klooien met streams, byte[]'s en dergelijke, tot 
ik me misklikte in de docs en op webclient uitkwam :) succes ermee...

VoodooChile

Guust wrote:
> hello
> 
> 
> ik moet allemaal JPG files downloaden die genummerd zijn, maar ik krijg 
> de stream niet volledig in mijn file  (*kleine bestanden lukken*, bij 
> grotere enkel het eerste deel)
> 
> Het zal wel iets simpel zijn, maar dit soort programmeren is zeker mijn 
> specialiteit niet...
> 
> hier is een fragment van de code:
> 
> opm: bytes = byte array van 200000
>      er is reeds een GET verstuurd hierboven
> 
>   Dim n As Long = networkStream.Read(bytes, 0, 1500) 
> 'CInt(tcpClient.ReceiveBufferSize))
>   Dim returndata As String = Encoding.ASCII.GetString(bytes)
> 
>   If InStr(returndata, "JFIF") > 0 Then
>      Dim prevbyte As Byte, i As Integer
>      'header uit filteren
>      For i = 0 To bytes.Length - 1
>        If prevbyte = 10 And bytes(i) = 13 Then Exit For
>        prevbyte = bytes(i)
>      Next
>      ' dout is mijn uitvoerbestand
>      dout.Write(bytes, i + 2, n - (i + 2) - 1)
> 
>      Do While networkStream.DataAvailable
>         n = networkStream.Read(bytes, 0, bytes.Length)
>         If n = 0 Then Exit Do
>         dout.Write(bytes, 0, n)
>      Loop
> 
>   End If
> 
> 
> thx!

Re: JPG files downloaden (vb.net)

#3291

Author: Guust
Date: Mon, 19 Jan 2004 18:30

12 lines
1602 bytes

VoodooChile wrote:
> Webclient.downloadFile() ;)
> 
> Ik heb ook eens zitten klooien met streams, byte[]'s en dergelijke, tot 
> ik me misklikte in de docs en op webclient uitkwam :) succes ermee...
> 
> VoodooChile
> 
thx!

ge kunt er ook uw referer instellen, en dat had ik 
nodig!

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads