Hoi!
Ik ben bezig met een programma te maken dat checkt of er een nieuw album is geplaatst op een website, de check-functie werkt al perfect!
Maar wanneer er een nieuw album geplaatst is zou hij ook de afbeelding (cover) moeten zien van de geplaatste album.. de code onderaan pagina gebruik ik om afbeelding te downloaden maar echter gaat het downloaden ene keer snel en staat hij binnen een seconden op het form maar de andere keer is hij er meer dan 20 seconden mee bezig. Dit is natuurlijk hartstikke vervelend! De cover-afbeelding van het album download ik vanaf de server van Tinypic.com.
Dus mijn vraag is; heeft iemand een code/tip/idee of wat dan ook om sneller de afbeeldingen te downloaden van Tinypic?
[CPP] Public Function webDownloadImage(ByVal Url As String, Optional ByVal saveFile As Boolean = False, Optional ByVal location As String = "C:\") As Image
Dim webClient As New System.Net.WebClient
Dim bytes() As Byte = webClient.DownloadData(Url)
Dim stream As New IO.MemoryStream(bytes)
If saveFile Then My.Computer.FileSystem.WriteAllBytes(location, bytes, False)
Return New System.Drawing.Bitmap(stream)
End Function
PictureBox1.Image = Functies.webDownloadImage(CoverURL, False)[/CPP]
Ik ben bezig met een programma te maken dat checkt of er een nieuw album is geplaatst op een website, de check-functie werkt al perfect!
Maar wanneer er een nieuw album geplaatst is zou hij ook de afbeelding (cover) moeten zien van de geplaatste album.. de code onderaan pagina gebruik ik om afbeelding te downloaden maar echter gaat het downloaden ene keer snel en staat hij binnen een seconden op het form maar de andere keer is hij er meer dan 20 seconden mee bezig. Dit is natuurlijk hartstikke vervelend! De cover-afbeelding van het album download ik vanaf de server van Tinypic.com.
Dus mijn vraag is; heeft iemand een code/tip/idee of wat dan ook om sneller de afbeeldingen te downloaden van Tinypic?
[CPP] Public Function webDownloadImage(ByVal Url As String, Optional ByVal saveFile As Boolean = False, Optional ByVal location As String = "C:\") As Image
Dim webClient As New System.Net.WebClient
Dim bytes() As Byte = webClient.DownloadData(Url)
Dim stream As New IO.MemoryStream(bytes)
If saveFile Then My.Computer.FileSystem.WriteAllBytes(location, bytes, False)
Return New System.Drawing.Bitmap(stream)
End Function
PictureBox1.Image = Functies.webDownloadImage(CoverURL, False)[/CPP]