Moin zusammen,
ich versuche derzeit die unwetterwarnungen vom DWD über deren JSON auzulesen. Der Server der DWD liefert auch die daten zurück nur bekomme ich jedesmal bei der Dezerilation folgende Fehlermeldung: leider finde ich den fehler nicht...
anbei der lauffähige code zu dem bereich wo der JSON abgerufen wird. eingesetzt wird newtonsoft.json sowie option Strict on
vielleicht findet einer von euch den Fehler??
ich versuche derzeit die unwetterwarnungen vom DWD über deren JSON auzulesen. Der Server der DWD liefert auch die daten zurück nur bekomme ich jedesmal bei der Dezerilation folgende Fehlermeldung: leider finde ich den fehler nicht...
anbei der lauffähige code zu dem bereich wo der JSON abgerufen wird. eingesetzt wird newtonsoft.json sowie option Strict on
VB.NET-Quellcode
- Try
- Dim url As String
- url = "https://www.dwd.de/DWD/warnungen/warnapp/json/warnings.json"
- Dim postAdress = New Uri(url)
- Dim request As HttpWebRequest = DirectCast(WebRequest.Create(postAdress), HttpWebRequest)
- request.Method = "GET"
- request.ContentType = "application/json"
- Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
- If (response.StatusCode = HttpStatusCode.OK) Then
- Using reader As New StreamReader(response.GetResponseStream())
- Dim rec As String
- rec = reader.ReadToEnd()
- Dim meld As jsonrec = JsonConvert.DeserializeObject(Of jsonrec)(rec)
- If meld.regionName = My.Resources.dwdzelle Then
- MsgBox(meld.headline)
- wetter1.AppendText("Warnstufe: " & meld.level & Environment.NewLine)
- wetter1.AppendText(meld.headline & Environment.NewLine)
- wetter1.AppendText(meld.description & Environment.NewLine)
- wetter1.AppendText(meld.instruction)
- End If
- End Using
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
VB.NET-Quellcode
- Public Class jsonrec
- Public Property regionName As String
- Public Property type As Integer
- Public Property state As String
- Public Property headline As String
- Public Property altitudeStart As Object
- Public Property altitudeEnd As Object
- Public Property description As String
- Public Property level As Integer
- Public Property stateShort As String
- Public Property instruction As String
- End Class
vielleicht findet einer von euch den Fehler??