Chilkat Online Tools

delphiDll / Salesforce Platform APIs / Member Profile

Back to Collection Items

var
http: HCkHttp;
success: Boolean;
queryParams: HCkJsonObject;
resp: HCkHttpResponse;
sbResponseBody: HCkStringBuilder;
jResp: HCkJsonObject;
respStatusCode: Integer;
Level_Before_Reset__c: PWideChar;
escrowPointsBalance: Integer;
expirablePoints: Integer;
lastAccrualProcessedDate: PWideChar;
lastEscrowProcessedDate: PWideChar;
lastExpirationProcessRunDate: PWideChar;
lastPointsAggregationDate: PWideChar;
lastPointsResetDate: PWideChar;
loyaltyMemberCurrencyName: PWideChar;
loyaltyProgramCurrencyId: PWideChar;
loyaltyProgramCurrencyName: PWideChar;
memberCurrencyId: PWideChar;
nextQualifyingPointsResetDate: PWideChar;
pointsBalance: Integer;
qualifyingPointsBalanceBeforeReset: Integer;
totalEscrowPointsAccrued: Integer;
totalEscrowRolloverPoints: Integer;
totalPointsAccrued: Integer;
totalPointsExpired: Integer;
totalPointsRedeemed: Integer;
areTierBenefitsAssigned: Boolean;
loyaltyMemberTierId: PWideChar;
loyaltyMemberTierName: PWideChar;
tierChangeReason: PWideChar;
tierChangeReasonType: PWideChar;
tierEffectiveDate: PWideChar;
tierExpirationDate: PWideChar;
tierGroupId: PWideChar;
tierGroupName: PWideChar;
tierId: PWideChar;
tierSequenceNumber: Integer;
associatedAccount: PWideChar;
ContactId: PWideChar;
v_Email: PWideChar;
FirstName: PWideChar;
LastName: PWideChar;
canReceivePartnerPromotions: Boolean;
canReceivePromotions: Boolean;
enrollmentChannel: PWideChar;
enrollmentDate: PWideChar;
groupCreatedByMember: PWideChar;
groupName: PWideChar;
lastActivityDate: PWideChar;
loyaltyProgramMemberId: PWideChar;
loyaltyProgramName: PWideChar;
memberStatus: PWideChar;
memberType: PWideChar;
membershipEndDate: PWideChar;
membershipLastRenewalDate: PWideChar;
membershipNumber: PWideChar;
referredBy: PWideChar;
relatedCorporateMembershipNumber: PWideChar;
transactionJournalStatementFrequency: PWideChar;
transactionJournalStatementLastGeneratedDate: PWideChar;
transactionJournalStatementMethod: PWideChar;
i: Integer;
count_i: Integer;

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

http := CkHttp_Create();

queryParams := CkJsonObject_Create();
CkJsonObject_UpdateString(queryParams,'memberId','');
CkJsonObject_UpdateString(queryParams,'membershipNumber','');
CkJsonObject_UpdateString(queryParams,'programCurrencyName','');

// Adds the "Authorization: Bearer <access_token>" header.
CkHttp_putAuthToken(http,'<access_token>');

resp := CkHttp_QuickRequestParams(http,'GET','https://domain.com/services/data/v{{version}}/loyalty-programs/:loyaltyProgramName/members',queryParams);
if (CkHttp_getLastMethodSuccess(http) = False) then
  begin
    Memo1.Lines.Add(CkHttp__lastErrorText(http));
    Exit;
  end;

sbResponseBody := CkStringBuilder_Create();
CkHttpResponse_GetBodySb(resp,sbResponseBody);

jResp := CkJsonObject_Create();
CkJsonObject_LoadSb(jResp,sbResponseBody);
CkJsonObject_putEmitCompact(jResp,False);

Memo1.Lines.Add('Response Body:');
Memo1.Lines.Add(CkJsonObject__emit(jResp));

respStatusCode := CkHttpResponse_getStatusCode(resp);
Memo1.Lines.Add('Response Status Code = ' + IntToStr(respStatusCode));
if (respStatusCode >= 400) then
  begin
    Memo1.Lines.Add('Response Header:');
    Memo1.Lines.Add(CkHttpResponse__header(resp));
    Memo1.Lines.Add('Failed.');
    CkHttpResponse_Dispose(resp);
    Exit;
  end;
CkHttpResponse_Dispose(resp);

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

// {
//   "additionalLoyaltyProgramMemberFields": {},
//   "associatedAccount": null,
//   "associatedContact": {
//     "contactId": "003J8000002Yu0ZIAS",
//     "email": "ab@email.com",
//     "firstName": "Name1",
//     "lastName": "Name2"
//   },
//   "canReceivePartnerPromotions": true,
//   "canReceivePromotions": true,
//   "enrollmentChannel": "Email",
//   "enrollmentDate": "2021-01-01",
//   "groupCreatedByMember": null,
//   "groupName": null,
//   "lastActivityDate": null,
//   "loyaltyProgramMemberId": "0lMJ8000000CaRMMA0",
//   "loyaltyProgramName": "NTO Insider",
//   "memberCurrencies": [
//     {
//       "additionalLoyaltyMemberCurrencyFields": {
//         "Level_Before_Reset__c": null
//       },
//       "escrowPointsBalance": 0,
//       "expirablePoints": 0,
//       "lastAccrualProcessedDate": null,
//       "lastEscrowProcessedDate": null,
//       "lastExpirationProcessRunDate": null,
//       "lastPointsAggregationDate": null,
//       "lastPointsResetDate": null,
//       "loyaltyMemberCurrencyName": "NTO Qualifying Points",
//       "loyaltyProgramCurrencyId": "0lcJ8000000CaR7IAK",
//       "loyaltyProgramCurrencyName": null,
//       "memberCurrencyId": "0lzJ8000000CaRMIA0",
//       "nextQualifyingPointsResetDate": "2024-12-31",
//       "pointsBalance": 0,
//       "qualifyingPointsBalanceBeforeReset": 0,
//       "totalEscrowPointsAccrued": 0,
//       "totalEscrowRolloverPoints": 0,
//       "totalPointsAccrued": 0,
//       "totalPointsExpired": 0,
//       "totalPointsRedeemed": 0
//     }
//   ],
//   "memberStatus": "Active",
//   "memberTiers": [
//     {
//       "additionalLoyaltyMemberTierFields": {},
//       "areTierBenefitsAssigned": false,
//       "loyaltyMemberTierId": "0lyJ8000000CaRMIA0",
//       "loyaltyMemberTierName": "Bronze",
//       "tierChangeReason": null,
//       "tierChangeReasonType": null,
//       "tierEffectiveDate": "2021-01-01",
//       "tierExpirationDate": null,
//       "tierGroupId": "0ltJ8000000CaR8IAK",
//       "tierGroupName": null,
//       "tierId": "0lgJ80000008OI5IAM",
//       "tierSequenceNumber": 10
//     }
//   ],
//   "memberType": "Individual",
//   "membershipEndDate": "2022-01-01",
//   "membershipLastRenewalDate": null,
//   "membershipNumber": "Member1",
//   "referredBy": null,
//   "relatedCorporateMembershipNumber": null,
//   "transactionJournalStatementFrequency": "Monthly",
//   "transactionJournalStatementLastGeneratedDate": null,
//   "transactionJournalStatementMethod": "Mail"
// }

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

associatedAccount := CkJsonObject__stringOf(jResp,'associatedAccount');
ContactId := CkJsonObject__stringOf(jResp,'associatedContact.contactId');
v_Email := CkJsonObject__stringOf(jResp,'associatedContact.email');
FirstName := CkJsonObject__stringOf(jResp,'associatedContact.firstName');
LastName := CkJsonObject__stringOf(jResp,'associatedContact.lastName');
canReceivePartnerPromotions := CkJsonObject_BoolOf(jResp,'canReceivePartnerPromotions');
canReceivePromotions := CkJsonObject_BoolOf(jResp,'canReceivePromotions');
enrollmentChannel := CkJsonObject__stringOf(jResp,'enrollmentChannel');
enrollmentDate := CkJsonObject__stringOf(jResp,'enrollmentDate');
groupCreatedByMember := CkJsonObject__stringOf(jResp,'groupCreatedByMember');
groupName := CkJsonObject__stringOf(jResp,'groupName');
lastActivityDate := CkJsonObject__stringOf(jResp,'lastActivityDate');
loyaltyProgramMemberId := CkJsonObject__stringOf(jResp,'loyaltyProgramMemberId');
loyaltyProgramName := CkJsonObject__stringOf(jResp,'loyaltyProgramName');
memberStatus := CkJsonObject__stringOf(jResp,'memberStatus');
memberType := CkJsonObject__stringOf(jResp,'memberType');
membershipEndDate := CkJsonObject__stringOf(jResp,'membershipEndDate');
membershipLastRenewalDate := CkJsonObject__stringOf(jResp,'membershipLastRenewalDate');
membershipNumber := CkJsonObject__stringOf(jResp,'membershipNumber');
referredBy := CkJsonObject__stringOf(jResp,'referredBy');
relatedCorporateMembershipNumber := CkJsonObject__stringOf(jResp,'relatedCorporateMembershipNumber');
transactionJournalStatementFrequency := CkJsonObject__stringOf(jResp,'transactionJournalStatementFrequency');
transactionJournalStatementLastGeneratedDate := CkJsonObject__stringOf(jResp,'transactionJournalStatementLastGeneratedDate');
transactionJournalStatementMethod := CkJsonObject__stringOf(jResp,'transactionJournalStatementMethod');
i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'memberCurrencies');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    Level_Before_Reset__c := CkJsonObject__stringOf(jResp,'memberCurrencies[i].additionalLoyaltyMemberCurrencyFields.Level_Before_Reset__c');
    escrowPointsBalance := CkJsonObject_IntOf(jResp,'memberCurrencies[i].escrowPointsBalance');
    expirablePoints := CkJsonObject_IntOf(jResp,'memberCurrencies[i].expirablePoints');
    lastAccrualProcessedDate := CkJsonObject__stringOf(jResp,'memberCurrencies[i].lastAccrualProcessedDate');
    lastEscrowProcessedDate := CkJsonObject__stringOf(jResp,'memberCurrencies[i].lastEscrowProcessedDate');
    lastExpirationProcessRunDate := CkJsonObject__stringOf(jResp,'memberCurrencies[i].lastExpirationProcessRunDate');
    lastPointsAggregationDate := CkJsonObject__stringOf(jResp,'memberCurrencies[i].lastPointsAggregationDate');
    lastPointsResetDate := CkJsonObject__stringOf(jResp,'memberCurrencies[i].lastPointsResetDate');
    loyaltyMemberCurrencyName := CkJsonObject__stringOf(jResp,'memberCurrencies[i].loyaltyMemberCurrencyName');
    loyaltyProgramCurrencyId := CkJsonObject__stringOf(jResp,'memberCurrencies[i].loyaltyProgramCurrencyId');
    loyaltyProgramCurrencyName := CkJsonObject__stringOf(jResp,'memberCurrencies[i].loyaltyProgramCurrencyName');
    memberCurrencyId := CkJsonObject__stringOf(jResp,'memberCurrencies[i].memberCurrencyId');
    nextQualifyingPointsResetDate := CkJsonObject__stringOf(jResp,'memberCurrencies[i].nextQualifyingPointsResetDate');
    pointsBalance := CkJsonObject_IntOf(jResp,'memberCurrencies[i].pointsBalance');
    qualifyingPointsBalanceBeforeReset := CkJsonObject_IntOf(jResp,'memberCurrencies[i].qualifyingPointsBalanceBeforeReset');
    totalEscrowPointsAccrued := CkJsonObject_IntOf(jResp,'memberCurrencies[i].totalEscrowPointsAccrued');
    totalEscrowRolloverPoints := CkJsonObject_IntOf(jResp,'memberCurrencies[i].totalEscrowRolloverPoints');
    totalPointsAccrued := CkJsonObject_IntOf(jResp,'memberCurrencies[i].totalPointsAccrued');
    totalPointsExpired := CkJsonObject_IntOf(jResp,'memberCurrencies[i].totalPointsExpired');
    totalPointsRedeemed := CkJsonObject_IntOf(jResp,'memberCurrencies[i].totalPointsRedeemed');
    i := i + 1;
  end;

i := 0;
count_i := CkJsonObject_SizeOfArray(jResp,'memberTiers');
while i < count_i do
  begin
    CkJsonObject_putI(jResp,i);
    areTierBenefitsAssigned := CkJsonObject_BoolOf(jResp,'memberTiers[i].areTierBenefitsAssigned');
    loyaltyMemberTierId := CkJsonObject__stringOf(jResp,'memberTiers[i].loyaltyMemberTierId');
    loyaltyMemberTierName := CkJsonObject__stringOf(jResp,'memberTiers[i].loyaltyMemberTierName');
    tierChangeReason := CkJsonObject__stringOf(jResp,'memberTiers[i].tierChangeReason');
    tierChangeReasonType := CkJsonObject__stringOf(jResp,'memberTiers[i].tierChangeReasonType');
    tierEffectiveDate := CkJsonObject__stringOf(jResp,'memberTiers[i].tierEffectiveDate');
    tierExpirationDate := CkJsonObject__stringOf(jResp,'memberTiers[i].tierExpirationDate');
    tierGroupId := CkJsonObject__stringOf(jResp,'memberTiers[i].tierGroupId');
    tierGroupName := CkJsonObject__stringOf(jResp,'memberTiers[i].tierGroupName');
    tierId := CkJsonObject__stringOf(jResp,'memberTiers[i].tierId');
    tierSequenceNumber := CkJsonObject_IntOf(jResp,'memberTiers[i].tierSequenceNumber');
    i := i + 1;
  end;

CkHttp_Dispose(http);
CkJsonObject_Dispose(queryParams);
CkStringBuilder_Dispose(sbResponseBody);
CkJsonObject_Dispose(jResp);

Curl Command

curl -G -d "memberId="
	-d "membershipNumber="
	-d "programCurrencyName="
	-H "Authorization: Bearer <access_token>"
https://domain.com/services/data/v{{version}}/loyalty-programs/:loyaltyProgramName/members

Postman Collection Item JSON

{
  "name": "Member Profile",
  "protocolProfileBehavior": {
    "disableBodyPruning": true
  },
  "request": {
    "method": "GET",
    "header": [
    ],
    "body": {
      "mode": "raw",
      "raw": "",
      "options": {
        "raw": {
          "language": "json"
        }
      }
    },
    "url": {
      "raw": "{{_endpoint}}/services/data/v{{version}}/loyalty-programs/:loyaltyProgramName/members?memberId=&membershipNumber=&programCurrencyName=",
      "host": [
        "{{_endpoint}}"
      ],
      "path": [
        "services",
        "data",
        "v{{version}}",
        "loyalty-programs",
        ":loyaltyProgramName",
        "members"
      ],
      "query": [
        {
          "key": "memberId",
          "value": "",
          "description": "The ID of the loyalty program member."
        },
        {
          "key": "membershipNumber",
          "value": "",
          "description": "The membership number of the loyalty program member."
        },
        {
          "key": "programCurrencyName",
          "value": "",
          "description": "The name of the loyalty program currency associated with the member.\nUse this parameter to get the details of the member’s points-related information for a specific currency."
        }
      ],
      "variable": [
        {
          "key": "loyaltyProgramName",
          "value": ""
        }
      ]
    },
    "description": "Standard Documentation:\n\n[https://developer.salesforce.com/docs/atlas.en-us.loyalty.meta/loyalty/connect_resources_member_profile.htm](https://developer.salesforce.com/docs/atlas.en-us.loyalty.meta/loyalty/connect_resources_member_profile.htm)"
  },
  "response": [
    {
      "name": "Member Profile",
      "originalRequest": {
        "method": "GET",
        "header": [
          {
            "key": "Authorization",
            "value": "Bearer {{accessToken}}"
          }
        ],
        "body": {
          "mode": "raw",
          "raw": "",
          "options": {
            "raw": {
              "language": "json"
            }
          }
        },
        "url": {
          "raw": "{{_endpoint}}/services/data/v{{version}}/loyalty-programs/:loyaltyProgramName/members?memberId=0lMJ8000000CaRMMA0&membershipNumber=Member1&programCurrencyName=NTO Qualifying Points",
          "host": [
            "{{_endpoint}}"
          ],
          "path": [
            "services",
            "data",
            "v{{version}}",
            "loyalty-programs",
            ":loyaltyProgramName",
            "members"
          ],
          "query": [
            {
              "key": "memberId",
              "value": "0lMJ8000000CaRMMA0",
              "description": "The ID of the loyalty program member."
            },
            {
              "key": "membershipNumber",
              "value": "Member1",
              "description": "The membership number of the loyalty program member."
            },
            {
              "key": "programCurrencyName",
              "value": "NTO Qualifying Points",
              "description": "The name of the loyalty program currency associated with the member.\nUse this parameter to get the details of the member’s points-related information for a specific currency."
            }
          ],
          "variable": [
            {
              "key": "loyaltyProgramName",
              "value": "NTO Insider"
            }
          ]
        }
      },
      "status": "OK",
      "code": 200,
      "_postman_previewlanguage": "json",
      "header": [
        {
          "key": "Date",
          "value": "Wed, 22 May 2024 16:16:23 GMT"
        },
        {
          "key": "Strict-Transport-Security",
          "value": "max-age=63072000; includeSubDomains"
        },
        {
          "key": "X-Content-Type-Options",
          "value": "nosniff"
        },
        {
          "key": "X-Robots-Tag",
          "value": "none"
        },
        {
          "key": "Cache-Control",
          "value": "no-cache,must-revalidate,max-age=0,no-store,private"
        },
        {
          "key": "Content-Type",
          "value": "application/json;charset=UTF-8"
        },
        {
          "key": "Vary",
          "value": "Accept-Encoding"
        },
        {
          "key": "Content-Encoding",
          "value": "gzip"
        },
        {
          "key": "Transfer-Encoding",
          "value": "chunked"
        }
      ],
      "cookie": [
      ],
      "body": "{\n    \"additionalLoyaltyProgramMemberFields\": {},\n    \"associatedAccount\": null,\n    \"associatedContact\": {\n        \"contactId\": \"003J8000002Yu0ZIAS\",\n        \"email\": \"ab@email.com\",\n        \"firstName\": \"Name1\",\n        \"lastName\": \"Name2\"\n    },\n    \"canReceivePartnerPromotions\": true,\n    \"canReceivePromotions\": true,\n    \"enrollmentChannel\": \"Email\",\n    \"enrollmentDate\": \"2021-01-01\",\n    \"groupCreatedByMember\": null,\n    \"groupName\": null,\n    \"lastActivityDate\": null,\n    \"loyaltyProgramMemberId\": \"0lMJ8000000CaRMMA0\",\n    \"loyaltyProgramName\": \"NTO Insider\",\n    \"memberCurrencies\": [\n        {\n            \"additionalLoyaltyMemberCurrencyFields\": {\n                \"Level_Before_Reset__c\": null\n            },\n            \"escrowPointsBalance\": 0,\n            \"expirablePoints\": 0,\n            \"lastAccrualProcessedDate\": null,\n            \"lastEscrowProcessedDate\": null,\n            \"lastExpirationProcessRunDate\": null,\n            \"lastPointsAggregationDate\": null,\n            \"lastPointsResetDate\": null,\n            \"loyaltyMemberCurrencyName\": \"NTO Qualifying Points\",\n            \"loyaltyProgramCurrencyId\": \"0lcJ8000000CaR7IAK\",\n            \"loyaltyProgramCurrencyName\": null,\n            \"memberCurrencyId\": \"0lzJ8000000CaRMIA0\",\n            \"nextQualifyingPointsResetDate\": \"2024-12-31\",\n            \"pointsBalance\": 0,\n            \"qualifyingPointsBalanceBeforeReset\": 0,\n            \"totalEscrowPointsAccrued\": 0,\n            \"totalEscrowRolloverPoints\": 0,\n            \"totalPointsAccrued\": 0,\n            \"totalPointsExpired\": 0,\n            \"totalPointsRedeemed\": 0\n        }\n    ],\n    \"memberStatus\": \"Active\",\n    \"memberTiers\": [\n        {\n            \"additionalLoyaltyMemberTierFields\": {},\n            \"areTierBenefitsAssigned\": false,\n            \"loyaltyMemberTierId\": \"0lyJ8000000CaRMIA0\",\n            \"loyaltyMemberTierName\": \"Bronze\",\n            \"tierChangeReason\": null,\n            \"tierChangeReasonType\": null,\n            \"tierEffectiveDate\": \"2021-01-01\",\n            \"tierExpirationDate\": null,\n            \"tierGroupId\": \"0ltJ8000000CaR8IAK\",\n            \"tierGroupName\": null,\n            \"tierId\": \"0lgJ80000008OI5IAM\",\n            \"tierSequenceNumber\": 10\n        }\n    ],\n    \"memberType\": \"Individual\",\n    \"membershipEndDate\": \"2022-01-01\",\n    \"membershipLastRenewalDate\": null,\n    \"membershipNumber\": \"Member1\",\n    \"referredBy\": null,\n    \"relatedCorporateMembershipNumber\": null,\n    \"transactionJournalStatementFrequency\": \"Monthly\",\n    \"transactionJournalStatementLastGeneratedDate\": null,\n    \"transactionJournalStatementMethod\": \"Mail\"\n}"
    }
  ]
}