Es soll eine auf einer Webseite vorhandene .jpg Datei gedownloaded werden und als .jpg Datei auf Laufwerk D:\ gespeichert werden. Natürlich gibt es die Möglichkeit direkt einen Download auszuführen mit wie: wClient.DownloadFile(SymbB, "D:\Test.jpg")[wClient
vorher mit DIM definieren, SymbB ist der URL: String].
Jedoch so oder wie folgt bricht (offensichtlich der Server) die Übertragung ab, und zwar bei dem URL: http://i.colnect.net/f/705/851/Seiji-Ozawa.jpg [ist eine Briefmarke]. Mit der auf meiner eigenen Webseite vorhandene .jpg Datei aber auch bei anderen Webseiten
funktioniert es. Verwunderlich ist nur, dass die manuell in der Explorer Zeile links ob. eingegebene URL Zeile sehr wohl die .jPG Datei auf der Computer HTML-Bildschirm zeigt. Die Web Fehlermeldung gibt nur an wie: Verbindung mit Server unterbrochen, mehr
nicht.
Es würde mir auch reichen wenn die Pixel-Width und Pixel-Height gespeichert werden können. Dass Verwunderliche ist nur, dass z.B. mit der rechten Maustaste auf der Grafik .jpg -> Eigenschaften das Betriebssytem in Millisekunden diese Pixelwerte anzeigt.
Sicherlich werden dabei die Pixel-Bytes nicht noch einmal eingelesen, denke ich. Aber meine Recherchen haben VB Code dafür bisher nicht gefunden.
Code Beispiel:
Private Sub TestJPG() 'Eigene Webseite OK colnect bricht ab!
Dim file As String = "http://www.stamplooker.de/Brfm/AFG/AFG 2041.jpg" 'Eigene Webseite OK Specify URL of an image http://i.colnect.net/f/705/851/Seiji-Ozawa.jpg wird unterbrochen
Dim request As System.Net.WebRequest = System.Net.HttpWebRequest.Create(file)
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim stream As System.IO.Stream = response.GetResponseStream()
Dim length As Integer = response.ContentLength ' Get the length of the content
Dim bytes(length) As Byte ' Create a temporary array for the content of the file.
For i As Integer = 0 To length - 1 ' Get all bytes of the content
bytes(i) = stream.ReadByte() : ListBox2.Items.Add(i.ToString + "Bytes Downloaded")
Application.DoEvents()
Next
Using output As IO.Stream = System.IO.File.Create("D:\Test.jpg") ' 'Eigene Webseite OK Write the content to the local file nicht C:\ = System
output.Write(bytes, 0, bytes.Length)
End Using
response.Close() ' muss
End Sub
Vielen Dank im voraus für eine Erleuchtung.
François Prick van Wely
