Example program with HTTPServer and sensor data streaming over TCPSockets, using Donatien Garnier's Net APIs and services code on top of LWIP. Files StreamServer.h and .cpp encapsulate streaming over TCPSockets. Broadcast is done by sendToAll(), and all incoming data is echoed back to the client. Echo code can be replaced with some remote control of the streaming interface. See main() that shows how to periodically send some data to all subscribed clients. To subscribe, a client should open a socket at <mbed_ip> port 123. I used few lines in TCL code to set up a quick sink for the data. HTTP files are served on port 80 concurrently to the streaming.

Dependencies:   mbed

Committer:
iva2k
Date:
Mon Jun 14 03:24:33 2010 +0000
Revision:
1:3ee499525aa5
Parent:
0:e614f7875b60

        

Who changed what in which revision?

UserRevisionLine numberNew contents of line
iva2k 0:e614f7875b60 1
iva2k 0:e614f7875b60 2 /*
iva2k 0:e614f7875b60 3 Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com)
iva2k 0:e614f7875b60 4
iva2k 0:e614f7875b60 5 Permission is hereby granted, free of charge, to any person obtaining a copy
iva2k 0:e614f7875b60 6 of this software and associated documentation files (the "Software"), to deal
iva2k 0:e614f7875b60 7 in the Software without restriction, including without limitation the rights
iva2k 0:e614f7875b60 8 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
iva2k 0:e614f7875b60 9 copies of the Software, and to permit persons to whom the Software is
iva2k 0:e614f7875b60 10 furnished to do so, subject to the following conditions:
iva2k 0:e614f7875b60 11
iva2k 0:e614f7875b60 12 The above copyright notice and this permission notice shall be included in
iva2k 0:e614f7875b60 13 all copies or substantial portions of the Software.
iva2k 0:e614f7875b60 14
iva2k 0:e614f7875b60 15 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
iva2k 0:e614f7875b60 16 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
iva2k 0:e614f7875b60 17 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
iva2k 0:e614f7875b60 18 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
iva2k 0:e614f7875b60 19 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
iva2k 0:e614f7875b60 20 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
iva2k 0:e614f7875b60 21 THE SOFTWARE.
iva2k 0:e614f7875b60 22 */
iva2k 0:e614f7875b60 23
iva2k 0:e614f7875b60 24 #include "DNSRequest.h"
iva2k 0:e614f7875b60 25
iva2k 0:e614f7875b60 26 DNSRequest::DNSRequest() : m_pNetDnsRequest(NULL), m_pCbItem(NULL), m_pCbMeth(NULL), m_pCb(NULL)
iva2k 0:e614f7875b60 27 {
iva2k 0:e614f7875b60 28
iva2k 0:e614f7875b60 29 }
iva2k 0:e614f7875b60 30
iva2k 0:e614f7875b60 31 DNSRequest::~DNSRequest()
iva2k 0:e614f7875b60 32 {
iva2k 0:e614f7875b60 33 close();
iva2k 0:e614f7875b60 34 }
iva2k 0:e614f7875b60 35
iva2k 0:e614f7875b60 36 DNSRequestErr DNSRequest::resolve(const char* hostname)
iva2k 0:e614f7875b60 37 {
iva2k 0:e614f7875b60 38 if(!m_pNetDnsRequest)
iva2k 0:e614f7875b60 39 {
iva2k 0:e614f7875b60 40 m_pNetDnsRequest = Net::dnsRequest(hostname);
iva2k 0:e614f7875b60 41 if(!m_pNetDnsRequest)
iva2k 0:e614f7875b60 42 {
iva2k 0:e614f7875b60 43 return DNS_IF; //Interface did not return a NetDnsRequest (usually because a default interface does not exist)
iva2k 0:e614f7875b60 44 }
iva2k 0:e614f7875b60 45 m_pNetDnsRequest->setOnReply(this, &DNSRequest::onNetDnsReply);
iva2k 0:e614f7875b60 46 return DNS_OK;
iva2k 0:e614f7875b60 47 }
iva2k 0:e614f7875b60 48 else
iva2k 0:e614f7875b60 49 {
iva2k 0:e614f7875b60 50 return DNS_INUSE; //The previous req has not completed
iva2k 0:e614f7875b60 51 }
iva2k 0:e614f7875b60 52 }
iva2k 0:e614f7875b60 53
iva2k 0:e614f7875b60 54 DNSRequestErr DNSRequest::resolve(Host* pHost)
iva2k 0:e614f7875b60 55 {
iva2k 0:e614f7875b60 56 if(!m_pNetDnsRequest)
iva2k 0:e614f7875b60 57 {
iva2k 0:e614f7875b60 58 m_pNetDnsRequest = Net::dnsRequest(pHost);
iva2k 0:e614f7875b60 59 if(!m_pNetDnsRequest)
iva2k 0:e614f7875b60 60 {
iva2k 0:e614f7875b60 61 return DNS_IF; //Interface did not return a NetDnsRequest (usually because a default interface does not exist)
iva2k 0:e614f7875b60 62 }
iva2k 0:e614f7875b60 63 m_pNetDnsRequest->setOnReply(this, &DNSRequest::onNetDnsReply);
iva2k 0:e614f7875b60 64 return DNS_OK;
iva2k 0:e614f7875b60 65 }
iva2k 0:e614f7875b60 66 else
iva2k 0:e614f7875b60 67 {
iva2k 0:e614f7875b60 68 return DNS_INUSE; //The previous req has not completed
iva2k 0:e614f7875b60 69 }
iva2k 0:e614f7875b60 70 }
iva2k 0:e614f7875b60 71
iva2k 0:e614f7875b60 72 //Callbacks
iva2k 0:e614f7875b60 73 void DNSRequest::setOnReply( void (*pMethod)(DNSReply) )
iva2k 0:e614f7875b60 74 {
iva2k 0:e614f7875b60 75 m_pCb = pMethod;
iva2k 0:e614f7875b60 76 }
iva2k 0:e614f7875b60 77
iva2k 0:e614f7875b60 78 #ifdef __LINKER_BUG_SOLVED__
iva2k 0:e614f7875b60 79 template<class T>
iva2k 0:e614f7875b60 80 void DNSRequest::setOnReply( T* pItem, void (T::*pMethod)(DNSReply) )
iva2k 0:e614f7875b60 81 {
iva2k 0:e614f7875b60 82 m_pCbItem = (CDummy*) pItem;
iva2k 0:e614f7875b60 83 m_pCbMeth = (void (CDummy::*)(DNSReply)) pMethod;
iva2k 0:e614f7875b60 84 }
iva2k 0:e614f7875b60 85 #endif
iva2k 0:e614f7875b60 86
iva2k 0:e614f7875b60 87 DNSRequestErr DNSRequest::getResult(IpAddr* pIp)
iva2k 0:e614f7875b60 88 {
iva2k 0:e614f7875b60 89 if(!m_pNetDnsRequest)
iva2k 0:e614f7875b60 90 {
iva2k 0:e614f7875b60 91 return DNS_SETUP;
iva2k 0:e614f7875b60 92 }
iva2k 0:e614f7875b60 93 m_pNetDnsRequest->getResult(pIp);
iva2k 0:e614f7875b60 94 return DNS_OK;
iva2k 0:e614f7875b60 95 }
iva2k 0:e614f7875b60 96
iva2k 0:e614f7875b60 97 DNSRequestErr DNSRequest::close()
iva2k 0:e614f7875b60 98 {
iva2k 0:e614f7875b60 99 if(!m_pNetDnsRequest)
iva2k 0:e614f7875b60 100 {
iva2k 0:e614f7875b60 101 return DNS_SETUP;
iva2k 0:e614f7875b60 102 }
iva2k 0:e614f7875b60 103 m_pNetDnsRequest->close();
iva2k 0:e614f7875b60 104 m_pNetDnsRequest = NULL;
iva2k 0:e614f7875b60 105 return DNS_OK;
iva2k 0:e614f7875b60 106 }
iva2k 0:e614f7875b60 107
iva2k 0:e614f7875b60 108 void DNSRequest::onNetDnsReply(NetDnsReply r)
iva2k 0:e614f7875b60 109 {
iva2k 0:e614f7875b60 110 if(m_pCbItem && m_pCbMeth)
iva2k 0:e614f7875b60 111 (m_pCbItem->*m_pCbMeth)((DNSReply) r);
iva2k 0:e614f7875b60 112 else if(m_pCb)
iva2k 0:e614f7875b60 113 m_pCb((DNSReply) r);
iva2k 0:e614f7875b60 114 }