test
Dependencies: C027 HTTPClient UbloxUSBModem mbed
Fork of C027_HTTPClientTest by
main.cpp@12:393f2a870b42, 2014-02-03 (annotated)
- Committer:
- sam_grove
- Date:
- Mon Feb 03 15:55:12 2014 +0000
- Revision:
- 12:393f2a870b42
- Parent:
- 10:e2315bcdd7be
- Child:
- 16:b2b75c8a01fa
made CMDA default and added modem reset and boot code
Who changed what in which revision?
User | Revision | Line number | New contents of line |
---|---|---|---|
donatien | 0:f3f18ac13e0c | 1 | #include "mbed.h" |
mazgch | 6:77c131006c67 | 2 | #include "C027.h" |
mazgch | 6:77c131006c67 | 3 | #include "UbloxUSBGSMModem.h" |
mazgch | 6:77c131006c67 | 4 | #include "UbloxUSBCDMAModem.h" |
mazgch | 6:77c131006c67 | 5 | |
donatien | 0:f3f18ac13e0c | 6 | #include "HTTPClient.h" |
donatien | 0:f3f18ac13e0c | 7 | |
mazgch | 10:e2315bcdd7be | 8 | C027 c027; |
mazgch | 10:e2315bcdd7be | 9 | |
mazgch | 7:c558c74ceb0f | 10 | void test(void const*) |
donatien | 0:f3f18ac13e0c | 11 | { |
mazgch | 10:e2315bcdd7be | 12 | c027.mdmPower(true); |
sam_grove | 12:393f2a870b42 | 13 | c027.mdmReset(); |
sam_grove | 12:393f2a870b42 | 14 | c027.mdmWakeup(); |
sam_grove | 12:393f2a870b42 | 15 | UbloxUSBCDMAModem modem(NC, true, 1); // for LISA-C use the UbloxUSBCDMAModem instead |
sam_grove | 12:393f2a870b42 | 16 | modem.power(true); |
sam_grove | 12:393f2a870b42 | 17 | Thread::wait(1000); |
sam_grove | 12:393f2a870b42 | 18 | |
donatien | 1:6ea9ac27702c | 19 | HTTPClient http; |
donatien | 1:6ea9ac27702c | 20 | char str[512]; |
sam_grove | 12:393f2a870b42 | 21 | |
sam_grove | 12:393f2a870b42 | 22 | int ret = modem.connect("internet", NULL, NULL); // eventaully set another apn here |
mazgch | 8:95a97898084a | 23 | if(ret) |
mazgch | 8:95a97898084a | 24 | { |
mazgch | 8:95a97898084a | 25 | printf("Could not connect %d\n", ret); |
mazgch | 7:c558c74ceb0f | 26 | return; |
donatien | 1:6ea9ac27702c | 27 | } |
mazgch | 8:95a97898084a | 28 | |
donatien | 1:6ea9ac27702c | 29 | //GET data |
donatien | 1:6ea9ac27702c | 30 | printf("Trying to fetch page...\n"); |
donatien | 0:f3f18ac13e0c | 31 | ret = http.get("http://mbed.org/media/uploads/donatien/hello.txt", str, 128); |
mazgch | 7:c558c74ceb0f | 32 | if (!ret) { |
mazgch | 7:c558c74ceb0f | 33 | printf("Page fetched successfully - read %d characters\n", strlen(str)); |
mazgch | 7:c558c74ceb0f | 34 | printf("Result: %s\n", str); |
mazgch | 7:c558c74ceb0f | 35 | } else { |
mazgch | 7:c558c74ceb0f | 36 | printf("Error - ret = %d - HTTP return code = %d\n", ret, http.getHTTPResponseCode()); |
donatien | 0:f3f18ac13e0c | 37 | } |
mazgch | 7:c558c74ceb0f | 38 | |
donatien | 1:6ea9ac27702c | 39 | //POST data |
donatien | 0:f3f18ac13e0c | 40 | HTTPMap map; |
donatien | 0:f3f18ac13e0c | 41 | HTTPText text(str, 512); |
donatien | 0:f3f18ac13e0c | 42 | map.put("Hello", "World"); |
donatien | 0:f3f18ac13e0c | 43 | map.put("test", "1234"); |
donatien | 1:6ea9ac27702c | 44 | printf("Trying to post data...\n"); |
donatien | 0:f3f18ac13e0c | 45 | ret = http.post("http://httpbin.org/post", map, &text); |
mazgch | 7:c558c74ceb0f | 46 | if (!ret) { |
mazgch | 7:c558c74ceb0f | 47 | printf("Executed POST successfully - read %d characters\n", strlen(str)); |
mazgch | 7:c558c74ceb0f | 48 | printf("Result: %s\n", str); |
mazgch | 7:c558c74ceb0f | 49 | } else { |
mazgch | 7:c558c74ceb0f | 50 | printf("Error - ret = %d - HTTP return code = %d\n", ret, http.getHTTPResponseCode()); |
donatien | 0:f3f18ac13e0c | 51 | } |
mazgch | 7:c558c74ceb0f | 52 | |
mazgch | 7:c558c74ceb0f | 53 | modem.disconnect(); |
mazgch | 10:e2315bcdd7be | 54 | c027.mdmPower(false); |
mazgch | 10:e2315bcdd7be | 55 | |
donatien | 1:6ea9ac27702c | 56 | while(1) { |
donatien | 1:6ea9ac27702c | 57 | } |
donatien | 0:f3f18ac13e0c | 58 | } |
donatien | 0:f3f18ac13e0c | 59 | |
donatien | 0:f3f18ac13e0c | 60 | |
donatien | 0:f3f18ac13e0c | 61 | int main() |
donatien | 0:f3f18ac13e0c | 62 | { |
mazgch | 7:c558c74ceb0f | 63 | Thread testTask(test, NULL, osPriorityNormal, 1024 * 4); |
mazgch | 10:e2315bcdd7be | 64 | DigitalOut led(LED); // on rev A you should reasign the signal to A0 |
mazgch | 7:c558c74ceb0f | 65 | while(1) { |
mazgch | 7:c558c74ceb0f | 66 | led=!led; |
mazgch | 7:c558c74ceb0f | 67 | Thread::wait(1000); |
mazgch | 7:c558c74ceb0f | 68 | } |
donatien | 0:f3f18ac13e0c | 69 | |
mazgch | 7:c558c74ceb0f | 70 | return 0; |
donatien | 0:f3f18ac13e0c | 71 | } |