Lianja

HTTP POST JSON

See more HTTP Examples

Demonstrates how to send a JSON POST and get the JSON response. Lianja

llSuccess = .F.

// This requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code

loHttp = createobject("CkHttp")

lcJsonText = '{"user":"doctoravatar@penzance.com","forecast":7,"t":"vlIj","zip":94089}'

// IMPORTANT: Make sure to change the URL, JSON text,
// and other data items to your own values.  The URL used
// in this example will not actually work.

loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpStr("POST","https://json.penzance.org/request",lcJsonText,"utf-8","application/json",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loResp
    return
endif

// Display the JSON response.
? loResp.BodyStr


release loHttp
release loResp