Erro 415 Unsupported media type
I receiver this error,
can anybody help me?
I receiver this error,
can anybody help me?
send(url, data = "", method = "POST", headers = true, callback = (request, context) => {return request}, noCache = false)
{
let self = this;
let request = new XMLHttpRequest()
return new Promise((resolve, reject) => {
request.open(method, url, true)
if(headers){
self.setHeaders(request)
}
self.setCache(request, noCache)
request = callback(request, self)
request.onreadystatechange = () => {
if(request.readyState == XMLHttpRequest.DONE && request.status == 200){
resolve(request.responseText)
}else if(request.status === 0 || request.status >= 400){
reject({status: request.status, statusText: request.statusText})
}
}
request.onerror = () => {
reject({status: request.status, statusText: request.statusText})
}
request.send(data)
})
}
Public Function API_listCompetitions()
' From Initialise
Return API_sendBetReq("listCompetitions", """filter"":{ }")
End Function
Public Function API_sendBetReq(ByVal method As String, ByVal params As String)
Dim request As WebRequest = WebRequest.Create("https://api.betfair.com/exchange/betting/json-rpc/v1/")
Dim postData As String = "{""jsonrpc"": ""2.0"", ""method"": ""SportsAPING/v1.0/" & method & """, ""params"": {" & params & "},""id"": 1}"
Dim JSONByteData As Byte() = Encoding.UTF8.GetBytes(postData)
request.Method = "POST"
request.ContentType = "application/json-rpc"
request.ContentLength = JSONByteData.Length
request.Headers.Add("X-Application: " & appKey)
request.Headers.Add("X-Authentication: " & ssoid)
request.Headers.Add("Content-Encoding: gzip")
Dim dataStream As Stream = Nothing
dataStream = request.GetRequestStream()
dataStream.Write(JSONByteData, 0, JSONByteData.Length)
Dim response As WebResponse = Nothing
Dim responseFromServer As String = ""
Try
response = request.GetResponse()
dataStream = response.GetResponseStream()
Dim reader As New StreamReader(dataStream)
responseFromServer = reader.ReadToEnd()
reader.Close()
response.Close()
Catch e As WebException
MessageBox.Show("Error!")
End Try
dataStream.Close()
Dim x As String = DataFetched(Me, responseFromServer.Length)
Return responseFromServer
End Function
Comment