Hallo Forum,
ich soll von Otto.de die aktuell offenen Bestellungen abrufen. Dazu gibt es eine ehr schlechte als rechte Doku hier:
https://public-docs.live.api.otto.market/01_Developers_Guide/index.html
Die sprechen die API dort via CURL an.
Beispiele in irgend einer Programmiersprache gibt es leider keine. Ich habe mir bisher die folgenden Ansätze zusammengegoogled, komme aber mit keinem weiter.
bzw. ein anderer Ansatz:
Hat jemand eine Idee/Ansatz, wie das machbar sein könnte?
ich soll von Otto.de die aktuell offenen Bestellungen abrufen. Dazu gibt es eine ehr schlechte als rechte Doku hier:
https://public-docs.live.api.otto.market/01_Developers_Guide/index.html
Die sprechen die API dort via CURL an.
Beispiele in irgend einer Programmiersprache gibt es leider keine. Ich habe mir bisher die folgenden Ansätze zusammengegoogled, komme aber mit keinem weiter.
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim wHeader As WebHeaderCollection = New WebHeaderCollection()
- Dim myHttpWebRequest = CType(WebRequest.Create("https://api.otto.market/v1/token"), HttpWebRequest)
- myHttpWebRequest.Headers.Add("Authorization: Bearer 0da6cf0d-848c-4266-9b47-cd32a6151b1f")
- myHttpWebRequest.Headers.Add("Assume-User: john.doe%40smartsheet.com")
- Dim myHttpWebResponse = CType(myHttpWebRequest.GetResponse(), HttpWebResponse)
- wHeader.Clear()
- wHeader.Add("Authorization: Bearer 0da6cf0d-848c-4266-9b47-cd32a6151b1f")
- wHeader.Add("Assume-User: john.doe")
- Dim sUrl As String = "https://api.otto.market/v1/token"
- Dim wRequest As HttpWebRequest = DirectCast(System.Net.HttpWebRequest.Create(sUrl), HttpWebRequest)
- 'wRequest.ContentType = "application/json" '
- wRequest.Headers = wHeader
- wRequest.Method = "GET"
- Dim wResponse As HttpWebResponse = DirectCast(wRequest.GetResponse(), HttpWebResponse)
- Dim sResponse As String = ""
- Using srRead As New StreamReader(wResponse.GetResponseStream())
- sResponse = srRead.ReadToEnd()
- End Using
- End Sub
bzw. ein anderer Ansatz:
VB.NET-Quellcode
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Dim Postdata As String = "XXX"
- Dim tempcookies As New CookieContainer
- Dim encoding As New System.Text.UTF8Encoding
- Dim byteData As Byte() = encoding.GetBytes(Postdata)
- Dim postReq As HttpWebRequest = DirectCast(WebRequest.Create("https://api.otto.market/v1/token"), HttpWebRequest)
- Dim username, password As String
- postReq.Method = "Post"
- postReq.KeepAlive = True
- postReq.
- postReq.Credentials = New System.Net.NetworkCredential("user", "password") 'Set the credentials
- postReq.CookieContainer = tempcookies
- postReq.ContentType = "application/x-www-form-urlencoded"
- postReq.Referer = "https://api.otto.market/v1/token"
- postReq.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 6.1; ru; rv:1.9.2.3) Gecko/20100401 Firefox/4.0 (.NET CLR 3.5.30729)"
- postReq.ContentLength = byteData.Length
- Dim postreqstream As IO.Stream = postReq.GetRequestStream()
- postreqstream.Write(byteData, 0, byteData.Length)
- postreqstream.Close()
- Dim postresponse As HttpWebResponse
- postresponse = DirectCast(postReq.GetResponse(), HttpWebResponse)
- tempcookies.Add(postresponse.Cookies)
- logincookie = tempcookies
- Dim postreqreader As New IO.StreamReader(postresponse.GetResponseStream())
- Dim thepage As String = postreqreader.ReadToEnd
- End Sub
Hat jemand eine Idee/Ansatz, wie das machbar sein könnte?