Visual FoxPro

SMSAPI - Create a Contact

See more SMSAPI Examples

Create a Contact Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loReq
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL loDate_created
LOCAL loDate_updated
LOCAL lcName
LOCAL lcCreated_by
LOCAL lcIdx
LOCAL lcContact_expire_after
LOCAL lcContacts_count
LOCAL lcId
LOCAL lcFirst_name
LOCAL lcLast_name
LOCAL lcPhone_number
LOCAL lcEmail
LOCAL lcGender
LOCAL lcCity
LOCAL lcDescription
LOCAL i
LOCAL lnCount_i

lnSuccess = 0

*  This example assumes the Chilkat API to have been previously unlocked.
*  See Global Unlock Sample for sample code.

loHttp = CreateObject('Chilkat.Http')

*  Implements the following CURL command:

*  curl -X POST https://api.smsapi.com/contacts -H "Authorization: Bearer token_api_oauth" \
*  -d "phone_number=48500000000&email=bok@smsapi.com&first_name=Name&last_name=Last_name&gender=gender&description=description&city=city&groups=default"

*  Use the following online tool to generate HTTP code from a CURL command
*  Convert a cURL Command to HTTP Source Code

loReq = CreateObject('Chilkat.HttpRequest')
loReq.HttpVerb = "POST"
loReq.Path = "/contacts"
loReq.ContentType = "application/x-www-form-urlencoded"
loReq.AddParam("phone_number","48500000000")
loReq.AddParam("email","bok@smsapi.com")
loReq.AddParam("first_name","Name")
loReq.AddParam("last_name","Last_name")
loReq.AddParam("gender","gender")
loReq.AddParam("description","description")
loReq.AddParam("city","city")
loReq.AddParam("groups","default")

loReq.AddHeader("Authorization","Bearer token_api_oauth")

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpReq("https://api.smsapi.com/contacts",loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loReq
    RELEASE loResp
    CANCEL
ENDIF

loSbResponseBody = CreateObject('Chilkat.StringBuilder')
loResp.GetBodySb(loSbResponseBody)
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    RELEASE loHttp
    RELEASE loReq
    RELEASE loResp
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
ENDIF

*  Sample JSON response:
*  (Sample code for parsing the JSON response is shown below)

*  {
*    "id": "5b802315a788494a04690d1d",
*    "first_name": "string",
*    "last_name": "string",
*    "phone_number": "48500000000",
*    "email": "bok@smsapi.com",
*    "gender": "gender",
*    "city": "city",
*    "date_created": "2018-08-24T17:24:05+02:00",
*    "date_updated": "2018-08-24T17:24:05+02:00",
*    "description": "description",
*    "groups": [
*      {
*        "id": "59a3ca1fa78849062837cd0c",
*        "name": "default",
*        "date_created": "2017-08-28T09:45:35+02:00",
*        "date_updated": "2017-08-28T09:45:35+02:00",
*        "description": "",
*        "created_by": "username",
*        "idx": null,
*        "contact_expire_after": null,
*        "contacts_count": null
*      }
*    ]
*  }

*  Sample code for parsing the JSON response...
*  Use the following online tool to generate parsing code from sample JSON:
*  Generate Parsing Code from JSON

loDate_created = CreateObject('Chilkat.DtObj')
loDate_updated = CreateObject('Chilkat.DtObj')

lcId = loJResp.StringOf("id")
lcFirst_name = loJResp.StringOf("first_name")
lcLast_name = loJResp.StringOf("last_name")
lcPhone_number = loJResp.StringOf("phone_number")
lcEmail = loJResp.StringOf("email")
lcGender = loJResp.StringOf("gender")
lcCity = loJResp.StringOf("city")
loJResp.DtOf("date_created",0,loDate_created)
loJResp.DtOf("date_updated",0,loDate_updated)
lcDescription = loJResp.StringOf("description")
i = 0
lnCount_i = loJResp.SizeOfArray("groups")
DO WHILE i < lnCount_i
    loJResp.I = i
    lcId = loJResp.StringOf("groups[i].id")
    lcName = loJResp.StringOf("groups[i].name")
    loJResp.DtOf("groups[i].date_created",0,loDate_created)
    loJResp.DtOf("groups[i].date_updated",0,loDate_updated)
    lcDescription = loJResp.StringOf("groups[i].description")
    lcCreated_by = loJResp.StringOf("groups[i].created_by")
    lcIdx = loJResp.StringOf("groups[i].idx")
    lcContact_expire_after = loJResp.StringOf("groups[i].contact_expire_after")
    lcContacts_count = loJResp.StringOf("groups[i].contacts_count")
    i = i + 1
ENDDO

RELEASE loHttp
RELEASE loReq
RELEASE loResp
RELEASE loSbResponseBody
RELEASE loJResp
RELEASE loDate_created
RELEASE loDate_updated