【RL-TCPnet网络教程】第47章 RL-TCPnet之Web服务器的CGI实现

席萌0209 · 发表于 2018-1-12 15:23:22

第47章 RL-TCPnet之Web服务器的CGI实现

本章节为大家讲解RL-TCPnet的CGI脚本实现动态网页，前面第44章讲解了静态网页的设计，本章的动态网页是在静态网页的基础上实现，所以学习本章节前，务必保证已经掌握了静态网页的设计方法。

本章教程含STM32F407开发板和STM32F429开发板。

47.1 初学者重要提示

47.2 CGI函数

47.3 HTTP配置说明（Net_Config.c）

47.4 HTTP调试说明（Net_Debug.c）

47.5 制作HTML和CGI脚本文件

47.6 访问开发板Web服务器的方法

47.7 HTTP_CGI.c文件中接口函数讲解说明

47.8 实验例程说明（RTX）

47.9 总结

47.1 初学者重要提示

1、学习本章节前，务必保证已经学习了第44，45和46章节，如果没有学习就直接学习本章节的话，将比较吃力，特别是CGI相关知识点的理解、网页制作以及工程建立的时候。

2、使用CGI脚本做网页更新时，整个页面都会重新加载，而后面章节学习的Ajax可以做网页局部刷新。

席萌0209 · 发表于 2018-1-12 15:35:23

本帖最后由席萌0209 于 2018-1-12 15:36 编辑

47.2 CGI函数

CGI脚本涉及到以下5个函数：

（1）cgi_func

（2）cgi_process_data

（3）cgi_process_var

（4）http_accept_host

（5）cgx_content_type

关于这5个函数的讲解及其使用方法可以看教程第 3 章 3.4 小节里面说的参考资料 rlarm.chm 文件：

本章节除了讲解以上5个函数外，还需要讲解下面这个函数：http_get_var （这个函数在HTTP函数部分）

关于这些函数注意以下两点：

1、CGI的所有函数都不支持重入，也就是不支持多任务调用。

2、通过CGI脚本就可以实现动态HTML网页了。

47.2.1 函数cgi_func

函数原型：

U16 cgi_func (
U8* env, /* 输入字符串地址 */
U8* buf, /* 输出缓冲区地址 */
U16 buflen, /* 输出缓冲区大小，单位字节*/
U32* pcgi ); /* 指针变量，指向一个不会被改变的变量 */

复制代码

函数描述：

函数cgi_func由RL-TCPnet脚本解析器调用，当解析RL-TCPnet的脚本时（以cgi结尾的脚本文件），输出HTTP响应的动态部分。脚本文件每个以命令c开头的语句，脚本解析器都会调用函数cgi_func。所以用户必须要编写此函数，以便解析和使用脚本文件中的输入字符。

1、第1个参数是CGI脚本的输入字符串地址，函数cgi_func需要这个参数创建动态响应。这个字符串就是CGI脚本文件中以命令c开头的语句中的字符串，字节数是相同的（不含控制字符，仅HTTP代码部分）。

2、第2个参数是输出缓冲区地址，用于写入HTTP响应字符串。

3、第3个参数是输出缓冲区大小，单位字节。

4、第4个参数是指向不会被HTTP服务器更改的变量，因此，用户可以用它存储函数cgi_func连续调用的参数，比如循环计数器、发送字节数、状态缓冲区地址等，亦或者任何其它应用均可。

5、返回值，返回写入到输出缓冲区的字节数。返回值是U16类型的，其中bit15和bit14还可以作为其它用途，而剩余的bit0-bit13表示的最大值是16383，足够表示TCP Socket的MSS最大报文段大小的1460字节。

（1）bit15作为函数cgi_func是否重复调用的标志，如果此位设置为1，表示退出函数后，依然保持参数env, buflen和 pcgi的数值，并再次调用函数cgi_func，而参数buf会根据用户写入到输出缓冲区的字节数进行自动调整。如果此位设置为0，将不再重复调用。

（2）如果bit14设置为1，取消数据包优化（见下面注意事项4），当前数据包立即被发送。如果bit14为0，不执行此操作。

使用这个函数要注意以下问题：

1. 写入到输出缓冲区的代码必须是HTML格式。

2. CGI脚本中的c命令才会触发此函数。

3. 输出缓冲区的大小buflen会有所不同，因为输出缓冲区的大小是由TCP Socket的MSS最大报文段大小协商决定，局域网中一般是1400字节左右，但是也可减小到500字节，甚至更小。

4. 输出缓冲区的不同大小还有一个原因是HTTP Server会尝试优化生成的TCP数据包数，并将再次调用函数cgi_func来使用所有可用的缓冲区。当缓冲区中只有240个或更少的字节空闲时，将停止调用函数cgi_func，然后生成并发送数据包。如果要强制HTTP Server发送数据包，则此函数的返回值bit14置1。

5. 写到输出缓冲区的数据，不可以超过第三个参数buflen的大小，否则会造成内存指针链表的损坏，从而很容易造成系统崩溃。

6. 第1个参数的输入字符串可能包含单字符子命令，以此来告诉cgi_func如何正确的处理脚本。这些子命令没有规则，因此用户可以创建和使用自己的命令。

7. 对于每个HTTP会话，*pcgi（注意，这里是指的指针变量pcgi所指向的存储单元）变量都是独立的，也就是说新创建一个会话，都会有一个独立的*pvar变量。另外，每个会话首次调用函数cgi_func之前都会将变量*pcgi清零（注意，这里是指的指针变量pvar所指向的存储单元清零）。

8. 每次调用函数cgi_func必须更新*pcgi（注意，这里是指的指针变量pcgi所指向的存储单元）的内容，用户可以使用这个4字节变量存储任何格式的数据（官方手册中说的是必须更新，实际上，用不上的话，不用管）。

使用举例：

U16 cgi_func (U8 *env, U8 *buf, U16 buflen, U32 *pcgi) {
U16 len = 0;
switch (env[0]) {
/* Analyze the environment string. It is the script 'c' line starting */
/* at position 2. What you write to the script file is returned here. */
case 'a' :
/* Network parameters - file 'network.cgi' */
..
break;
case 'b':
/* LED control - file 'led.cgi' */
..
break;
case 'c':
/* TCP status - file 'tcp.cgi' */
..
break;
case 'd':
/* System password - file 'system.cgi' */
switch (env[2]) {
case '1':
len = sprintf(buf,&env[4],http_EnAuth ? "Enabled" : "Disabled");
break;
case '2':
len = sprintf(buf,&env[4],http_auth_passw);
break;
}
break;
}
return (len);
}

复制代码

47.2.2 函数cgi_process_data

函数原型：

void cgi_process_data (
U8 code, /* 接收数据缓冲区中的数据类型 */
U8* dat, /* 来自POST方式的字符串地址 */
U16 len ); /* 字符串的字节数 */

复制代码

函数描述：

函数cgi_process_data处理CGI POST方式返回的数据。当用户使用Web浏览器操作POST方式的HTTP表时（如单选按钮、复选框、选择列表等），HTTP服务器会调用此函数。

1、函数cgi_process_data的三个参数与下表的对应关系：

“代码”对应第1个参数code。

“dat指针变量含义”对应第2个参数dat。

“变量len的含义”对应第3个参数len。

使用这个函数要注意以下问题：

1. 仅POST方式才会触发HTTP服务器调用此函数，即METHOD = POST。

<FORM ACTION=index.htm METHOD=POST NAME=CGI>
..
</FORM>

复制代码

2. Web浏览器提供HTTP上传文件的文件名及其路径，而删除文件名中的路径信息是用户的责任。

3. 对于大文件，文件数据将分多次数据包进行接收。数据包的大小取决于TCP的MSS最大报文段大小，一般是1460字节。

4. XML-POST是由webservice application生成的，例如微软的Silverlight。

使用举例：

void cgi_process_data (U8 code, U8 *dat, U16 len) {
/* This function is called by HTTP server to process the returned Data */
/* for the CGI Form POST method. It is called on SUBMIT from the browser. */
/* Parameters: */
/* code - callback context code */
/* 0 = www-url-encoded form data */
/* 1 = filename for file upload (0-terminated string) */
/* 2 = file upload raw data */
/* 3 = end of file upload (file close requested) */
/* 4 = any xml encoded POST data (single or last stream) */
/* 5 = the same as 4, but with more xml data to follow */
/* Use http_get_content_type() to check the content type */
/* dat - pointer to POST received data */
/* len - received data length */
U8 *var;
switch (code) {
case 0:
/* Url encoded form data received. */
break;
case 1:
/* Filename for file upload received as encoded by the browser. */
/* It might contain an absolute path to a file from the sending */
/* host. Open a file for writing. */
return;
case 2:
/* File content data received. Write data to a file. */
/* This function will be called several times with */
/* code 2 when a big file is being uploaded. */
return;
case 3:
/* File upload finished. Close a file. */
return;
case 4:
/* XML encoded content type, last packet. */
// pType = http_get_content_type ();
/* check the content type for CGX file request. */
/* pType is a pointer to a 0-terminated string */
/* For example: text/xml; charset=utf-8 */
return;
case 5:
/* XML encoded as under 4, but with more to follow. */
return;
default:
/* Ignore all other codes. */
return;
}
if (len == 0) {
/* No data or all items (radio, checkbox) are off. */
return;
}
var = (U8 *)alloc_mem (40);
do {
/* Parse all returned parameters. */
dat = http_get_var (dat, var, 40);
if (var[0] != 0) {
if (str_scomp (var, "TICK1=") == __TRUE || str_scomp (var, "pg=") == __TRUE)
{
if (str_scomp (var, "pg=") == __TRUE)
{
LEDControl = 0;
}
if(*(var+9) =='1')
{
LEDControl |= 0x01;
}
else if(*(var+9) =='2')
{
LEDControl |= 0x02;
}
else if(*(var+9) =='3')
{
LEDControl |= 0x04;
}
}
}
}while (dat);
free_mem ((OS_FRAME *)var);
if(LEDControl & 0x01)
{
bsp_LedOn(1);
}
else
{
bsp_LedOff(1);
}
if(LEDControl & 0x02)
{
bsp_LedOn(2);
}
else
{
bsp_LedOff(2);
}
if(LEDControl & 0x04)
{
bsp_LedOn(3);
}
else
{
bsp_LedOff(3);
}
}

复制代码

47.2.3 函数cgi_process_var

函数原型：

void cgi_process_var (
U8* qs ); /* Pointer to QUERY_STRING returned from the GET method. */

复制代码

函数描述：

函数cgi_process_var处理从CGI GET方式返回的环境变量QUERY_STRING（就是个字符串），当用户使用Web浏览器操作GET方式的HTTP表单时（如单选按钮、复选框、选择列表等），HTTP服务器会调用此函数。

1、第1个参数是环境变量QUERY_STRING的地址，实际就是个字符串地址。

使用这个函数要注意以下问题：

1. 环境变量QUERY_STRING以空格结尾，即此字符串以空格结尾。

2. 仅GET方式才会触发HTTP服务器调用此函数，即METHOD = GET。

<FORM ACTION=index.htm METHOD=GET NAME=CGI>
..
</FORM>

复制代码

使用举例：

void cgi_process_var (U8 *qs) {
/* This function is called by HTTP server to process the Querry_String */
/* for the CGI Form GET method. It is called on SUBMIT from the browser. */
/*.The Querry_String.is SPACE terminated. */
U8 *var;
int s[4];
var = (U8 *)alloc_mem (40);
do {
/* Loop through all the parameters. */
qs = http_get_var (qs, var, 40);
/* Check the returned string, 'qs' now points to the next. */
if (var[0] != 0) {
/* Returned string is non 0-length. */
if (str_scomp (var, "ip=") == __TRUE) {
/* My IP address parameter. */
sscanf ((const char *)&var[3], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.IpAdr[0] = s[0];
LocM.IpAdr[1] = s[1];
LocM.IpAdr[2] = s[2];
LocM.IpAdr[3] = s[3];
}
else if (str_scomp (var, "msk=") == __TRUE) {
/* Net mask parameter. */
sscanf ((const char *)&var[4], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.NetMask[0] = s[0];
LocM.NetMask[1] = s[1];
LocM.NetMask[2] = s[2];
LocM.NetMask[3] = s[3];
}
else if (str_scomp (var, "gw=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[3], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.DefGW[0] = s[0];
LocM.DefGW[1] = s[1];
LocM.DefGW[2] = s[2];
LocM.DefGW[3] = s[3];
}
else if (str_scomp (var, "pdns=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[5], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.PriDNS[0] = s[0];
LocM.PriDNS[1] = s[1];
LocM.PriDNS[2] = s[2];
LocM.PriDNS[3] = s[3];
}
else if (str_scomp (var, "sdns=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[5], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.SecDNS[0] = s[0];
LocM.SecDNS[1] = s[1];
LocM.SecDNS[2] = s[2];
LocM.SecDNS[3] = s[3];
}
}
}while (qs);
free_mem ((OS_FRAME *)var);
}

复制代码

47.2.4 函数http_accept_host

函数原型：

BOOL http_accept_host (
U8* rem_ip, /* 远程设备IP地址 */
U16 rem_port ); /* 远程设备端口号 */

复制代码

函数描述：

函数http_accept_host用于设置是否接受远程连接，用户可以通过此函数选择允许哪些设备可以连接，哪些不可以连接。

1、第1个参数是远程设备的IP地址。

2、第2个参数是远程设备的端口号。

3、返回值，返回__TRUE表示允许此远程连接，返回__FALSE表示不允许此远程连接。

使用这个函数要注意以下问题：

1. 此函数是可选的，如果大家在工程中没有写这个函数，RL-TCPnet库会调用默认的函数，允许所有的连接请求，如果在工程中写了此函数，会执行新写的这个函数。

使用举例：

BOOL http_accept_host (U8 *rem_ip, U16 rem_port) {
if (rem_ip[0] == 192 &&
rem_ip[1] == 168 &&
rem_ip[2] == 1 &&
rem_ip[3] == 1) {
/* 接受此连接. */
return (__TRUE);
}
/* 拒绝此连接 */
return (__FALSE);
}

复制代码

47.2.5 函数cgx_content_type

函数原型：

U8 *cgx_content_type (void);

复制代码

函数描述：

函数cgx_content_type允许用户对Silverlight Web serviceapplication请求的响应中更改Content-Type HTML头。该函数返回一个指向新的Content-Type HTML头的指针。使用了此函数，将覆盖RL-TCPnet库中的默认Content-Type头。这个Content-Type头用于cgx脚本响应，默认的响应如下：

Content-Type: text/xml\r\n

复制代码

如果大家在工程中没有写函数cgx_content_type，RL-TCPnet库会调用上面默认的响应，如果在工程中写了此函数，会执行新写的这个函数。另外，如果这个函数返回值为空指针的话，也是执行默认的响应。

使用这个函数要注意以下问题：

1. 如果大家在工程中没有写函数cgx_content_type，RL-TCPnet库会调用上面默认的响应。

使用举例：

U8 *cgx_content_type (void) {
/* User configurable Content-type for CGX script files. If this function */
/* is missing, or returns a NULL pointer, the default 'text/xml' content */
/* type from the library is used for xml-script file types. */
return ("text/xml; charset=utf-8");
}

复制代码

47.2.6 函数http_get_var

函数原型：

U8* http_get_var (
U8* env, /* 环境变量字符串地址 */
void* ansi, /* 存储环境字符串的缓冲地址 */
U16 maxlen ); /* 存储环境变量字符串的缓冲区大小，单位字节 */

复制代码

函数描述：

函数http_get_var处理包含环境变量的字符串env，并标识第一个变量的结尾。函数获取第一个变量及其数值后以ANSI格式存储到指针变量ansi所指向的存储单元中。

1、第1个参数是环境变量字符串地址。

2、第2个参数存储环境变量字符串的缓冲地址。

3、第3个参数指定存储环境变量字符串的缓冲大小，如果解析的环境变量字符串超过此大小，则该函数会仅存储maxlen大小的字符串。

4、返回值，返回环境变量字符串中下一个变量的地址，如果没有要处理的环境变量了，则返回NULL。

使用这个函数要注意以下问题：

1. 函数http_get_var可以处理GET和POST方式的环境变量。

2. 此函数在HTTP_CGI.c文件中调用。

3. Web浏览器使用环境变量来返回HTTP输入表单（如单选按钮、复选框、选择列表等）中用户输入的信息给Web服务器。

使用举例：

void cgi_process_var (U8 *qs) {
/* This function is called by HTTP server to process the Querry_String */
/* for the CGI Form GET method. It is called on SUBMIT from the browser. */
/*.The Querry_String.is SPACE terminated. */
U8 *var;
int s[4];
var = (U8 *)alloc_mem (40);
do {
/* Loop through all the parameters. */
qs = http_get_var (qs, var, 40);
/* Check the returned string, 'qs' now points to the next. */
if (var[0] != 0) {
/* Returned string is non 0-length. */
if (str_scomp (var, "ip=") == __TRUE) {
/* My IP address parameter. */
sscanf ((const char *)&var[3], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.IpAdr[0] = s[0];
LocM.IpAdr[1] = s[1];
LocM.IpAdr[2] = s[2];
LocM.IpAdr[3] = s[3];
}
else if (str_scomp (var, "msk=") == __TRUE) {
/* Net mask parameter. */
sscanf ((const char *)&var[4], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.NetMask[0] = s[0];
LocM.NetMask[1] = s[1];
LocM.NetMask[2] = s[2];
LocM.NetMask[3] = s[3];
}
else if (str_scomp (var, "gw=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[3], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.DefGW[0] = s[0];
LocM.DefGW[1] = s[1];
LocM.DefGW[2] = s[2];
LocM.DefGW[3] = s[3];
}
else if (str_scomp (var, "pdns=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[5], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.PriDNS[0] = s[0];
LocM.PriDNS[1] = s[1];
LocM.PriDNS[2] = s[2];
LocM.PriDNS[3] = s[3];
}
else if (str_scomp (var, "sdns=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[5], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.SecDNS[0] = s[0];
LocM.SecDNS[1] = s[1];
LocM.SecDNS[2] = s[2];
LocM.SecDNS[3] = s[3];
}
}
}while (qs);
free_mem ((OS_FRAME *)var);
}

复制代码

席萌0209 · 发表于 2018-1-12 15:44:38

47.3 HTTP配置说明（Net_Config.c）

（本章节配套例子的配置与本小节的说明相同）

RL-TCPnet的配置工作是通过配置文件Net_Config.c实现。在MDK工程中打开文件Net_Config.c，可以看到下图所示的工程配置向导：

RL-TCPnet要配置的选项非常多，我们这里把几个主要的配置选项简单介绍下。

System Definitions

（1）Local Host Name

局域网域名。

这里起名为armfly，使用局域网域名限制为15个字符。

（2）Memory Pool size

参数范围1536-262144字节。

内存池大小配置，单位字节。另外注意一点，配置向导这里显示的单位是字节，如果看原始定义，MDK会做一个自动的4字节倍数转换，比如我们这里配置的是8192字节，那么原始定义是#define MEM_SIZE 2048，也就是8192/4 = 2048。

（3）Tick Timer interval

可取10，20，25，40，50，100，200，单位ms。

系统滴答时钟间隔，也就是网络协议栈的系统时间基准，默认情况下，取值100ms。

Ethernet Network Interface

以太网接口配置，勾选了此选项就可以配置了，如果没有使能DHCP的话，将使用这里配置的固定IP。

（1）MAC Address

局域网内可以随意配置，只要不跟局域网内其它设备的MAC地址冲突即可。

（2）IP Address

IP地址。

（3）Subnet mask

子网掩码。

（4）Default Gateway

默认网关。

Ethernet Network Interface

以太网接口配置，这个配置里面还有如下两项比较重要的配置需要说明。

（1）NetBIOS Name Service

NetBIOS局域网域名服务，这里打上对勾就使能了。这样我们就可以通过前面配置的Local Host Name局域网域名进行访问，而不需要通过IP地址访问了。

（2）Dynaminc Host Configuration

即DHCP，这里打上对勾就使能了。使能了DHCP后，RL-TCPnet就可以从外接的路由器上获得动态IP地址。

UDP Sockets

UDP Sockets配置，打上对勾就使能了此项功能

（1）Number of UDP Sockets

用于配置可创建的UDP Sockets数量，这里配置了5个。

范围1 – 20。

TCP Sockets

TCP Sockets配置，打上对勾就使能了此项功能

（1）Number of TCP Sockets

用于配置可创建的TCP Sockets数量。

（2）Number of Retries

范围0-20。

用于配置重试次数，TCP数据传输时，如果在设置的重试时间内得不到应答，算一次重试失败，这里就是配置的最大重试次数。

（3）Retry Timeout in seconds

范围1-10，单位秒。

重试时间。如果发送的数据在重试时间内得不到应答，将重新发送数据。

（4）Default Connect Timeout in seconds

范围1-600，单位秒。

用于配置默认的保持连接时间，即我们常说的Keep Alive时间，如果时间到了将断开连接。常用于HTTP Server，Telnet Server等。

（5）Maximum Segment Size

范围536-1460，单位字节。

MSS定义了TCP数据包能够传输的最大数据分段。

（6）Receive Window Size

范围536-65535，单位字节。

TCP接收窗口大小。

HTTP Server

HTTP配置，打上对勾就使能了此项功能

（1）Number of HTTP Sessions

同时可以连接的会话个数，即可以连接的HTTP客户端个数。

范围1-10。

（2）Port Number

HTTP服务器的监听端口号，一般情况下Web服务器的端口号均为80。

范围1-65535。

（3）Server-Id header

HTTPServer header，如果用户没有配置此选项，将使用默认的header，如果配置了，将使用用户配置的。（实际测试发现，这个选项貌似没什么用）

（4）Enable User Authentication

用户认证，如果此选项打上对勾的话，将使能用户认证。

AuthenticationRealm 认证领域。

AuthenticationUsername 用户名。

AuthenticationPassword 用户密码。

47.4 HTTP调试说明（Net_Debug.c）

（重要说明，RL-TCPnet的调试是通过串口打印出来的）

RL-TCPnet的调试功能是通过配置文件Net_Debug.c实现。在MDK工程中打开文件Net_Debug.c，可以看到下图所示的工程配置向导：

Print Time Stamp

勾选了此选项的话，打印消息时，前面会附带时间信息。

其它所有的选项

默认情况下，所有的调试选项都关闭了，每个选项有三个调试级别可选择，这里我们以HTTP Server Debug为例，点击下拉列表，可以看到里面有Off，Errors only和Fulldebug三个调试级别可供选择，每个调试选项里面都是这三个级别。

Off：表示关闭此选项的调试功能。

Errorsonly：表示仅在此选项出错时，将其错误打印出来。

Fulldebug：表示此选项的全功能调试。

具体测试，我们这里就不做了，大家可以按照第11章讲解的调试方法进行测试。

席萌0209 · 发表于 2018-1-12 15:54:38

47.5 制作HTML和CGI脚本文件

下面要制作的网页是在前面第44章的基础上实现的，所以第44章节的网页制作方法务必要掌握。我们这里实现一个如下的网页效果：

点击网页中的“LED控制”后，弹出如下的页面：

对比一下第44章制作的网页，主页面上多了一个小房子一样的图标（用于返回主页面）和一个LED控制链接。这两个都比较好实现，看下面代码中置红的部分：

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset= GBK" />
<title>安富莱嵌入式网络服务器</title>
</head>
<body>
<br />
<div align="center">
<table style="border: 1px solid #000080" height="600" cellspacing="0" cellpadding="0" width="800">
<tr bgcolor="#EEEEEE">
<td style="border-bottom: 1px solid #000080" valign="bottom" nowrap="nowrap" height="90" margin="50" width="700">
<h1 align="center">
<font face="verdana" color="#006699">安富莱嵌入式网络服务器</font>
<a href="index.htm">
<img border="0" src="home.png" align="center" width="31" height="29">
</a>
</h1>
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td valign="top" height="510" width="800">
<h2 align="center">
<b>
<font face="verdana" color="#003366">安富莱电子微信公众号</font>
</b>
</h2>
<p align="center">
<img border="0" src="weixin.jpg" width="200" height="200"/>
</p>
<p align="center" leftmargin="10">
<font face="Verdana" size="3">基于RL-TCPnet网络协议栈的嵌入式Web服务器</font>
</p>
<p align="center">
<a href="/led.cgi">LED控制</a>
</a>
</p>
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td width="800">
<p align="center">
<font face="Verdana" size="3">Copyright © 2017-2020
<a href="http://www.armfly.com/">武汉安富莱电子有限公司</a> 版权所有.</font>
</p>
</td>
</tr>
</table>
</div>
</body>
</html>

复制代码

主页面做好之后，就是子页面的设计了。这个子页面是我们本章节的重点。

47.5.1 制作子页面HTML文件

Notepad++的设置就不再赘述了，前面第44章已经详细讲解，我们这里的编码字符集依然要选择GB2312。子页面的HTML代码如下：

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset= GBK" />
<title>安富莱嵌入式网络服务器</title>
</head>
<body>
<br />
<div align="center">
<table style="border: 1px solid #000080" height="600" cellspacing="0" cellpadding="0" width="800">
<tr bgcolor="#EEEEEE">
<td style="border-bottom: 1px solid #000080" valign="bottom" nowrap="nowrap" height="90" width="800">
<h1 align="center">
<font face="verdana" color="#006699">安富莱嵌入式网络服务器</font>
<a href="index.htm">
<img border="0" src="home.png" align="center" width="31" height="29" />
</a></h1>
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td valign="top" height="510" width="800">
<h2 align="center">
<br />LED控制</h2>
<p align="center">
<font size="3">利用CGI POST方式控制LED1，LED3和LED4，其中LED2已经
被用作系统指示灯。选中Checkbox控件点亮相应LED，否则关闭。
<br />
<br /></font>
</p>
<form action="beep.cgi" method="post" name="form1">
<input type="hidden" value="led" name="pg" />
<table border="0" width="90%" align="center">
<tr bgcolor="#AACCFF">
<th width="40%">
<font size="3">选项</font>
</th>
<th width="60%">设置</th>
</tr>
<tr>
<td>
<img src="pabb.gif" />LED控制:</td>
<td>
<table>
<tr valign="middle">
<td>
<input type="checkbox" name="TICK1" value="LED1" onchange="submit();" /> LED1
<br />
<input type="checkbox" name="TICK1" value="LED2" onchange="submit();" /> LED2
<br />
<input type="checkbox" name="TICK1" value="LED3" onchange="submit();" /> LED3
<br /></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr bgcolor="#EEEEEE">
<td>
<p align="center">
<font face="Verdana" size="3">Copyright ɠ2017-2020
<a href="http://www.armfly.com/">武汉安富莱电子有限公司</a> 版权所有.</font>
</p>
</td>
</tr>
</table>
</div>
</body>
</html>

复制代码

实际测试显示效果：

显示效果也没有问题了，现在要做的就是将这个设计好的子页面修改成CGI脚本文件，因为页面里面的复选框控制开发板的LED灯是需要CGI脚本来实现。

47.5.2 将子页面HTML文件修改为CGI脚本文件

修改前，建议先把这个子页面的HTML文件备份一个出来，方便我们以后调试升级，因为修改成CGI脚本文件后，再修改回来就稍麻烦了。

给子页面HTML代码前面都加上脚本命令，具体如下：

t <html> ----------（1）
t <head>
t <meta http-equiv="Content-Type" content="text/html; charset= GBK" />
t <title>安富莱嵌入式网络服务器</title>
t </head>
t <body>
t <br />
t <div align="center">
t <table style="border: 1px solid #000080" height="600" cellspacing="0" cellpadding="0" width="800">
t <tr bgcolor="#EEEEEE">
t <td style="border-bottom: 1px solid #000080" valign="bottom" nowrap="nowrap" height="90" width="800">
t <h1 align="center">
t <font face="verdana" color="#006699">安富莱嵌入式网络服务器</font>
t <a href="index.htm">
t <img border="0" src="home.png" align="center" width="31" height="29">
t </a>
t </h1>
t </td>
t </tr>
t <tr bgcolor="#EEEEEE">
t <td valign="top" height="510" width="800">
t <h2 align="center">
t <br />LED控制</h2>
t <p align="center">
t <font size="3">利用CGI POST方式控制LED1，LED3和LED4，其中LED2已经
t 被用作系统指示灯。选中Checkbox控件点亮相应LED，否则关闭。
t <br />
t <br /></font>
t </p>
t <form action="led.cgi" method="post" name="form1"> ----------（2）
t <input type="hidden" value="led" name="pg" /> ----------（3）
t <table border="0" width="90%" align="center">
t <tr bgcolor="#AACCFF">
t <th width="40%">
t <font size="3">选项</font>
t </th>
t <th width="60%">设置</th>
t </tr>
t <tr>
t <td>
t <img src="pabb.gif" />LED控制:</td>
t <td>
t <table>
t <tr valign="middle">
t <td>
#用OnClick或者OnChange没有区别 ----------（4）
c T11 <input type=checkbox name=TICK1 value=LED1 OnChange="submit();" %s> LED1<br> ----------（5）
c T12 <input type=checkbox name=TICK1 value=LED2 OnChange="submit();" %s> LED2<br> ----------（6）
c T14 <input type=checkbox name=TICK1 value=LED3 OnChange="submit();" %s> LED3<br> ----------（7）
t </td>
t </tr>
t </table>
t </td>
t </tr>
t </table>
t </form>
t </td>
t </tr>
t <tr bgcolor="#EEEEEE">
t <td>
t <p align="center">
t <font face="Verdana" size="3">Copyright © 2017-2020
t <a href="http://www.armfly.com/">武汉安富莱电子有限公司</a> 版权所有.</font>
t </p>
t </td>
t </tr>
t </table>
t </div>
t </body>
t </html>
. ----------（8）

复制代码

1. 大部分HTML语句都是以CGI脚本命令t开头，并且每行语句的长度不可以超过120个字符。

2. 这句比较重要，是我们之前一直强调的HTTP表单，这里采用POST方式。

3. 这里是一个hidden隐藏类型的输入表单，既然是隐藏就是什么也不会显示到网页上，但是会有消息发给POST方式的消息处理函数cgi_process_data。这里加入隐藏类型输入表单有一个很重要的作用，当用户选择的复选框全部取消选择后，POST方式的消息处理函数cgi_process_data是不会执行的，所以加入此输入表单，方便控制。详见本章47.7小节的解释。

4. 这里用到了CGI脚本注释命令#，不参与实际代码。

5. 这里就是一个以CGI脚本命令c开头的命令行，并且含控制字符T11。实现了一个复选框输入表单，用户点击了网页上面的复选框后将触发POST方式的消息处理函数cgi_process_data，LED的亮灭控制就是在这个函数里面实现。另外，由于这个是CGI脚本的c命令，HTTP服务器调用完毕函数cgi_process_data后，还会调用函数cgi_func进行脚本解析，在这个函数里面实现复选框当前状态的反馈，返回的是HTML格式代码。具体这两个函数实现的代码，详见本章47.7小节的解释。

6. 同上，控制字符是T14。

7. 同上，控制字符是T18。

8. 脚本文件结束字符，这个点号一定不能省略。

HTML文件中添加完毕CGI脚本命令后，就可以将这个HTML文件另存为led.cgi。注意，后缀名一定要是cgi。

1、点击菜单上的文件->另存为

2、保存时，文件名直接填led.cgi即可

3、至此，网页设计所需的四个文件就都准备好了

47.5.3 添加HTML和CGI文件到MDK

添加方法和网页相关文件的存放路径位置已经在前面第44章节详细进行了说明，我们这里不再赘述。如果还没有掌握好，务必要返回地44章学习如何添加。

1、添加index.htm和led.cgi文件到MDK工程。

添加led.cgi的时候也选择下面这种类型：

2、新建并添加一个Web.inp文件到MDK工程。

这个文件要设置的地方较多，详情看第44章。

文件Web.inp填写的内容如下：

weixin.jpg,
led.cgi,
home.png,
index.htm to Web.c nopr root(Web)

复制代码

这里是将文件weixin.jpg，led.cgi，home.png和index.htm通过FCARM命令转换后存到Web.c文件里面。

3、添加HTTP_CGI.c文件。

最后还有一个HTTP_CGI.c文件，这个文件也要添加的MDK中，此文件在MDK4.74安装目录：C:\Keil_v474\ARM\RL\TCPnet\User里面。我们这里将其复制到工程目录：\RL-ARM\RL-TCPnet里面了。用户添加此文件到MDK工程中后，要根据自己设计的网页来修改此文件。具体此文件的实现看47.7小节。

HTTP_CGI.c文件也添加到MDK工程后：

全编译后，将生成的Web.c文件（关于此文件的添加和相关问题看第44章）也添加进来：

这个Web.c文件务必要添加进来，否则会出现Web服务器网页无法访问的情况：

最后，下载程序到开发板之前，最好再全编译一遍，防止Web.c文件中的网页内容没有参与编译。

席萌0209 · 发表于 2018-1-12 16:00:07

47.6 访问开发板Web服务器的方法

（强烈推荐将网线接到路由器或者交换机上面测试，因为已经使能了DHCP，可以自动获取IP地址）

用户可在浏览器中直接输入IP地址访问Web服务器，跟大家访问路由器后台一样，也可以通过NetBIOS Name直接访问，即http://armfly/，这样就无需查看具体IP了。下面我们两种方式都说下。

47.6.1 输入NetBIOS Name访问

1、浏览器输入地址http://armfly/，点击键盘回车键（点击回车后，前面的http://会自动隐藏了）。

2、用户名输入admin，密码输入123456，点击“登录”按钮即可访问：

3、登录Web服务器后的效果如下：

4、点击页面上的“LED控制”超链接，进入LED控制页面。

在LED控制页面里面可以控制开发板上LED的亮灭了。选中复选框点亮LED，取消选中，关闭LED。

47.6.2 输入IP地址访问

访问Web服务器前，要先获取板子的IP地址。由于已经使能了DHCP，板子可以自动获取IP地址，而且使能了局域网域名NetBIOS，用户只需在电脑端ping armfly就可以获取板子的IP地址，获取方法如下：

（1）WIN+R组合键打开“运行”窗口，输入cmd。

（2）弹出的命令窗口中，输入ping armfly。

（3）输入ping armfly后，回车。

获得IP地址是192.168.1.7。

1、浏览器输入192.168.1.7，点击键盘回车键（IP地址前面加不加http://都没有关系，不加的话，浏览器会自动加上）。

2、用户名输入admin，密码输入123456，点击“登录”按钮即可访问：

3、登录Web服务器后的效果如下：

4、点击页面上的“LED控制”超链接，进入LED控制页面。

在LED控制页面里面可以控制开发板上LED的亮灭了。选中复选框点亮LED，取消选中，关闭LED。

至此，访问开发板Web服务器的方法已经介绍完毕。

席萌0209 · 发表于 2018-1-12 16:05:17

47.7 HTTP_CGI.c文件中接口函数讲解说明

这里对HTTP_CGI.c中的函数cgi_process_data和cgi_func做一个说明，方便大家更好的理解。

47.7.1 函数cgi_process_data

这个函数主要处理POST方式发来的消息。

/*--------------------------- cgi_process_data ------------------------------*/
void cgi_process_data (U8 code, U8 *dat, U16 len) {
/* This function is called by HTTP server to process the returned Data */
/* for the CGI Form POST method. It is called on SUBMIT from the browser. */
/* Parameters: */
/* code - callback context code */
/* 0 = www-url-encoded form data */
/* 1 = filename for file upload (0-terminated string) */
/* 2 = file upload raw data */
/* 3 = end of file upload (file close requested) */
/* 4 = any xml encoded POST data (single or last stream) */
/* 5 = the same as 4, but with more xml data to follow */
/* Use http_get_content_type() to check the content type */
/* dat - pointer to POST received data */
/* len - received data length */
U8 *var;
switch (code) {
case 0:
/* Url encoded form data received. */
break;
case 1:
/* Filename for file upload received as encoded by the browser. */
/* It might contain an absolute path to a file from the sending */
/* host. Open a file for writing. */
return;
case 2:
/* File content data received. Write data to a file. */
/* This function will be called several times with */
/* code 2 when a big file is being uploaded. */
return;
case 3:
/* File upload finished. Close a file. */
return;
case 4:
/* XML encoded content type, last packet. */
// pType = http_get_content_type ();
/* check the content type for CGX file request. */
/* pType is a pointer to a 0-terminated string */
/* For example: text/xml; charset=utf-8 */
return;
case 5:
/* XML encoded as under 4, but with more to follow. */
return;
default:
/* Ignore all other codes. */
return;
}
if (len == 0) {
/* No data or all items (radio, checkbox) are off. */
return;
}
var = (U8 *)alloc_mem (40);
do {
/* Parse all returned parameters. */
dat = http_get_var (dat, var, 40);
if (var[0] != 0) {
if (str_scomp (var, "TICK1=") == __TRUE || str_scomp (var, "pg=") == __TRUE) //--------(1)
{
if (str_scomp (var, "pg=") == __TRUE) //--------(2)
{
LEDControl = 0;
}
if(*(var+9) =='1') //--------(3)
{
LEDControl |= 0x01;
}
else if(*(var+9) =='2') //--------(4)
{
LEDControl |= 0x02;
}
else if(*(var+9) =='3') //--------(5)
{
LEDControl |= 0x04;
}
}
}
}while (dat);
free_mem ((OS_FRAME *)var);
//LED Control
if(LEDControl & 0x01) //--------(6)
{
bsp_LedOn(1);
}
else
{
bsp_LedOff(1);
}
if(LEDControl & 0x02)
{
bsp_LedOn(2);
}
else
{
bsp_LedOff(2);
}
if(LEDControl & 0x04)
{
bsp_LedOn(3);
}
else
{
bsp_LedOff(3);
}
}

复制代码

1. 先说下这里为什么是判断接收到的消息中是否有字符串“TICK1=”和“pg=”，因为我们前面制作的led.cgi脚本文件中的HTTP输入表单，首先是隐藏表单：

t <input type="hidden" value="led" name="pg" />

复制代码

只要用户在浏览器上面改变复选框的状态，函数cgi_process_data就会接收到字符串“pg=led”的消息。所以这里有个“pg=”的字符串判断。

而“TCIK1=”是由复选框提供的：

c T11 <input type=checkbox name=TICK1 value=LED1 OnChange="submit();" %s> LED1<br>
c T12 <input type=checkbox name=TICK1 value=LED2 OnChange="submit();" %s> LED2<br>
c T14 <input type=checkbox name=TICK1 value=LED3 OnChange="submit();" %s> LED3<br>

复制代码

只要用户选中了复选框，就会收到字符串消息，比如选中LED1就会收到字符串“TICK1=LED1”，选中LED2就会收到字符串“TICK1=LED2”，选中LED3就会收到字符串“TICK1=LED3”，而取消选中或者没有选中的复选框是不会收到字符串消息的，这点要特别注意。正是因为这个原因，才专门添加了一个隐藏表单，因为当所有选项都取消选中后，函数cgi_process_data并不会收到字符串消息，而有了隐藏表单后就会收到“pg=led”消息了，从而可以有效控制LED的亮灭。

2. 收到“pg=”的字符串，设置全局变量LEDControl = 0，即所有LED1，LED2和LED3关闭。这个全局变量的bit0控制LED1，bit1控制LED2，bit2控制LED3。置1打开LED，清零关闭LED。

3. 这里的“*（var+9）”就是“TICK1=LED1”字符串的最后一个字符，通过判断它来查看LED1复选框是否被选中了。

4. 同上，查看LED2复选框是否被选中。

5. 同上，查看LED3复选框是否被选中。

6. LED亮灭控制要放在do while循环检测的外面实现，不可放在循环检测里面，因为消息还没有处理完毕。

说完了这些细节，我们这里再说下这个函数的执行流程。首先，对于接收到的POST消息，程序里面通过一个do while语句进行循环检测，直到消息里面的所有字符串全部检测了出来。只要用户改变了复选框的状态，就会收到“pg=led”字符串，这个字符串是最先被检测出来的，如果有复选框处于选中状态，对应的字符串也会被检测出来，比如LED1和LED2都处于选中状态，那么就会检测出TICK1=LED1”和TICK1=LED2”，而取消选中和没有选中的复选框是不会检测到字符串消息。

对于这个执行流程，建议大家通过在程序中加上串口打印，实际观察下，以便有个深入的认识。

47.7.2 函数cgi_func

这个函数主要是脚本命令的解析和处理。

/*--------------------------- cgi_func --------------------------------------*/
U16 cgi_func (U8 *env, U8 *buf, U16 buflen, U32 *pcgi) {
/* This function is called by HTTP server script interpreter to make a */
/* formated output for 'stdout'. It returns the number of bytes written */
/* to the output buffer. Hi-bit of return value (len is or-ed with 0x8000)*/
/* is a repeat flag for the system script interpreter. If this bit is set */
/* to 1, the system will call the 'cgi_func()' again for the same script */
/* line with parameter 'pcgi' pointing to a 4-byte buffer. This buffer */
/* can be used for storing different status variables for this function. */
/* It is set to 0 by HTTP Server on first call and is not altered by */
/* HTTP server for repeated calls. This function should NEVER write more */
/* than 'buflen' bytes to the buffer. */
/* Parameters: */
/* env - environment variable string */
/* buf - HTTP transmit buffer */
/* buflen - length of this buffer (500-1400 bytes - depends on MSS) */
/* pcgi - pointer to session local buffer used for repeated loops */
/* This is a U32 variable - size is 4 bytes. Value is: */
/* - on 1st call = 0 */
/* - 2nd call = as set by this function on first call */
U32 len = 0;
unsigned int mask;
switch (env[0]) { //--------(1)
/* Analyze the environment string. It is the script 'c' line starting */
/* at position 2. What you write to the script file is returned here. */
case 'T' :
if(env[1] =='1') //--------(2)
{
mask = env[2]-'0'; //--------(3)
len = sprintf((char *)buf,(const char *)&env[4],(LEDControl& mask) ? "checked" : "");//----(4)
}
break;
}
return ((U16)len);
}

复制代码

在前面的led.cgi脚本文件中，三个复选框都是在一个输入表单中：

t <form action="led.cgi" method="post" name="form1">
………
c T11 <input type=checkbox name=TICK1 value=LED1 OnChange="submit();" %s> LED1<br>
c T12 <input type=checkbox name=TICK1 value=LED2 OnChange="submit();" %s> LED2<br>
c T14 <input type=checkbox name=TICK1 value=LED3 OnChange="submit();" %s> LED3<br>
………
t </form>

复制代码

所以，有一个复选框的状态变化，就会触发HTTP服务器调用三次cgi_func函数进行解析，并返回复选框的状态。

1. 这里是判断接收到的环境变量字符串的第一个字符，也就是我们在复选框输入表单中设置的控制字符T11，T12和T14。

2. 判断控制字符的第2个字符‘1’。

3. 求出控制字符的第3个字符实际数值，也就是将字符转换成数值。对于复选框1会求出数值1，复选框2会求出数值2，复选框3会求出数值4。求出这些数值方便我们下一步操作。

4. 这一步比较关键了，我们这里详细解释下，HTTP服务器调用cgi_func函数解析第一个复选框时，函数中环境变量env的完整字符串就是：

T11 <input type=checkbox name=TICK1 value=LED1 OnChange="submit();" %s> LED1<br>

复制代码

从这里可以看出env[0]对应的字符‘T’，env[1]对应的字符‘1’，env[2]对应的字符‘1’，env[3]对应的是个空格，从env[4]就是HTML格式的代码了。这样sprintf语句就变成了：

len = sprintf ((char *) buf,
<input type=checkbox name=TICK1 value=LED1 OnChange="submit();" %s> LED1<br> ,
(LEDControl& mask) ? "checked" : "");

复制代码

如果复选框选中了，那么buf中的字符串就是：

<input type=checkbox name=TICK1 value=LED1 OnChange="submit();" checked> LED1<br>

复制代码

这个HTML代码返回给用户浏览器就是复选框被选中的效果：

如果复选框未选择，那么buf中的字符串就是：

<input type=checkbox name=TICK1 value=LED1 OnChange="submit();" > LED1<br>

复制代码

这个HTML代码返回给用户浏览器就是复选框未选中的效果：

第2个和第3个复选框的解析过程跟第1个是一样的。对于这个函数，建议大家加入一个串口打印，打印出env和buf两个字符串，方便大家更好的理解cgi解析。

席萌0209 · 发表于 2018-1-12 16:15:16

47.8 实验例程说明（RTX）

47.8.1 STM32F407开发板实验

配套例子：

V5-1066_RL-TCPnet实验_WebServer之CGI实现动态网页（RTX）

实验目的：

1. 学习CGI脚本实现动态网页制作方法和RL-TCPnet的Web服务器实现。

实验内容：

1. 强烈推荐将网线接到路由器或者交换机上面测试，因为已经使能了DHCP，可以自动获取IP地址。

2. 用户可在浏览器中直接输入IP地址访问Web服务器，跟大家访问路由器后台一样，也可以通过NetBIOS局域网域名直接访问，即http://armfly/，这样就无需查看具体IP了。

3. Web服务器的用户名admin，密码123456。

4. 例子中利用CGI脚本实现了一个Web浏览器中通过复选框控制LED亮灭的功能。

5. 关于网页的制作和Web服务器的测试方法，务必看本例子配套的教程，有详细讲解！！！

网页制作：

详见本章节47.5小节。

配置向导文件设置（Net_Config.c）：

详见本章节47.3小节。

调试文件设置（Net_Debug.c）：

详见本章节47.4小节。

Web服务器访问效果：

详见本章节47.6小节。

RTX配置：

RTX配置向导详情如下：

Task Configuration

（1）Number of concurrent running tasks

允许创建6个任务，实际创建了如下5个任务：

AppTaskUserIF任务：按键消息处理。

AppTaskLED任务：LED闪烁。

AppTaskMsgPro任务：按键检测。

AppTaskTCPMain任务：RL-TCPnet测试任务。

AppTaskStart任务：启动任务，也是最高优先级任务，这里实现RL-TCPnet的时间基准更新。

（2）Number of tasks with user-provided stack

创建的5个任务都是采用自定义堆栈方式。

（3）Run in privileged mode

设置任务运行在非特权级模式。

RTX任务调试信息：

程序设计：

任务栈大小分配：

staticuint64_t AppTaskUserIFStk[1024/8]; /* 任务栈 */

staticuint64_t AppTaskLEDStk[1024/8]; /* 任务栈 */

staticuint64_t AppTaskMsgProStk[1024/8]; /* 任务栈 */

staticuint64_t AppTaskTCPMainStk[4096/8]; /* 任务栈 */

staticuint64_t AppTaskStartStk[1024/8]; /* 任务栈 */

将任务栈定义成uint64_t类型可以保证任务栈是8字节对齐的，8字节对齐的含义就是数组的首地址对8求余等于0。如果不做8字节对齐的话，部分C语言库函数、浮点运算和uint64_t类型数据运算会出问题。

系统栈大小分配：

RTX初始化：

/*
*********************************************************************************************************
* 函数名: main
* 功能说明: 标准c程序入口。
* 形参: 无
* 返回值: 无
*********************************************************************************************************
*/
int main (void)
{
/* 初始化外设 */
bsp_Init();
/* 创建启动任务 */
os_sys_init_user (AppTaskStart, /* 任务函数 */
5, /* 任务优先级 */
&AppTaskStartStk, /* 任务栈 */
sizeof(AppTaskStartStk)); /* 任务栈大小，单位字节数 */
while(1);
}

复制代码

硬件外设初始化

硬件外设的初始化是在 bsp.c 文件实现：

/*
*********************************************************************************************************
* 函数名: bsp_Init
* 功能说明: 初始化所有的硬件设备。该函数配置CPU寄存器和外设的寄存器并初始化一些全局变量。只需要调用一次
* 形参：无
* 返回值: 无
*********************************************************************************************************
*/
void bsp_Init(void)
{
/*
由于ST固件库的启动文件已经执行了CPU系统时钟的初始化，所以不必再次重复配置系统时钟。
启动文件配置了CPU主时钟频率、内部Flash访问速度和可选的外部SRAM FSMC初始化。
系统时钟缺省配置为168MHz，如果需要更改，可以修改 system_stm32f4xx.c 文件
*/
/* 优先级分组设置为4，可配置0-15级抢占式优先级，0级子优先级，即不存在子优先级。*/
NVIC_PriorityGroupConfig(NVIC_PriorityGroup_4);
bsp_InitDWT(); /* 初始化DWT */
bsp_InitUart(); /* 初始化串口 */
bsp_InitKey(); /* 初始化按键变量（必须在 bsp_InitTimer() 之前调用） */
bsp_InitLed(); /* 初始LED指示灯端口 */
}

复制代码

RTX任务创建：

/*
*********************************************************************************************************
* 函数名: AppTaskCreate
* 功能说明: 创建应用任务
* 形参: 无
* 返回值: 无
*********************************************************************************************************
*/
static void AppTaskCreate (void)
{
HandleTaskUserIF = os_tsk_create_user(AppTaskUserIF, /* 任务函数 */
1, /* 任务优先级 */
&AppTaskUserIFStk, /* 任务栈 */
sizeof(AppTaskUserIFStk)); /* 任务栈大小，单位字节数 */
HandleTaskLED = os_tsk_create_user(AppTaskLED, /* 任务函数 */
2, /* 任务优先级 */
&AppTaskLEDStk, /* 任务栈 */
sizeof(AppTaskLEDStk)); /* 任务栈大小，单位字节数 */
HandleTaskMsgPro = os_tsk_create_user(AppTaskMsgPro, /* 任务函数 */
3, /* 任务优先级 */
&AppTaskMsgProStk, /* 任务栈 */
sizeof(AppTaskMsgProStk)); /* 任务栈大小，单位字节数 */
HandleTaskTCPMain = os_tsk_create_user(AppTaskTCPMain, /* 任务函数 */
4, /* 任务优先级 */
&AppTaskTCPMainStk, /* 任务栈 */
sizeof(AppTaskTCPMainStk)); /* 任务栈大小，单位字节数 */
}

复制代码

五个RTX任务的实现：

/*
*********************************************************************************************************
* 函数名: AppTaskUserIF
* 功能说明: 按键消息处理
* 形参: 无
* 返回值: 无
* 优先级: 1 (数值越小优先级越低，这个跟uCOS相反)
*********************************************************************************************************
*/
__task void AppTaskUserIF(void)
{
uint8_t ucKeyCode;
while(1)
{
ucKeyCode = bsp_GetKey();
if (ucKeyCode != KEY_NONE)
{
switch (ucKeyCode)
{
/* K1键按下 */
case KEY_DOWN_K1:
printf("K1键按下\r\n");
break;
/* K2键按下 */
case KEY_DOWN_K2:
printf("K2键按下\r\n");
break;
/* K3键按下 */
case KEY_DOWN_K3:
printf("K3键按下\r\n");
break;
/* 其他的键值不处理 */
default:
break;
}
}
os_dly_wait(20);
}
}
/*
*********************************************************************************************************
* 函数名: AppTaskLED
* 功能说明: LED闪烁。
* 形参: 无
* 返回值: 无
* 优先级: 2
*********************************************************************************************************
*/
__task void AppTaskLED(void)
{
const uint16_t usFrequency = 500; /* 延迟周期 */
/* 设置延迟周期 */
os_itv_set(usFrequency);
while(1)
{
bsp_LedToggle(4);
/* os_itv_wait是绝对延迟，os_dly_wait是相对延迟。*/
os_itv_wait();
}
}
/*
*********************************************************************************************************
* 函数名: AppTaskMsgPro
* 功能说明: 按键检测
* 形参: 无
* 返回值: 无
* 优先级: 3
*********************************************************************************************************
*/
__task void AppTaskMsgPro(void)
{
while(1)
{
bsp_KeyScan();
os_dly_wait(10);
}
}
/*
*********************************************************************************************************
* 函数名: AppTaskTCPMain
* 功能说明: RL-TCPnet测试任务
* 形参: 无
* 返回值: 无
* 优先级: 4
*********************************************************************************************************
*/
__task void AppTaskTCPMain(void)
{
while (1)
{
TCPnetTest();
}
}
/*
*********************************************************************************************************
* 函数名: AppTaskStart
* 功能说明: 启动任务，也是最高优先级任务，这里实现RL-TCPnet的时间基准更新。
* 形参: 无
* 返回值: 无
* 优先级: 5
*********************************************************************************************************
*/
__task void AppTaskStart(void)
{
/* 初始化RL-TCPnet */
init_TcpNet ();
/* 创建任务 */
AppTaskCreate();
os_itv_set (100);
while(1)
{
os_itv_wait ();
/* RL-TCPnet时间基准更新函数 */
timer_tick ();
os_evt_set(0x0001, HandleTaskTCPMain);
}
}

复制代码

RL-TCPnet功能测试

这里专门创建了一个app_tcpnet_lib.c文件用于RL-TCPnet功能的测试，此文件主要实现网络主函数main_TcpNet的调用。

#include "includes.h"
/*
*********************************************************************************************************
* 函数名: TCPnetTest
* 功能说明: TCPent测试函数。
* 形参: 无
* 返回值: 无
*********************************************************************************************************
*/
void TCPnetTest(void)
{
while (1)
{
os_evt_wait_or(0x0001, 0xFFFF);
/* RL-TCPnet主处理函数 */
while (main_TcpNet() == __TRUE);
}
}

复制代码

HTTP_CGI.c文件中接口函数的实现

KEIL官网有提供HTTPCGI的接口文件，名为HTTP_CGI.c。我们就是在这个文件上修改实现，主要是函数cgi_process_data和cgi_func，其它函数未使用。关于这两个函数在本章47.7小节有详细讲解，具体实现内容如下：

/*--------------------------- cgi_process_data ------------------------------*/
#include <Net_Config.h>
#include <stdio.h>
#include <string.h>
#include "bsp.h"
/* ---------------------------------------------------------------------------
* The HTTP server provides a small scripting language.
*
* The script language is simple and works as follows. Each script line starts
* with a command character, either "i", "t", "c", "#" or ".".
* "i" - command tells the script interpreter to "include" a file from the
* virtual file system and output it to the web browser.
* "t" - command should be followed by a line of text that is to be output
* to the browser.
* "c" - command is used to call one of the C functions from the this file.
* It may be followed by the line of text. This text is passed to
* 'cgi_func()' as a pointer to environment variable.
* "#' - command is a comment line and is ignored (the "#" denotes a comment)
* "." - denotes the last script line.
*
* --------------------------------------------------------------------------*/
/* at_System.c */
extern LOCALM localm[];
#define LocM localm[NETIF_ETH]
/* Net_Config.c */
extern struct tcp_cfg tcp_config;
extern struct http_cfg http_config;
#define tcp_NumSocks tcp_config.NumSocks
#define tcp_socket tcp_config.Scb
#define http_EnAuth http_config.EnAuth
#define http_auth_passw http_config.Passw
/* Local variables. */
U8 LEDControl;
/* My structure of CGI status U32 variable. This variable is private for */
/* each HTTP Session and is not altered by HTTP Server. It is only set to */
/* zero when the cgi_func() is called for the first time. */
typedef struct {
U16 xcnt;
U16 unused;
} MY_BUF;
#define MYBUF(p) ((MY_BUF *)p)
/*----------------------------------------------------------------------------
* HTTP Server Common Gateway Interface Functions
*---------------------------------------------------------------------------*/
/*--------------------------- cgi_process_var -------------------------------*/
void cgi_process_var (U8 *qs) {
/* This function is called by HTTP server to process the Querry_String */
/* for the CGI Form GET method. It is called on SUBMIT from the browser. */
/*.The Querry_String.is SPACE terminated. */
U8 *var;
int s[4];
var = (U8 *)alloc_mem (40);
do {
/* Loop through all the parameters. */
qs = http_get_var (qs, var, 40);
/* Check the returned string, 'qs' now points to the next. */
if (var[0] != 0) {
/* Returned string is non 0-length. */
if (str_scomp (var, "ip=") == __TRUE) {
/* My IP address parameter. */
sscanf ((const char *)&var[3], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.IpAdr[0] = s[0];
LocM.IpAdr[1] = s[1];
LocM.IpAdr[2] = s[2];
LocM.IpAdr[3] = s[3];
}
else if (str_scomp (var, "msk=") == __TRUE) {
/* Net mask parameter. */
sscanf ((const char *)&var[4], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.NetMask[0] = s[0];
LocM.NetMask[1] = s[1];
LocM.NetMask[2] = s[2];
LocM.NetMask[3] = s[3];
}
else if (str_scomp (var, "gw=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[3], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.DefGW[0] = s[0];
LocM.DefGW[1] = s[1];
LocM.DefGW[2] = s[2];
LocM.DefGW[3] = s[3];
}
else if (str_scomp (var, "pdns=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[5], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.PriDNS[0] = s[0];
LocM.PriDNS[1] = s[1];
LocM.PriDNS[2] = s[2];
LocM.PriDNS[3] = s[3];
}
else if (str_scomp (var, "sdns=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[5], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.SecDNS[0] = s[0];
LocM.SecDNS[1] = s[1];
LocM.SecDNS[2] = s[2];
LocM.SecDNS[3] = s[3];
}
}
}while (qs);
free_mem ((OS_FRAME *)var);
}
/*--------------------------- cgi_process_data ------------------------------*/
void cgi_process_data (U8 code, U8 *dat, U16 len) {
/* This function is called by HTTP server to process the returned Data */
/* for the CGI Form POST method. It is called on SUBMIT from the browser. */
/* Parameters: */
/* code - callback context code */
/* 0 = www-url-encoded form data */
/* 1 = filename for file upload (0-terminated string) */
/* 2 = file upload raw data */
/* 3 = end of file upload (file close requested) */
/* 4 = any xml encoded POST data (single or last stream) */
/* 5 = the same as 4, but with more xml data to follow */
/* Use http_get_content_type() to check the content type */
/* dat - pointer to POST received data */
/* len - received data length */
U8 *var;
switch (code) {
case 0:
/* Url encoded form data received. */
break;
case 1:
/* Filename for file upload received as encoded by the browser. */
/* It might contain an absolute path to a file from the sending */
/* host. Open a file for writing. */
return;
case 2:
/* File content data received. Write data to a file. */
/* This function will be called several times with */
/* code 2 when a big file is being uploaded. */
return;
case 3:
/* File upload finished. Close a file. */
return;
case 4:
/* XML encoded content type, last packet. */
// pType = http_get_content_type ();
/* check the content type for CGX file request. */
/* pType is a pointer to a 0-terminated string */
/* For example: text/xml; charset=utf-8 */
return;
case 5:
/* XML encoded as under 4, but with more to follow. */
return;
default:
/* Ignore all other codes. */
return;
}
if (len == 0) {
/* No data or all items (radio, checkbox) are off. */
return;
}
var = (U8 *)alloc_mem (40);
do {
/* Parse all returned parameters. */
dat = http_get_var (dat, var, 40);
if (var[0] != 0) {
if (str_scomp (var, "TICK1=") == __TRUE || str_scomp (var, "pg=") == __TRUE)
{
if (str_scomp (var, "pg=") == __TRUE)
{
LEDControl = 0;
}
if(*(var+9) =='1')
{
LEDControl |= 0x01;
}
else if(*(var+9) =='2')
{
LEDControl |= 0x02;
}
else if(*(var+9) =='3')
{
LEDControl |= 0x04;
}
}
}
}while (dat);
free_mem ((OS_FRAME *)var);
//LED Control
if(LEDControl & 0x01)
{
bsp_LedOn(1);
}
else
{
bsp_LedOff(1);
}
if(LEDControl & 0x02)
{
bsp_LedOn(2);
}
else
{
bsp_LedOff(2);
}
if(LEDControl & 0x04)
{
bsp_LedOn(3);
}
else
{
bsp_LedOff(3);
}
}
/*--------------------------- cgi_func --------------------------------------*/
U16 cgi_func (U8 *env, U8 *buf, U16 buflen, U32 *pcgi) {
/* This function is called by HTTP server script interpreter to make a */
/* formated output for 'stdout'. It returns the number of bytes written */
/* to the output buffer. Hi-bit of return value (len is or-ed with 0x8000)*/
/* is a repeat flag for the system script interpreter. If this bit is set */
/* to 1, the system will call the 'cgi_func()' again for the same script */
/* line with parameter 'pcgi' pointing to a 4-byte buffer. This buffer */
/* can be used for storing different status variables for this function. */
/* It is set to 0 by HTTP Server on first call and is not altered by */
/* HTTP server for repeated calls. This function should NEVER write more */
/* than 'buflen' bytes to the buffer. */
/* Parameters: */
/* env - environment variable string */
/* buf - HTTP transmit buffer */
/* buflen - length of this buffer (500-1400 bytes - depends on MSS) */
/* pcgi - pointer to session local buffer used for repeated loops */
/* This is a U32 variable - size is 4 bytes. Value is: */
/* - on 1st call = 0 */
/* - 2nd call = as set by this function on first call */
U32 len = 0;
unsigned int mask;
switch (env[0]) {
/* Analyze the environment string. It is the script 'c' line starting */
/* at position 2. What you write to the script file is returned here. */
case 'T' :
if(env[1] =='1')
{
mask = env[2]-'0';
len = sprintf((char *)buf,(const char *)&env[4],(LEDControl& mask) ? "checked" : "");
}
break;
}
return ((U16)len);
}
/*--------------------------- cgx_content_type ------------------------------*/
#if 0
U8 *cgx_content_type (void) {
/* User configurable Content-type for CGX script files. If this function */
/* is missing, or returns a NULL pointer, the default 'text/xml' content */
/* type from the library is used for xml-script file types. */
return ("text/xml; charset=utf-8");
}
#endif
/*--------------------------- http_encoding ---------------------------------*/
#if 0
U8 *http_encoding (void) {
/* User configurable character encoding for text types. If this function */
/* is missing, or returns a NULL pointer, web browser uses a default */
/* character encoding, which is set in the browser configuration. */
return ("utf-8");
}
#endif
/*--------------------------- http_accept_host ------------------------------*/
#if 0
BOOL http_accept_host (U8 *rem_ip, U16 rem_port) {
/* This function checks if a connection from remote host is accepted or */
/* not. If this function is missing, all remote hosts are accepted. */
if (rem_ip[0] == 192 &&
rem_ip[1] == 168 &&
rem_ip[2] == 1 &&
rem_ip[3] == 1) {
/* Accept a connection. */
return (__TRUE);
}
/* Deny a connection. */
return (__FALSE);
}
#endif
/*----------------------------------------------------------------------------
* end of file
*---------------------------------------------------------------------------*/

复制代码

席萌0209 · 发表于 2018-1-12 16:41:40

47.8.2 STM32F429开发板实验

配套例子：

V6-1066_RL-TCPnet实验_WebServer之CGI实现动态网页（RTX）

实验目的：

1. 学习CGI脚本实现动态网页制作方法和RL-TCPnet的Web服务器实现。

实验内容：

1. 强烈推荐将网线接到路由器或者交换机上面测试，因为已经使能了DHCP，可以自动获取IP地址。

2. 用户可在浏览器中直接输入IP地址访问Web服务器，跟大家访问路由器后台一样，也可以通过NetBIOS局域网域名直接访问，即http://armfly/，这样就无需查看具体IP了。

3. Web服务器的用户名admin，密码123456。

4. 例子中利用CGI脚本实现了一个Web浏览器中通过复选框控制LED亮灭的功能。

5. 关于网页的制作和Web服务器的测试方法，务必看本例子配套的教程，有详细讲解！！！

网页制作：

详见本章节47.5小节。

配置向导文件设置（Net_Config.c）：

详见本章节47.3小节。

调试文件设置（Net_Debug.c）：

详见本章节47.4小节。

Web服务器访问效果：

详见本章节47.6小节。

RTX配置：

RTX配置向导详情如下：

Task Configuration

（1）Number of concurrent running tasks

允许创建6个任务，实际创建了如下5个任务：

AppTaskUserIF任务：按键消息处理。

AppTaskLED任务：LED闪烁。

AppTaskMsgPro任务：按键检测。

AppTaskTCPMain任务：RL-TCPnet测试任务。

AppTaskStart任务：启动任务，也是最高优先级任务，这里实现RL-TCPnet的时间基准更新。

（2）Number of tasks with user-provided stack

创建的5个任务都是采用自定义堆栈方式。

（3）Run in privileged mode

设置任务运行在非特权级模式。

RTX任务调试信息：

程序设计：

任务栈大小分配：

staticuint64_t AppTaskUserIFStk[1024/8]; /* 任务栈 */

staticuint64_t AppTaskLEDStk[1024/8]; /* 任务栈 */

staticuint64_t AppTaskMsgProStk[1024/8]; /* 任务栈 */

staticuint64_t AppTaskTCPMainStk[4096/8]; /* 任务栈 */

staticuint64_t AppTaskStartStk[1024/8]; /* 任务栈 */

将任务栈定义成uint64_t类型可以保证任务栈是8字节对齐的，8字节对齐的含义就是数组的首地址对8求余等于0。如果不做8字节对齐的话，部分C语言库函数、浮点运算和uint64_t类型数据运算会出问题。

系统栈大小分配：

RTX初始化：

/*
*********************************************************************************************************
* 函数名: main
* 功能说明: 标准c程序入口。
* 形参: 无
* 返回值: 无
*********************************************************************************************************
*/
int main (void)
{
/* 初始化外设 */
bsp_Init();
/* 创建启动任务 */
os_sys_init_user (AppTaskStart, /* 任务函数 */
5, /* 任务优先级 */
&AppTaskStartStk, /* 任务栈 */
sizeof(AppTaskStartStk)); /* 任务栈大小，单位字节数 */
while(1);
}

复制代码

硬件外设初始化

硬件外设的初始化是在 bsp.c 文件实现：

/*
*********************************************************************************************************
* 函数名: bsp_Init
* 功能说明: 初始化所有的硬件设备。该函数配置CPU寄存器和外设的寄存器并初始化一些全局变量。只需要调用一次
* 形参：无
* 返回值: 无
*********************************************************************************************************
*/
void bsp_Init(void)
{
/*
由于ST固件库的启动文件已经执行了CPU系统时钟的初始化，所以不必再次重复配置系统时钟。
启动文件配置了CPU主时钟频率、内部Flash访问速度和可选的外部SRAM FSMC初始化。
系统时钟缺省配置为168MHz，如果需要更改，可以修改 system_stm32f4xx.c 文件
*/
/* 优先级分组设置为4，可配置0-15级抢占式优先级，0级子优先级，即不存在子优先级。*/
NVIC_PriorityGroupConfig(NVIC_PriorityGroup_4);
SystemCoreClockUpdate(); /* 根据PLL配置更新系统时钟频率变量 SystemCoreClock */
bsp_InitDWT(); /* 初始化DWT */
bsp_InitUart(); /* 初始化串口 */
bsp_InitKey(); /* 初始化按键变量（必须在 bsp_InitTimer() 之前调用） */
bsp_InitExtIO(); /* FMC总线上扩展了32位输出IO, 操作LED等外设必须初始化 */
bsp_InitLed(); /* 初始LED指示灯端口 */
}

复制代码

RTX任务创建：

/*
*********************************************************************************************************
* 函数名: AppTaskCreate
* 功能说明: 创建应用任务
* 形参: 无
* 返回值: 无
*********************************************************************************************************
*/
static void AppTaskCreate (void)
{
HandleTaskUserIF = os_tsk_create_user(AppTaskUserIF, /* 任务函数 */
1, /* 任务优先级 */
&AppTaskUserIFStk, /* 任务栈 */
sizeof(AppTaskUserIFStk)); /* 任务栈大小，单位字节数 */
HandleTaskLED = os_tsk_create_user(AppTaskLED, /* 任务函数 */
2, /* 任务优先级 */
&AppTaskLEDStk, /* 任务栈 */
sizeof(AppTaskLEDStk)); /* 任务栈大小，单位字节数 */
HandleTaskMsgPro = os_tsk_create_user(AppTaskMsgPro, /* 任务函数 */
3, /* 任务优先级 */
&AppTaskMsgProStk, /* 任务栈 */
sizeof(AppTaskMsgProStk)); /* 任务栈大小，单位字节数 */
HandleTaskTCPMain = os_tsk_create_user(AppTaskTCPMain, /* 任务函数 */
4, /* 任务优先级 */
&AppTaskTCPMainStk, /* 任务栈 */
sizeof(AppTaskTCPMainStk)); /* 任务栈大小，单位字节数 */
}

复制代码

五个RTX任务的实现：

/*
*********************************************************************************************************
* 函数名: AppTaskUserIF
* 功能说明: 按键消息处理
* 形参: 无
* 返回值: 无
* 优先级: 1 (数值越小优先级越低，这个跟uCOS相反)
*********************************************************************************************************
*/
__task void AppTaskUserIF(void)
{
uint8_t ucKeyCode;
while(1)
{
ucKeyCode = bsp_GetKey();
if (ucKeyCode != KEY_NONE)
{
switch (ucKeyCode)
{
/* K1键按下 */
case KEY_DOWN_K1:
printf("K1键按下\r\n");
break;
/* K2键按下 */
case KEY_DOWN_K2:
printf("K2键按下\r\n");
break;
/* K3键按下 */
case KEY_DOWN_K3:
printf("K3键按下\r\n");
break;
/* 其他的键值不处理 */
default:
break;
}
}
os_dly_wait(20);
}
}
/*
*********************************************************************************************************
* 函数名: AppTaskLED
* 功能说明: LED闪烁。
* 形参: 无
* 返回值: 无
* 优先级: 2
*********************************************************************************************************
*/
__task void AppTaskLED(void)
{
const uint16_t usFrequency = 500; /* 延迟周期 */
/* 设置延迟周期 */
os_itv_set(usFrequency);
while(1)
{
bsp_LedToggle(4);
/* os_itv_wait是绝对延迟，os_dly_wait是相对延迟。*/
os_itv_wait();
}
}
/*
*********************************************************************************************************
* 函数名: AppTaskMsgPro
* 功能说明: 按键检测
* 形参: 无
* 返回值: 无
* 优先级: 3
*********************************************************************************************************
*/
__task void AppTaskMsgPro(void)
{
while(1)
{
bsp_KeyScan();
os_dly_wait(10);
}
}
/*
*********************************************************************************************************
* 函数名: AppTaskTCPMain
* 功能说明: RL-TCPnet测试任务
* 形参: 无
* 返回值: 无
* 优先级: 4
*********************************************************************************************************
*/
__task void AppTaskTCPMain(void)
{
while (1)
{
TCPnetTest();
}
}
/*
*********************************************************************************************************
* 函数名: AppTaskStart
* 功能说明: 启动任务，也是最高优先级任务，这里实现RL-TCPnet的时间基准更新。
* 形参: 无
* 返回值: 无
* 优先级: 5
*********************************************************************************************************
*/
__task void AppTaskStart(void)
{
/* 初始化RL-TCPnet */
init_TcpNet ();
/* 创建任务 */
AppTaskCreate();
os_itv_set (100);
while(1)
{
os_itv_wait ();
/* RL-TCPnet时间基准更新函数 */
timer_tick ();
os_evt_set(0x0001, HandleTaskTCPMain);
}
}

复制代码

RL-TCPnet功能测试

这里专门创建了一个app_tcpnet_lib.c文件用于RL-TCPnet功能的测试，此文件主要实现网络主函数main_TcpNet的调用。

#include "includes.h"
/*
*********************************************************************************************************
* 函数名: TCPnetTest
* 功能说明: TCPent测试函数。
* 形参: 无
* 返回值: 无
*********************************************************************************************************
*/
void TCPnetTest(void)
{
while (1)
{
os_evt_wait_or(0x0001, 0xFFFF);
/* RL-TCPnet主处理函数 */
while (main_TcpNet() == __TRUE);
}
}

复制代码

HTTP_CGI.c文件中接口函数的实现

KEIL官网有提供HTTPCGI的接口文件，名为HTTP_CGI.c。我们就是在这个文件上修改实现，主要是函数cgi_process_data和cgi_func，其它函数未使用。关于这两个函数在本章47.7小节有详细讲解，具体实现内容如下：

/*--------------------------- cgi_process_data ------------------------------*/
#include <Net_Config.h>
#include <stdio.h>
#include <string.h>
#include "bsp.h"
/* ---------------------------------------------------------------------------
* The HTTP server provides a small scripting language.
*
* The script language is simple and works as follows. Each script line starts
* with a command character, either "i", "t", "c", "#" or ".".
* "i" - command tells the script interpreter to "include" a file from the
* virtual file system and output it to the web browser.
* "t" - command should be followed by a line of text that is to be output
* to the browser.
* "c" - command is used to call one of the C functions from the this file.
* It may be followed by the line of text. This text is passed to
* 'cgi_func()' as a pointer to environment variable.
* "#' - command is a comment line and is ignored (the "#" denotes a comment)
* "." - denotes the last script line.
*
* --------------------------------------------------------------------------*/
/* at_System.c */
extern LOCALM localm[];
#define LocM localm[NETIF_ETH]
/* Net_Config.c */
extern struct tcp_cfg tcp_config;
extern struct http_cfg http_config;
#define tcp_NumSocks tcp_config.NumSocks
#define tcp_socket tcp_config.Scb
#define http_EnAuth http_config.EnAuth
#define http_auth_passw http_config.Passw
/* Local variables. */
U8 LEDControl;
/* My structure of CGI status U32 variable. This variable is private for */
/* each HTTP Session and is not altered by HTTP Server. It is only set to */
/* zero when the cgi_func() is called for the first time. */
typedef struct {
U16 xcnt;
U16 unused;
} MY_BUF;
#define MYBUF(p) ((MY_BUF *)p)
/*----------------------------------------------------------------------------
* HTTP Server Common Gateway Interface Functions
*---------------------------------------------------------------------------*/
/*--------------------------- cgi_process_var -------------------------------*/
void cgi_process_var (U8 *qs) {
/* This function is called by HTTP server to process the Querry_String */
/* for the CGI Form GET method. It is called on SUBMIT from the browser. */
/*.The Querry_String.is SPACE terminated. */
U8 *var;
int s[4];
var = (U8 *)alloc_mem (40);
do {
/* Loop through all the parameters. */
qs = http_get_var (qs, var, 40);
/* Check the returned string, 'qs' now points to the next. */
if (var[0] != 0) {
/* Returned string is non 0-length. */
if (str_scomp (var, "ip=") == __TRUE) {
/* My IP address parameter. */
sscanf ((const char *)&var[3], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.IpAdr[0] = s[0];
LocM.IpAdr[1] = s[1];
LocM.IpAdr[2] = s[2];
LocM.IpAdr[3] = s[3];
}
else if (str_scomp (var, "msk=") == __TRUE) {
/* Net mask parameter. */
sscanf ((const char *)&var[4], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.NetMask[0] = s[0];
LocM.NetMask[1] = s[1];
LocM.NetMask[2] = s[2];
LocM.NetMask[3] = s[3];
}
else if (str_scomp (var, "gw=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[3], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.DefGW[0] = s[0];
LocM.DefGW[1] = s[1];
LocM.DefGW[2] = s[2];
LocM.DefGW[3] = s[3];
}
else if (str_scomp (var, "pdns=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[5], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.PriDNS[0] = s[0];
LocM.PriDNS[1] = s[1];
LocM.PriDNS[2] = s[2];
LocM.PriDNS[3] = s[3];
}
else if (str_scomp (var, "sdns=") == __TRUE) {
/* Default gateway parameter. */
sscanf ((const char *)&var[5], "%d.%d.%d.%d",&s[0],&s[1],&s[2],&s[3]);
LocM.SecDNS[0] = s[0];
LocM.SecDNS[1] = s[1];
LocM.SecDNS[2] = s[2];
LocM.SecDNS[3] = s[3];
}
}
}while (qs);
free_mem ((OS_FRAME *)var);
}
/*--------------------------- cgi_process_data ------------------------------*/
void cgi_process_data (U8 code, U8 *dat, U16 len) {
/* This function is called by HTTP server to process the returned Data */
/* for the CGI Form POST method. It is called on SUBMIT from the browser. */
/* Parameters: */
/* code - callback context code */
/* 0 = www-url-encoded form data */
/* 1 = filename for file upload (0-terminated string) */
/* 2 = file upload raw data */
/* 3 = end of file upload (file close requested) */
/* 4 = any xml encoded POST data (single or last stream) */
/* 5 = the same as 4, but with more xml data to follow */
/* Use http_get_content_type() to check the content type */
/* dat - pointer to POST received data */
/* len - received data length */
U8 *var;
switch (code) {
case 0:
/* Url encoded form data received. */
break;
case 1:
/* Filename for file upload received as encoded by the browser. */
/* It might contain an absolute path to a file from the sending */
/* host. Open a file for writing. */
return;
case 2:
/* File content data received. Write data to a file. */
/* This function will be called several times with */
/* code 2 when a big file is being uploaded. */
return;
case 3:
/* File upload finished. Close a file. */
return;
case 4:
/* XML encoded content type, last packet. */
// pType = http_get_content_type ();
/* check the content type for CGX file request. */
/* pType is a pointer to a 0-terminated string */
/* For example: text/xml; charset=utf-8 */
return;
case 5:
/* XML encoded as under 4, but with more to follow. */
return;
default:
/* Ignore all other codes. */
return;
}
if (len == 0) {
/* No data or all items (radio, checkbox) are off. */
return;
}
var = (U8 *)alloc_mem (40);
do {
/* Parse all returned parameters. */
dat = http_get_var (dat, var, 40);
if (var[0] != 0) {
if (str_scomp (var, "TICK1=") == __TRUE || str_scomp (var, "pg=") == __TRUE)
{
if (str_scomp (var, "pg=") == __TRUE)
{
LEDControl = 0;
}
if(*(var+9) =='1')
{
LEDControl |= 0x01;
}
else if(*(var+9) =='2')
{
LEDControl |= 0x02;
}
else if(*(var+9) =='3')
{
LEDControl |= 0x04;
}
}
}
}while (dat);
free_mem ((OS_FRAME *)var);
//LED Control
if(LEDControl & 0x01)
{
bsp_LedOn(1);
}
else
{
bsp_LedOff(1);
}
if(LEDControl & 0x02)
{
bsp_LedOn(2);
}
else
{
bsp_LedOff(2);
}
if(LEDControl & 0x04)
{
bsp_LedOn(3);
}
else
{
bsp_LedOff(3);
}
}
/*--------------------------- cgi_func --------------------------------------*/
U16 cgi_func (U8 *env, U8 *buf, U16 buflen, U32 *pcgi) {
/* This function is called by HTTP server script interpreter to make a */
/* formated output for 'stdout'. It returns the number of bytes written */
/* to the output buffer. Hi-bit of return value (len is or-ed with 0x8000)*/
/* is a repeat flag for the system script interpreter. If this bit is set */
/* to 1, the system will call the 'cgi_func()' again for the same script */
/* line with parameter 'pcgi' pointing to a 4-byte buffer. This buffer */
/* can be used for storing different status variables for this function. */
/* It is set to 0 by HTTP Server on first call and is not altered by */
/* HTTP server for repeated calls. This function should NEVER write more */
/* than 'buflen' bytes to the buffer. */
/* Parameters: */
/* env - environment variable string */
/* buf - HTTP transmit buffer */
/* buflen - length of this buffer (500-1400 bytes - depends on MSS) */
/* pcgi - pointer to session local buffer used for repeated loops */
/* This is a U32 variable - size is 4 bytes. Value is: */
/* - on 1st call = 0 */
/* - 2nd call = as set by this function on first call */
U32 len = 0;
unsigned int mask;
switch (env[0]) {
/* Analyze the environment string. It is the script 'c' line starting */
/* at position 2. What you write to the script file is returned here. */
case 'T' :
if(env[1] =='1')
{
mask = env[2]-'0';
len = sprintf((char *)buf,(const char *)&env[4],(LEDControl& mask) ? "checked" : "");
}
break;
}
return ((U16)len);
}
/*--------------------------- cgx_content_type ------------------------------*/
#if 0
U8 *cgx_content_type (void) {
/* User configurable Content-type for CGX script files. If this function */
/* is missing, or returns a NULL pointer, the default 'text/xml' content */
/* type from the library is used for xml-script file types. */
return ("text/xml; charset=utf-8");
}
#endif
/*--------------------------- http_encoding ---------------------------------*/
#if 0
U8 *http_encoding (void) {
/* User configurable character encoding for text types. If this function */
/* is missing, or returns a NULL pointer, web browser uses a default */
/* character encoding, which is set in the browser configuration. */
return ("utf-8");
}
#endif
/*--------------------------- http_accept_host ------------------------------*/
#if 0
BOOL http_accept_host (U8 *rem_ip, U16 rem_port) {
/* This function checks if a connection from remote host is accepted or */
/* not. If this function is missing, all remote hosts are accepted. */
if (rem_ip[0] == 192 &&
rem_ip[1] == 168 &&
rem_ip[2] == 1 &&
rem_ip[3] == 1) {
/* Accept a connection. */
return (__TRUE);
}
/* Deny a connection. */
return (__FALSE);
}
#endif
/*----------------------------------------------------------------------------
* end of file
*---------------------------------------------------------------------------*/
/*--------------------------- http_accept_host ------------------------------*/
#if 0
BOOL http_accept_host (U8 *rem_ip, U16 rem_port) {
/* This function checks if a connection from remote host is accepted or */
/* not. If this function is missing, all remote hosts are accepted. */
if (rem_ip[0] == 192 &&
rem_ip[1] == 168 &&
rem_ip[2] == 1 &&
rem_ip[3] == 1) {
/* Accept a connection. */
return (__TRUE);
}
/* Deny a connection. */
return (__FALSE);
}
#endif
/*----------------------------------------------------------------------------
* end of file
*---------------------------------------------------------------------------*/

复制代码

席萌0209 · 发表于 2018-1-12 16:42:25

47.9 总结

本章节就为大家讲解这么多，其中网页的制作比较麻烦，希望大家实际动手操作一遍，并将其熟练掌握。

		自动登录	找回密码
密码			立即注册

[RL-TCPnet教程] 【RL-TCPnet网络教程】第47章 RL-TCPnet之Web服务器的CGI实现