|
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
(Visual FoxPro) GeoOp - Find Client ID by NameDownload the client JSON data and lookup a client ID by name.
LOCAL loJsonToken LOCAL lnSuccess LOCAL loOauth2 LOCAL loRest LOCAL lnBAutoReconnect LOCAL lcResponseBody LOCAL loJson LOCAL lnCaseSensitive LOCAL lcClientId * This example assumes the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * This example also assumes an OAuth2 access token was previously fetched. * and saved in a JSON file. * First get our previously obtained access token. * {"access_token":"e6dqdG....mzjpT04w==","token_type":"Bearer","expires_in":2592000,"owner_id":999236} * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJsonToken = CreateObject('Chilkat.JsonObject') lnSuccess = loJsonToken.LoadFile("qa_data/tokens/geoop.json") * This example assumes we previously obtained an access token * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.OAuth2') loOauth2 = CreateObject('Chilkat.OAuth2') loOauth2.AccessToken = loJsonToken.StringOf("access_token") * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Rest') loRest = CreateObject('Chilkat.Rest') * Connect to GeoOp and send the following GET request: * GET /users HTTP/1.1 * Host: api.geoop.com lnBAutoReconnect = 1 lnSuccess = loRest.Connect("api.geoop.com",443,1,lnBAutoReconnect) IF (lnSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loJsonToken RELEASE loOauth2 RELEASE loRest CANCEL ENDIF * Provide the authentication credentials (i.e. the access token) loRest.SetAuthOAuth2(loOauth2) * Set the X-Version header. loRest.AddHeader("X-Version","1.0") lcResponseBody = loRest.FullRequestNoBody("GET","/clients") IF (loRest.LastMethodSuccess <> 1) THEN ? loRest.LastErrorText RELEASE loJsonToken RELEASE loOauth2 RELEASE loRest CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.JsonObject') loJson = CreateObject('Chilkat.JsonObject') loJson.EmitCompact = 0 * If the response status code did not indicate success, then see what happened.. IF (loRest.ResponseStatusCode <> 200) THEN ? loRest.LastRequestStartLine ? "Request Header: " ? loRest.LastRequestHeader ? "----" ? "Response StatusCode = " + STR(loRest.ResponseStatusCode) ? "Response StatusLine: " + loRest.ResponseStatusText ? "Response Header:" ? loRest.ResponseHeader loJson.Load(lcResponseBody) ? loJson.Emit() RELEASE loJsonToken RELEASE loOauth2 RELEASE loRest RELEASE loJson CANCEL ENDIF loJson.Load(lcResponseBody) * Show the full JSON response.. (see below) ? loJson.Emit() * To find the client id for a given company name: lnCaseSensitive = 0 lcClientId = loJson.FindRecordString("clients","companyName","Miller Bakery",lnCaseSensitive,"id") IF (loJson.LastMethodSuccess <> 1) THEN ? "Client not found." ELSE ? "The client ID is: " + lcClientId ENDIF * Find the client ID for the 1st company matching "M*Bakery*" lcClientId = loJson.FindRecordString("clients","companyName","M*Bakery*",lnCaseSensitive,"id") IF (loJson.LastMethodSuccess <> 1) THEN ? "Client not found." ELSE ? "The client ID is: " + lcClientId ENDIF * The full JSON response containing all client data: * * { * "result": "success", * "clients": [ * { * "id": 9555868, * "firstName": "[ Demo", * "lastName": "Client ]", * "companyName": "Miller Park Cafe", * "businessType": "Licensed Restaurant", * "leadSource": "", * "emailAddress": null, * "phoneNumber": null, * "mobileNumber": null, * "faxNumber": null, * "notes": "", * "deleted": false, * "hasRecentJobs": true, * "created": "2016-10-26T12:05:09+00:00", * "modified": "2016-10-26T12:05:09+00:00", * "billingClient": null, * "account": { * "id": 39409 * }, * "address": { * "line1": "1732 Pennsylvania Avenue NW", * "line2": "", * "city": "Washington", * "postcode": "20006", * "latitude": 38.899037, * "longitude": -77.040207 * }, * "mailingAddress": {} * }, * { * "id": 9571176, * "firstName": "Mildred", * "lastName": "Vanildred", * "companyName": "Ice Cream Industries", * "businessType": "Ice Cream", * "leadSource": null, * "emailAddress": "milli@icecreamindustries.com", * "phoneNumber": "678-555-1012", * "mobileNumber": null, * "faxNumber": null, * "notes": "", * "deleted": false, * "hasRecentJobs": true, * "created": "2016-10-31T12:32:12+00:00", * "modified": "2016-10-31T12:32:13+00:00", * "billingClient": null, * "account": { * "id": 39409 * }, * "address": { * "line1": "2101 West Roosevelt Road", * "line2": null, * "city": "Wheaton", * "postcode": "60187", * "latitude": 41.8581778, * "longitude": -88.1380111 * }, * "mailingAddress": { * "line1": "2101 West Roosevelt Road", * "line2": null, * "city": "Wheaton" * } * }, * { * "id": 9571218, * "firstName": "Joe", * "lastName": "Miller", * "companyName": "Miller Bakery", * "businessType": "Licensed Bakery", * "leadSource": "", * "emailAddress": null, * "phoneNumber": null, * "mobileNumber": null, * "faxNumber": null, * "notes": "", * "deleted": false, * "hasRecentJobs": true, * "created": "2016-10-31T13:02:07+00:00", * "modified": "2016-10-31T13:02:07+00:00", * "billingClient": null, * "account": { * "id": 39409 * }, * "address": { * "line1": "1832 Pennsylvania Avenue NW", * "line2": "", * "city": "Washington", * "postcode": "20006", * "latitude": 0, * "longitude": 0 * }, * "mailingAddress": { * "line1": "", * "line2": "", * "city": "" * } * } * ], * "metadata": { * "page": 1, * "pagesCount": 1, * "recordsPerPage": 20, * "recordsCount": 3 * } * } * RELEASE loJsonToken RELEASE loOauth2 RELEASE loRest RELEASE loJson |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.