Moin!
ich habe mir vor einigen Jahren ein Tool geschrieben um Dateien für osmand (Anwendung im Umfeld von OpenStreetMap) herunterzuladen.
Das hat auch immer gut funktioniert.
Nun bekomme ich aber eine Fehlermeldung mit der ich nichts anfangen kann.
Hier mein Code der betreffenden Zeile:
und der gesamte Funktionscode:
Spoiler anzeigen
Kann mir jemand weiterhelfen?
Jan
*Topic verschoben*
ich habe mir vor einigen Jahren ein Tool geschrieben um Dateien für osmand (Anwendung im Umfeld von OpenStreetMap) herunterzuladen.
Das hat auch immer gut funktioniert.
Nun bekomme ich aber eine Fehlermeldung mit der ich nichts anfangen kann.
Hier mein Code der betreffenden Zeile:
und der gesamte Funktionscode:
VB.NET-Quellcode
- ''' <summary>
- ''' herunterladen einer Datei
- ''' </summary>
- ''' <param name="myLink"></param>
- ''' <param name="myFile"></param>
- ''' <returns>false ... Fehler / true .... erfolgreich</returns>
- Private Function dwlByLink(myLink As String, myFile As String) As Boolean
- Try
- Dim myRequest As System.Net.WebRequest = System.Net.WebRequest.Create(myLink) 'Request erstellen
- Dim myResponse As System.Net.WebResponse = myRequest.GetResponse() 'Respons speichern
- Dim myStream As System.IO.Stream = myResponse.GetResponseStream() 'Datenstream aus dem Respons extrahieren
- Dim myReader As New System.IO.BinaryReader(myStream) 'Binärer "leser" zum Lesen des Streams
- 'Datei speichern
- Dim myFileStream As New System.IO.FileStream(myFile, System.IO.FileMode.Create) 'Datei auswählen
- Dim i As Long
- Dim Size = myResponse.ContentLength, Stage = 0
- For i = 1 To Size
- myFileStream.WriteByte(myReader.ReadByte())
- If i > Size / 10 * Stage Then
- 'Console.Write("\r{i} ({10 * Stage}%) Prozent übertragen.")
- Console.CursorLeft = 0
- Console.Write((10 * Stage).ToString & " Prozent übertragen.")
- Stage += 1
- End If
- Next
- myFileStream.Flush() 'noch mal spülen ...
- myFileStream.Close() ' und schließen
- Catch ex As Exception
- If ex.ToString.ToLower.IndexOf("timeout für den vorgang") > 0 Then
- Console.WriteLine("********* Timeout-Fehler *********")
- Else
- MsgBox(ex.ToString)
- End If
- _Err_Global += 1
- Return False
- End Try
- Return True
- End Function
Kann mir jemand weiterhelfen?
Jan
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()