(Visual FoxPro) MemberMouse -- getMember API Call

Demonstrates how to use the getMember API call is used to retrieve information about an existing member's account.

See MemberMouse getMember API call for more information.

Note: This example requires Chilkat v11.0.0 or greater.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL lnSuccess
LOCAL loReq
LOCAL loHttp
LOCAL loResp
LOCAL loJson
LOCAL i
LOCAL lnNumBundles

lnSuccess = 0

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

* Build the POST request to get a member's data.
loReq = CreateObject('Chilkat.HttpRequest')

* If your particular API URL is "https://mydomain.com/wp-content/plugins/membermouse/api/request.php",
* then the Path part of the URL is "/wp-content/plugins/membermouse/api/request.php",
* and the Domain part of the URL is "mydomain.com".
* If "https" is used, then the port is 443 (not 80).

loReq.HttpVerb = "POST"
* Use the Path part of your API_URL with "?q=/getMember".
* The command, such as /getMember, /createMember, etc. goes in the Path.
* The remainder of the POST arguments are query params that go in the body of the request.
* (Do not put the apikey and apisecret in the Path because the secret will be exposed.
* You want the confidential information to be in the body of the request.)
loReq.Path = "/wp-content/plugins/membermouse/api/request.php?q=/getMember"
loReq.ContentType = "application/x-www-form-urlencoded"

* Add the query params.
* (Use your particular values in place of "MEMBERMOUSE_...")
loReq.AddParam("apikey","MEMBERMOUSE_API_KEY")
loReq.AddParam("apisecret","MEMBERMOUSE_API_SECRET")
loReq.AddParam("email","some_member@somewhere.com")

loHttp = CreateObject('Chilkat.Http')

* Use the Domain part of your API URL here:
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSReq("mydomain.com",443,1,loReq,loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loReq
    RELEASE loHttp
    RELEASE loResp
    CANCEL
ENDIF

loJson = CreateObject('Chilkat.JsonObject')
loJson.Load(loResp.BodyStr)
loJson.EmitCompact = 0

* A sample JSON response is shown below..
? loJson.Emit()
? "Response Status Code: " + STR(loResp.StatusCode)

* A response code of 200 is success.
IF (loResp.StatusCode = 200) THEN
    * Show a few values from the JSON..
    ? "first_name: " + loJson.StringOf("response_data.first_name")
    ? "last_name: " + loJson.StringOf("response_data.last_name")

    * Iterate over the bundles.
    i = 0
    lnNumBundles = loJson.SizeOfArray("response_data.bundles")
    DO WHILE i < lnNumBundles
        loJson.I = i

        ? "Bundle: " + loJson.StringOf("response_data.bundles[i].name")
        i = i + 1
    ENDDO
ENDIF

* ----------------------------------------------------
* Sample JSON response for /getMember
* ----------------------------------------------------

* {
*   "response_code": "200",
*   "response_message": "",
*   "response_data": {
*     "member_id": 59,
*     "first_name": "Jim",
*     "last_name": "Smith",
*     "is_complimentary": "false",
*     "registered": "2003-08-08 00:00:00",
*     "cancellation_date": "",
*     "last_logged_in": "2017-04-28 16:26:06",
*     "last_updated": "2017-04-28 16:26:06",
*     "days_as_member": 5013,
*     "status": "1",
*     "status_name": "Active",
*     "membership_level": "12",
*     "membership_level_name": "Expert Instructor",
*     "username": "JSmith",
*     "email": "some_member@somewhere.com",
*     "password": null,
*     "phone": "(618) 555-5555",
*     "billing_address": "555 Shady Lane",
*     "billing_city": "Wheaton",
*     "billing_state": "IL",
*     "billing_zip": "60187",
*     "billing_country": "United States",
*     "shipping_address": "555 Shady Lane",
*     "shipping_city": "Wheaton",
*     "shipping_state": "IL",
*     "shipping_zip": "60187",
*     "shipping_country": "United States",
*     "bundles": [
*       {
*         "id": "6",
*         "name": "ABC Bundle",
*         "is_complimentary": "false",
*         "days_with_bundle": 2758,
*         "status": "1",
*         "status_name": "Active",
*         "date_added": "2009-10-10 00:00:00",
*         "last_updated": "2017-03-26 13:00:30"
*       },
*       {
*         "id": "8",
*         "name": "XZ 2.0 Software License",
*         "is_complimentary": "false",
*         "days_with_bundle": 2758,
*         "status": "1",
*         "status_name": "Active",
*         "date_added": "2009-10-10 00:00:00",
*         "last_updated": "2017-03-26 13:00:30"
*       }
*     ],
*     "custom_fields": [
*       {
*         "id": 1,
*         "name": "Class Location:",
*         "value": ""
*       },
*       {
*         "id": 2,
*         "name": "Company",
*         "value": "Acme Interiors Inc"
*       },
*       {
*         "id": 3,
*         "name": "Referred by:",
*         "value": ""
*       },
*       {
*         "id": 4,
*         "name": "Sound Analysis Equipment",
*         "value": "AudioTools Sound Analyzer with HAA multi mic Kit"
*       },
*       {
*         "id": 5,
*         "name": "HAA Member Number",
*         "value": "22222222"
*       },
*       {
*         "id": 6,
*         "name": "Alumni Class Dates",
*         "value": ""
*       }
*     ]
*   }
* }
* 

RELEASE loReq
RELEASE loHttp
RELEASE loResp
RELEASE loJson