|
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
(PureBasic) Twilio List Log MessagesFetch the log containing information about SMS messages previously sent (or failed to be sent). For more information, see https://www.twilio.com/docs/sms/api/message-resource?code-sample=code-read-list-all-messages&code-language=curl&code-sdk-version=json
IncludeFile "CkHttp.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkJsonObject.pb" Procedure ChilkatExample() ; This example assumes the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success.i ; Implements the following CURL command: ; curl -X GET 'https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json?PageSize=20' \ ; -u TWILIO_ACCOUNT_SID:TWILIO_AUTH_TOKEN ; Use the following online tool to generate HTTP code from a CURL command ; Convert a cURL Command to HTTP Source Code CkHttp::setCkLogin(http, "TWILIO_ACCOUNT_SID") CkHttp::setCkPassword(http, "TWILIO_AUTH_TOKEN") sbResponseBody.i = CkStringBuilder::ckCreate() If sbResponseBody.i = 0 Debug "Failed to create object." ProcedureReturn EndIf success = CkHttp::ckQuickGetSb(http,"https://api.twilio.com/2010-04-01/Accounts/TWILIO_ACCOUNT_SID/Messages.json?PageSize=20",sbResponseBody) If success = 0 Debug CkHttp::ckLastErrorText(http) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbResponseBody) ProcedureReturn EndIf json.i = CkJsonObject::ckCreate() If json.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkJsonObject::ckLoadSb(json,sbResponseBody) CkJsonObject::setCkEmitCompact(json, 0) Debug "Response Body:" Debug CkJsonObject::ckEmit(json) respStatusCode.i = CkHttp::ckLastStatus(http) Debug "Response Status Code = " + Str(respStatusCode) If respStatusCode >= 400 Debug "Response Header:" Debug CkHttp::ckLastHeader(http) Debug "Failed." CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbResponseBody) CkJsonObject::ckDispose(json) ProcedureReturn EndIf ; Sample JSON response: ; (Sample code for parsing the JSON response is shown below) ; { ; "end": 1, ; "first_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0", ; "next_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=1&PageToken=PAMMc26223853f8c46b4ab7dfaa6abba0a26", ; "page": 0, ; "page_size": 2, ; "previous_page_uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0", ; "messages": [ ; { ; "account_sid": "ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", ; "api_version": "2010-04-01", ; "body": "testing", ; "date_created": "Fri, 24 May 2019 17:44:46 +0000", ; "date_sent": "Fri, 24 May 2019 17:44:50 +0000", ; "date_updated": "Fri, 24 May 2019 17:44:50 +0000", ; "direction": "outbound-api", ; "error_code": null, ; "error_message": null, ; "from": "+12019235161", ; "messaging_service_sid": null, ; "num_media": "0", ; "num_segments": "1", ; "price": "-0.00750", ; "price_unit": "USD", ; "sid": "SMded05904ccb347238880ca9264e8fe1c", ; "status": "sent", ; "subresource_uris": { ; "media": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c/Media.json", ; "feedback": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c/Feedback.json" ; }, ; "to": "+18182008801", ; "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/SMded05904ccb347238880ca9264e8fe1c.json" ; }, ; { ; "account_sid": "ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX", ; "api_version": "2010-04-01", ; "body": "look mom I have media!", ; "date_created": "Fri, 24 May 2019 17:44:46 +0000", ; "date_sent": "Fri, 24 May 2019 17:44:49 +0000", ; "date_updated": "Fri, 24 May 2019 17:44:49 +0000", ; "direction": "inbound", ; "error_code": 30004, ; "error_message": "Message blocked", ; "from": "+12019235161", ; "messaging_service_sid": null, ; "num_media": "3", ; "num_segments": "1", ; "price": "-0.00750", ; "price_unit": "USD", ; "sid": "MMc26223853f8c46b4ab7dfaa6abba0a26", ; "status": "received", ; "subresource_uris": { ; "media": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26/Media.json", ; "feedback": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26/Feedback.json" ; }, ; "to": "+18182008801", ; "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages/MMc26223853f8c46b4ab7dfaa6abba0a26.json" ; } ; ], ; "start": 0, ; "uri": "/2010-04-01/Accounts/ACXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX/Messages.json?To=%2B123456789&From=%2B987654321&DateSent%3E=2008-01-02&PageSize=2&Page=0" ; } ; Sample code for parsing the JSON response... ; Use the following online tool to generate parsing code from sample JSON: ; Generate Parsing Code from JSON account_sid.s api_version.s body.s date_created.s date_sent.s date_updated.s direction.s error_code.s error_message.s from.s messaging_service_sid.s num_media.s num_segments.s price.s price_unit.s sid.s status.s subresource_urisMedia.s subresource_urisFeedback.s v_to.s end.i = CkJsonObject::ckIntOf(json,"end") first_page_uri.s = CkJsonObject::ckStringOf(json,"first_page_uri") next_page_uri.s = CkJsonObject::ckStringOf(json,"next_page_uri") page.i = CkJsonObject::ckIntOf(json,"page") page_size.i = CkJsonObject::ckIntOf(json,"page_size") previous_page_uri.s = CkJsonObject::ckStringOf(json,"previous_page_uri") start.i = CkJsonObject::ckIntOf(json,"start") uri.s = CkJsonObject::ckStringOf(json,"uri") i.i = 0 count_i.i = CkJsonObject::ckSizeOfArray(json,"messages") While i < count_i CkJsonObject::setCkI(json, i) account_sid = CkJsonObject::ckStringOf(json,"messages[i].account_sid") api_version = CkJsonObject::ckStringOf(json,"messages[i].api_version") body = CkJsonObject::ckStringOf(json,"messages[i].body") date_created = CkJsonObject::ckStringOf(json,"messages[i].date_created") date_sent = CkJsonObject::ckStringOf(json,"messages[i].date_sent") date_updated = CkJsonObject::ckStringOf(json,"messages[i].date_updated") direction = CkJsonObject::ckStringOf(json,"messages[i].direction") error_code = CkJsonObject::ckStringOf(json,"messages[i].error_code") error_message = CkJsonObject::ckStringOf(json,"messages[i].error_message") from = CkJsonObject::ckStringOf(json,"messages[i].from") messaging_service_sid = CkJsonObject::ckStringOf(json,"messages[i].messaging_service_sid") num_media = CkJsonObject::ckStringOf(json,"messages[i].num_media") num_segments = CkJsonObject::ckStringOf(json,"messages[i].num_segments") price = CkJsonObject::ckStringOf(json,"messages[i].price") price_unit = CkJsonObject::ckStringOf(json,"messages[i].price_unit") sid = CkJsonObject::ckStringOf(json,"messages[i].sid") status = CkJsonObject::ckStringOf(json,"messages[i].status") subresource_urisMedia = CkJsonObject::ckStringOf(json,"messages[i].subresource_uris.media") subresource_urisFeedback = CkJsonObject::ckStringOf(json,"messages[i].subresource_uris.feedback") v_to = CkJsonObject::ckStringOf(json,"messages[i].to") uri = CkJsonObject::ckStringOf(json,"messages[i].uri") i = i + 1 Wend CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbResponseBody) CkJsonObject::ckDispose(json) ProcedureReturn EndProcedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.