Moin,
folgendes Problem, wo ich mir seit 2 tagen die Zähne dran ausbeisse. Ich habe ein json response für eine Schnittstelle bei einem Versandunternehmen wo Versandlabels erstellt werden. Der Response liefert die Package ID de Lanbel zurück. Dieser wird auch brav in eine Textbox geschrieben so wie in eine Variable die als string deklariert ist.
nun soll au dem Response von einem bestimmten Item die Label-ID ausgelesen werden.
der Response sieht wie folgt aus:
aus dem Response soll jetzt der wer von Package_id ausgelesen werden.
Mei problem dabei ist jetzt, das ich egal was ich bis jetzt versucht habe, ich jedesmal eine Fehlermeldung bekomme oder die Textbox und die listbox leer bleiben. kann mir da vielleicht einer helfen bitte?
folgendes Problem, wo ich mir seit 2 tagen die Zähne dran ausbeisse. Ich habe ein json response für eine Schnittstelle bei einem Versandunternehmen wo Versandlabels erstellt werden. Der Response liefert die Package ID de Lanbel zurück. Dieser wird auch brav in eine Textbox geschrieben so wie in eine Variable die als string deklariert ist.
nun soll au dem Response von einem bestimmten Item die Label-ID ausgelesen werden.
VB.NET-Quellcode
- Dim request As HttpWebRequest = WebRequest.Create(postAddress)
- request.Method = "POST"
- request.ContentType = "application/json"
- request.Headers.Add(jsonstring1)
- Dim postByteData As Byte() = UTF8Encoding.UTF8.GetBytes(data)
- request.ContentLength = postByteData.Length
- Using postStream As Stream = request.GetRequestStream()
- postStream.Write(postByteData, 0, postByteData.Length)
- End Using
- Using resp = TryCast(request.GetResponse(), HttpWebResponse)
- Dim b As Byte() = Nothing
- Using stream As Stream = resp.GetResponseStream()
- Using ms As New MemoryStream()
- Dim count As Integer = 0
- Do
- Dim buf As Byte() = New Byte(1023) {}
- count = stream.Read(buf, 0, 1024)
- ms.Write(buf, 0, count)
- Loop While stream.CanRead AndAlso count > 0
- b = ms.ToArray()
- End Using
- End Using
- TextBox3.Text = Encoding.UTF8.GetString(b)
- Dim data2 As String
- data2 = Encoding.UTF8.GetString(b)
- Dim jss = New JavaScriptSerializer()
- Dim ditc As List(Of Object) = jss.Deserialize(Of List(Of Object))(data2)
- For Each item1 As Object In ditc
- ListBox2.DataSource = ditc
- ListBox2.DisplayMember = "package_id"
- TextBox3.Text = item1("package_id").ToString
- Next
- End Using
der Response sieht wie folgt aus:
aus dem Response soll jetzt der wer von Package_id ausgelesen werden.
Mei problem dabei ist jetzt, das ich egal was ich bis jetzt versucht habe, ich jedesmal eine Fehlermeldung bekomme oder die Textbox und die listbox leer bleiben. kann mir da vielleicht einer helfen bitte?
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Drachie“ ()