Guten Morgen,
ich habe ein hoffentlich kleines Problem mit "Json" und "Option Strict On".
Ich Suche und Probiere seid 3 Stunden 2 Funktionen Fehlerfrei zubekommen und scheitere an dem Letzten Punkt.
Auch die Suche vom Forum mit den 3 gleichen Problemen hat mir zu keine Lösung verholfen.
Das ist die Verwendung, als Source benutze ich eine Json Sample Seite.
und das sind die dazugehörigen Funktionen
P.s. Die Funktion GetHttpResponse sieht zwar noch etwas Chaotisch aus, jedoch wird es auch noch gemacht. Z.b. ist die Arbeitsweise von dem Code auch relative Langsam.
Desweiteren bin ich für eventuell Optimierungen Jederzeit offen und Dankbar.
ich habe ein hoffentlich kleines Problem mit "Json" und "Option Strict On".
Ich Suche und Probiere seid 3 Stunden 2 Funktionen Fehlerfrei zubekommen und scheitere an dem Letzten Punkt.
Auch die Suche vom Forum mit den 3 gleichen Problemen hat mir zu keine Lösung verholfen.
Das ist die Verwendung, als Source benutze ich eine Json Sample Seite.
und das sind die dazugehörigen Funktionen
VB.NET-Quellcode
- Public Function GetHttpResponse(ByVal link As String) As String
- Try
- Dim myRequest As WebRequest = WebRequest.Create(link)
- Dim myResponse As WebResponse = myRequest.GetResponse()
- Dim DataStream = myResponse.GetResponseStream()
- Dim reader As New StreamReader(DataStream)
- Dim ServerResponse As String = reader.ReadToEnd()
- myResponse.Close()
- DataStream.Close()
- reader.Close()
- Return ServerResponse
- Catch ex As Exception
- MsgBox("Status-Code 408: Request Time-out")
- End Try
- Return "ERROR"
- End Function
- Public Function GetJsonObject(ByVal link As String) As Object
- Return Newtonsoft.Json.Linq.JObject.Parse(CStr(GetHttpResponse(link)))
- End Function
P.s. Die Funktion GetHttpResponse sieht zwar noch etwas Chaotisch aus, jedoch wird es auch noch gemacht. Z.b. ist die Arbeitsweise von dem Code auch relative Langsam.
Desweiteren bin ich für eventuell Optimierungen Jederzeit offen und Dankbar.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „whitetiiger“ ()