|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(DataFlex) SMSAPI - List ContactsList Contacts For more information, see https://www.smsapi.com/docs?shell#list-contacts
Use ChilkatAx-win32.pkg Procedure Test Handle hoHttp Boolean iSuccess Variant vSbResponseBody Handle hoSbResponseBody Handle hoJResp Integer iRespStatusCode Variant vDate_created Handle hoDate_created Variant vDate_updated Handle hoDate_updated String sId String sFirst_name String sLast_name String sPhone_number String sEmail String sGender String sCity String sCountry String sSource Integer j Integer iCount_j String sName String sDescription String sCreated_by String sIdx String sContact_expire_after String sContacts_count Integer iSize Integer i Integer iCount_i String sTemp1 // This example assumes the Chilkat API to have been previously unlocked. // See Global Unlock Sample for sample code. Get Create (RefClass(cComChilkatHttp)) To hoHttp If (Not(IsComObjectCreated(hoHttp))) Begin Send CreateComObject of hoHttp End // Implements the following CURL command: // curl -X GET -H "Authorization: Bearer token_api_oauth" https://api.smsapi.com/contacts?phone_number=48500000000 // Use the following online tool to generate HTTP code from a CURL command // Convert a cURL Command to HTTP Source Code // Adds the "Authorization: Bearer token_api_oauth" header. Set ComAuthToken Of hoHttp To "token_api_oauth" Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody If (Not(IsComObjectCreated(hoSbResponseBody))) Begin Send CreateComObject of hoSbResponseBody End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComQuickGetSb Of hoHttp "https://api.smsapi.com/contacts?phone_number=48500000000" vSbResponseBody To iSuccess If (iSuccess = False) Begin Get ComLastErrorText Of hoHttp To sTemp1 Showln sTemp1 Procedure_Return End Get Create (RefClass(cComChilkatJsonObject)) To hoJResp If (Not(IsComObjectCreated(hoJResp))) Begin Send CreateComObject of hoJResp End Get pvComObject of hoSbResponseBody to vSbResponseBody Get ComLoadSb Of hoJResp vSbResponseBody To iSuccess Set ComEmitCompact Of hoJResp To False Showln "Response Body:" Get ComEmit Of hoJResp To sTemp1 Showln sTemp1 Get ComLastStatus Of hoHttp To iRespStatusCode Showln "Response Status Code = " iRespStatusCode If (iRespStatusCode >= 400) Begin Showln "Response Header:" Get ComLastHeader Of hoHttp To sTemp1 Showln sTemp1 Showln "Failed." Procedure_Return End // Sample JSON response: // (Sample code for parsing the JSON response is shown below) // { // "size": 1, // "collection": [ // { // "id": "5b83ba81a788494a0469490f", // "first_name": "name", // "last_name": "surname", // "phone_number": "48500000000", // "email": "bok@smsapi.com", // "gender": "male", // "city": "City", // "country": "Poland", // "source": "source", // "date_created": "2018-08-27T10:46:57+02:00", // "date_updated": "2018-08-27T10:46:57+02:00", // "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": "login", // "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 Get Create (RefClass(cComChilkatDtObj)) To hoDate_created If (Not(IsComObjectCreated(hoDate_created))) Begin Send CreateComObject of hoDate_created End Get Create (RefClass(cComChilkatDtObj)) To hoDate_updated If (Not(IsComObjectCreated(hoDate_updated))) Begin Send CreateComObject of hoDate_updated End Get ComIntOf Of hoJResp "size" To iSize Move 0 To i Get ComSizeOfArray Of hoJResp "collection" To iCount_i While (i < iCount_i) Set ComI Of hoJResp To i Get ComStringOf Of hoJResp "collection[i].id" To sId Get ComStringOf Of hoJResp "collection[i].first_name" To sFirst_name Get ComStringOf Of hoJResp "collection[i].last_name" To sLast_name Get ComStringOf Of hoJResp "collection[i].phone_number" To sPhone_number Get ComStringOf Of hoJResp "collection[i].email" To sEmail Get ComStringOf Of hoJResp "collection[i].gender" To sGender Get ComStringOf Of hoJResp "collection[i].city" To sCity Get ComStringOf Of hoJResp "collection[i].country" To sCountry Get ComStringOf Of hoJResp "collection[i].source" To sSource Get pvComObject of hoDate_created to vDate_created Get ComDtOf Of hoJResp "collection[i].date_created" False vDate_created To iSuccess Get pvComObject of hoDate_updated to vDate_updated Get ComDtOf Of hoJResp "collection[i].date_updated" False vDate_updated To iSuccess Move 0 To j Get ComSizeOfArray Of hoJResp "collection[i].groups" To iCount_j While (j < iCount_j) Set ComJ Of hoJResp To j Get ComStringOf Of hoJResp "collection[i].groups[j].id" To sId Get ComStringOf Of hoJResp "collection[i].groups[j].name" To sName Get pvComObject of hoDate_created to vDate_created Get ComDtOf Of hoJResp "collection[i].groups[j].date_created" False vDate_created To iSuccess Get pvComObject of hoDate_updated to vDate_updated Get ComDtOf Of hoJResp "collection[i].groups[j].date_updated" False vDate_updated To iSuccess Get ComStringOf Of hoJResp "collection[i].groups[j].description" To sDescription Get ComStringOf Of hoJResp "collection[i].groups[j].created_by" To sCreated_by Get ComStringOf Of hoJResp "collection[i].groups[j].idx" To sIdx Get ComStringOf Of hoJResp "collection[i].groups[j].contact_expire_after" To sContact_expire_after Get ComStringOf Of hoJResp "collection[i].groups[j].contacts_count" To sContacts_count Move (j + 1) To j Loop Move (i + 1) To i Loop End_Procedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.