>>TEXT TO lcJson >>{ >> "account_sid": "AC5ef8732a3c49700934481addd5ce1659", >> "api_version": "2010-04-01", >> "body": "Jenny please?! I love you <3", >> "num_segments": "1", >> "num_media": "1", >> "date_created": "Wed, 18 Aug 2010 20:01:40 +0000", >> "date_sent": null, >> "date_updated": "Wed, 18 Aug 2010 20:01:40 +0000", >> "direction": "outbound-api", >> "error_code": null, >> "error_message": null, >> "from": "+14158141829", >> "price": null, >> "sid": "MM90c6fc909d8504d45ecdb3a3d5b3556e", >> "status": "queued", >> "to": "+15558675309", >> "uri": "/2010-04-01/Accounts/AC5ef8732a3c49700934481addd5ce1659/Messages/MM90c6fc909d8504d45ecdb3a3d5b3556e.json" >>} >>ENDTEXT >> >>DO wwHttp >>loHttp = CREATEOBJECT("wwHttp") >>loHttp.AppPostKey(lcJson) >>loHttp.cContentType = "application/json" >> >>lcResponse = loHttp.HttpGet("https://api.twilio.com/2010-04-01/Accounts/AC5ef8732a3c49700934481addd5ce1659/Messages.json") >>>>
SET LIBRARY TO vfpconnection.fll ADDITIVE >>> >>>*!* SetConnectTimeout(oAppInfo.ConnectTimeOut) && Default is 10 seconds >>>*!* SetResponseTimeout(oAppInfo.ResponseTimeOut) && Default is 10 seconds >>>SetConnectTimeout(30) && Default is 10 seconds >>>SetResponseTimeout(30) && Default is 10 seconds >>> >>>*!* https://api.twilio.com/2010-04-01/Accounts/ACb832550f3d5e416b54a3ff1c0c7d08b1/Messages.json \ >>>*!* -d "Body=Jenny%20please%3F%21%20I%20love%20you%20<3" \ >>>*!* -d "To=%2B15558675309" \ >>>*!* -d "From=%2B14158141829" \ >>>*!* -d "MediaUrl=http://www.example.com/hearts.png" \ >>>*!* -u 'ACb832550f3d5e416b54a3ff1c0c7d08b1:{AuthToken}' >>> >>>m.lcURL = "https://api.twilio.com/2010-04-01/Accounts/ACb832550f3d5e416b54a3ff1c0c7d08b1/Messages.json" >>> >>>LOCAL ARRAY laPost[3,2] >>>laPost[1,1] = "Body" >>>laPost[1,2] = "Test Message from Frank via Twilio" >>>laPost[2,1] = "To" && name >>>laPost[2,2] = "+18689999999" >>>laPost[3,1] = "From" && name >>>laPost[3,2] = "+18688888888" >>> >>>IF NOT HttpPost(m.lcURL, @laPost, "", "APITrace()") >>> MESSAGEBOX("An error occurred sending the SMS: " + m.cTraceData, 16, "Send SMS Via Twilio") >>>ENDIF >>>>>>