>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 >>>>