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.
netservice.cpp
00001 00002 /* 00003 Copyright (c) 2010 Donatien Garnier (donatiengar [at] gmail [dot] com) 00004 00005 Permission is hereby granted, free of charge, to any person obtaining a copy 00006 of this software and associated documentation files (the "Software"), to deal 00007 in the Software without restriction, including without limitation the rights 00008 to use, copy, modify, merge, publish, distribute, sublicense, and/or sell 00009 copies of the Software, and to permit persons to whom the Software is 00010 furnished to do so, subject to the following conditions: 00011 00012 The above copyright notice and this permission notice shall be included in 00013 all copies or substantial portions of the Software. 00014 00015 THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR 00016 IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, 00017 FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE 00018 AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER 00019 LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, 00020 OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN 00021 THE SOFTWARE. 00022 */ 00023 00024 #include "netservice.h" 00025 #include "net.h" 00026 00027 //#define __DEBUG 00028 #include "dbg/dbg.h" 00029 00030 NetService::NetService(bool owned /*= true*/) : m_closed(false), m_removed(false), m_owned(owned) 00031 { 00032 NetService::lpServices().push_back(this); 00033 DBG("[ + %p ] %d\r\n", (void*)this, lpServices().size()); 00034 } 00035 00036 NetService::~NetService() 00037 { 00038 // DBG("Service removed\r\n"); 00039 // DBG("Now %d services running\r\n", lpServices().size()-1); 00040 DBG("[ - %p ] %d\r\n", (void*)this, lpServices().size()-1); 00041 if((!m_owned) || (!m_removed)) //Destructor was not called by servicesPoll() 00042 { 00043 if(m_owned) 00044 DBG("WARN!!!Service removed in dtor!!!\r\n"); 00045 NetService::lpServices().remove(this); 00046 } 00047 } 00048 00049 void NetService::poll() 00050 { 00051 00052 } 00053 00054 void NetService::servicesPoll() //Poll all registered services & destroy closed ones 00055 { 00056 list<NetService*>::iterator it; 00057 00058 for( it = lpServices().begin(); it != lpServices().end(); ) 00059 { 00060 if( (*it)->m_owned && (*it)->m_closed ) 00061 { 00062 DBG("Service %p is flagged as closed\r\n", &(*it)); 00063 (*it)->m_removed = true; 00064 delete (*it); 00065 it = lpServices().erase(it); 00066 } 00067 else 00068 { 00069 (*it)->poll(); 00070 it++; 00071 } 00072 } 00073 00074 } 00075 00076 void NetService::close() 00077 { 00078 DBG("Service %p to be closed\r\n", this); 00079 m_closed = true; 00080 } 00081 00082 list<NetService*>& NetService::lpServices() 00083 { 00084 static list<NetService*>* pInst = new list<NetService*>(); //Called only once 00085 return *pInst; 00086 }
Generated on Tue Jul 12 2022 21:10:25 by 1.7.2