(Xojo Plugin) POST application/json HTTPS Request
Demonstrates how to send an HTTPS POST where the request body and response body both have the application/json Content-Type. Also demonstrates how to add a few custom headers to the request.
// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code
Dim http As New Chilkat.Http
// Add a few custom headers.
http.SetRequestHeader "Client-ID","my_client_id"
http.SetRequestHeader "Client-Token","my_client_token"
http.Accept = "application/json"
Dim url As String
url = "https://api.fiscallog.eu/sign/v1"
Dim jsonRequestBody As String
jsonRequestBody = "{ .... }"
Dim resp As Chilkat.HttpResponse
resp = http.PostJson2(url,"application/json",jsonRequestBody)
If (http.LastMethodSuccess = False) Then
System.DebugLog(http.LastErrorText)
Return
End If
System.DebugLog("Response status code = " + Str(resp.StatusCode))
Dim jsonResponseStr As String
jsonResponseStr = resp.BodyStr
System.DebugLog(jsonResponseStr)
|