Microchip%20TCP_IP%20stack/TCPIP%20Stack/GenericTCPServer.c

/*********************************************************************
 *
 *      Generic TCP Server Example Application
 *  Module for Microchip TCP/IP Stack
 *   -Implements an example "ToUpper" TCP server on port 9760 and 
 *        should be used as a basis for creating new TCP server 
 *    applications
 *       -Reference: None.  Hopefully AN833 in the future.
 *
 *********************************************************************
 * FileName:        GenericTCPServer.c
 * Dependencies:    TCP.h
 * Processor:       PIC18, PIC24F, PIC24H, dsPIC30, dsPIC33F
 * Complier:        Microchip C18 v3.03 or higher
 *                                      Microchip C30 v2.01 or higher
 * Company:         Microchip Technology, Inc.
 *
 * Software License Agreement
 *
 * Copyright © 2002-2007 Microchip Technology Inc.  All rights 
 * reserved.
 *
 * Microchip licenses to you the right to use, modify, copy, and 
 * distribute: 
 * (i)  the Software when embedded on a Microchip microcontroller or 
 *      digital signal controller product (“Device”) which is 
 *      integrated into Licensee’s product; or
 * (ii) ONLY the Software driver source files ENC28J60.c and 
 *      ENC28J60.h ported to a non-Microchip device used in 
 *      conjunction with a Microchip ethernet controller for the 
 *      sole purpose of interfacing with the ethernet controller. 
 *
 * You should refer to the license agreement accompanying this 
 * Software for additional information regarding your rights and 
 * obligations.
 *
 * THE SOFTWARE AND DOCUMENTATION ARE PROVIDED “AS IS” WITHOUT 
 * WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING WITHOUT 
 * LIMITATION, ANY WARRANTY OF MERCHANTABILITY, FITNESS FOR A 
 * PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT SHALL 
 * MICROCHIP BE LIABLE FOR ANY INCIDENTAL, SPECIAL, INDIRECT OR 
 * CONSEQUENTIAL DAMAGES, LOST PROFITS OR LOST DATA, COST OF 
 * PROCUREMENT OF SUBSTITUTE GOODS, TECHNOLOGY OR SERVICES, ANY CLAIMS 
 * BY THIRD PARTIES (INCLUDING BUT NOT LIMITED TO ANY DEFENSE 
 * THEREOF), ANY CLAIMS FOR INDEMNITY OR CONTRIBUTION, OR OTHER 
 * SIMILAR COSTS, WHETHER ASSERTED ON THE BASIS OF CONTRACT, TORT 
 * (INCLUDING NEGLIGENCE), BREACH OF WARRANTY, OR OTHERWISE.
 *
 *
 * Author               Date            Comment
 *~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 * Howard Schlunder     10/19/06        Original
 ********************************************************************/
#define __GENERICTCPSERVER_C

#include "TCPIP Stack/TCPIP.h"

#if defined(STACK_USE_GENERIC_TCP_SERVER_EXAMPLE)


#define SERVER_PORT     9760


/*********************************************************************
 * Function:        void GenericTCPServer(void)
 *
 * PreCondition:    Stack is initialized()
 *
 * Input:           None
 *
 * Output:          None
 *
 * Side Effects:    None
 *
 * Overview:        None
 *
 * Note:            None
 ********************************************************************/
void GenericTCPServer(void)
{
        BYTE c;
        static TCP_SOCKET       MySocket;
        static enum _TCPServerState
        {
                SM_HOME = 0,
                SM_LISTENING,
        } TCPServerState = SM_HOME;
        static BYTE     AppTXBuffer[33];
        static BYTE *AppTXStart = AppTXBuffer;
        static BYTE *AppTXEnd = AppTXBuffer;

        switch(TCPServerState)
        {
                case SM_HOME:
                        // Allocate a socket for this server to listen and accept connections on
                        MySocket = TCPListen(SERVER_PORT);
                        if(MySocket == INVALID_SOCKET)
                        {
#ifdef USE_LCD
                                strcpypgm2ram((char*)LCDText, "Error: Increase MAX_TCP_SOCKETS");
                                LCDUpdate();
#endif
                                return;
                        }

                        TCPServerState++;
                        break;

                case SM_LISTENING:
                        // See if anyone is connected to us
                        if(!TCPIsConnected(MySocket))
                        {
                                // Zero out the App TX buffer and do nothing
                                AppTXEnd = AppTXStart;
                                return;
                        }

                        // Receive any bytes that have been sent to us.
                        if(TCPIsGetReady(MySocket))
                        {
                                // Need to use LED7, disable BUTTON2 functionality on Explorer 16
                                LED7_TRIS = 0;
        
                                while(TCPGet(MySocket, &c))
                                {
                                        // Convert the character to uppercase and transmit it back 
                                        // to the sender
                                        if(c >= 'a' && c <= 'z')
                                                c -= ('a' - 'A');

                                        *AppTXEnd++ = c;
                                        if(AppTXEnd > AppTXBuffer + sizeof(AppTXBuffer))
                                                AppTXEnd = AppTXBuffer;
                                }
        
                                // Restore BUTTON2 functionality on Explorer 16
                                LED7_TRIS = 1;
                        }

                        // Transmit any bytes that are waiting to be sent.
                        c = 0x00;
                        while(TCPIsPutReady(MySocket) && (AppTXStart != AppTXEnd))
                        {
                                c = 0xFF;
                                TCPPut(MySocket, *AppTXStart++);
                                if(AppTXStart > AppTXBuffer + sizeof(AppTXBuffer))
                                        AppTXStart = AppTXBuffer;
                        }
                        // Flush the packet if we placed anything in the transmit buffer
                        if(c)
                                TCPFlush(MySocket);


                        break;
        }
}

#endif //#if defined(STACK_USE_GENERIC_TCP_SERVER_EXAMPLE)
1	hedin	15	/*********************************************************************
2			*
3			* Generic TCP Server Example Application
4			* Module for Microchip TCP/IP Stack
5			* -Implements an example "ToUpper" TCP server on port 9760 and
6			* should be used as a basis for creating new TCP server
7			* applications
8			* -Reference: None. Hopefully AN833 in the future.
9			*
10			*********************************************************************
11			* FileName: GenericTCPServer.c
12			* Dependencies: TCP.h
13			* Processor: PIC18, PIC24F, PIC24H, dsPIC30, dsPIC33F
14			* Complier: Microchip C18 v3.03 or higher
15			* Microchip C30 v2.01 or higher
16			* Company: Microchip Technology, Inc.
17			*
18			* Software License Agreement
19			*
20			* Copyright © 2002-2007 Microchip Technology Inc. All rights
21			* reserved.
22			*
23			* Microchip licenses to you the right to use, modify, copy, and
24			* distribute:
25			* (i) the Software when embedded on a Microchip microcontroller or
26			* digital signal controller product (“Device”) which is
27			* integrated into Licensee’s product; or
28			* (ii) ONLY the Software driver source files ENC28J60.c and
29			* ENC28J60.h ported to a non-Microchip device used in
30			* conjunction with a Microchip ethernet controller for the
31			* sole purpose of interfacing with the ethernet controller.
32			*
33			* You should refer to the license agreement accompanying this
34			* Software for additional information regarding your rights and
35			* obligations.
36			*
37			* THE SOFTWARE AND DOCUMENTATION ARE PROVIDED “AS IS” WITHOUT
38			* WARRANTY OF ANY KIND, EITHER EXPRESS OR IMPLIED, INCLUDING WITHOUT
39			* LIMITATION, ANY WARRANTY OF MERCHANTABILITY, FITNESS FOR A
40			* PARTICULAR PURPOSE, TITLE AND NON-INFRINGEMENT. IN NO EVENT SHALL
41			* MICROCHIP BE LIABLE FOR ANY INCIDENTAL, SPECIAL, INDIRECT OR
42			* CONSEQUENTIAL DAMAGES, LOST PROFITS OR LOST DATA, COST OF
43			* PROCUREMENT OF SUBSTITUTE GOODS, TECHNOLOGY OR SERVICES, ANY CLAIMS
44			* BY THIRD PARTIES (INCLUDING BUT NOT LIMITED TO ANY DEFENSE
45			* THEREOF), ANY CLAIMS FOR INDEMNITY OR CONTRIBUTION, OR OTHER
46			* SIMILAR COSTS, WHETHER ASSERTED ON THE BASIS OF CONTRACT, TORT
47			* (INCLUDING NEGLIGENCE), BREACH OF WARRANTY, OR OTHERWISE.
48			*
49			*
50			* Author Date Comment
51			*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
52			* Howard Schlunder 10/19/06 Original
53			********************************************************************/
54			#define __GENERICTCPSERVER_C
55
56			#include "TCPIP Stack/TCPIP.h"
57
58			#if defined(STACK_USE_GENERIC_TCP_SERVER_EXAMPLE)
59
60
61			#define SERVER_PORT 9760
62
63
64			/*********************************************************************
65			* Function: void GenericTCPServer(void)
66			*
67			* PreCondition: Stack is initialized()
68			*
69			* Input: None
70			*
71			* Output: None
72			*
73			* Side Effects: None
74			*
75			* Overview: None
76			*
77			* Note: None
78			********************************************************************/
79			void GenericTCPServer(void)
80			{
81			BYTE c;
82			static TCP_SOCKET MySocket;
83			static enum _TCPServerState
84			{
85			SM_HOME = 0,
86			SM_LISTENING,
87			} TCPServerState = SM_HOME;
88			static BYTE AppTXBuffer[33];
89			static BYTE *AppTXStart = AppTXBuffer;
90			static BYTE *AppTXEnd = AppTXBuffer;
91
92			switch(TCPServerState)
93			{
94			case SM_HOME:
95			// Allocate a socket for this server to listen and accept connections on
96			MySocket = TCPListen(SERVER_PORT);
97			if(MySocket == INVALID_SOCKET)
98			{
99			#ifdef USE_LCD
100			strcpypgm2ram((char*)LCDText, "Error: Increase MAX_TCP_SOCKETS");
101			LCDUpdate();
102			#endif
103			return;
104			}
105
106			TCPServerState++;
107			break;
108
109			case SM_LISTENING:
110			// See if anyone is connected to us
111			if(!TCPIsConnected(MySocket))
112			{
113			// Zero out the App TX buffer and do nothing
114			AppTXEnd = AppTXStart;
115			return;
116			}
117
118			// Receive any bytes that have been sent to us.
119			if(TCPIsGetReady(MySocket))
120			{
121			// Need to use LED7, disable BUTTON2 functionality on Explorer 16
122			LED7_TRIS = 0;
123
124			while(TCPGet(MySocket, &c))
125			{
126			// Convert the character to uppercase and transmit it back
127			// to the sender
128			if(c >= 'a' && c <= 'z')
129			c -= ('a' - 'A');
130
131			*AppTXEnd++ = c;
132			if(AppTXEnd > AppTXBuffer + sizeof(AppTXBuffer))
133			AppTXEnd = AppTXBuffer;
134			}
135
136			// Restore BUTTON2 functionality on Explorer 16
137			LED7_TRIS = 1;
138			}
139
140			// Transmit any bytes that are waiting to be sent.
141			c = 0x00;
142			while(TCPIsPutReady(MySocket) && (AppTXStart != AppTXEnd))
143			{
144			c = 0xFF;
145			TCPPut(MySocket, *AppTXStart++);
146			if(AppTXStart > AppTXBuffer + sizeof(AppTXBuffer))
147			AppTXStart = AppTXBuffer;
148			}
149			// Flush the packet if we placed anything in the transmit buffer
150			if(c)
151			TCPFlush(MySocket);
152
153
154			break;
155			}
156			}
157
158			#endif //#if defined(STACK_USE_GENERIC_TCP_SERVER_EXAMPLE)