第34章 RL-TCPnet之SMTP客户端

STM32

转帖
本章节为大家讲解RL-TCPnet的SMTP应用，学习本章节前，务必要优先学习第33章的SMTP基础知识。有了这些基础知识之后，再搞本章节会有事半功倍的效果。
本章教程含STM32F407开发板和STM32F429开发板。
34.1初学者重要提示
34.2SMTP函数
34.3SMTP配置说明（Net_Config.c）
34.4SMTP调试说明（Net_Debug.c）
34.5注册邮箱和板子的操作步骤
34.6实验例程说明（RTX）
34.7总结

lee_st · 2017-12-17 08:34:51

硬件外设初始化
   硬件外设的初始化是在 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指示灯端口 */
}

lee_st · 2017-12-17 08:35:07

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)); /* 任务栈大小，单位字节数 */
}

63^#

提示: 该帖被管理员或版主屏蔽

lee_st · 2017-12-17 08:35:43

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

/*
*********************************************************************************************************
*                                      用于本文件的调试
*********************************************************************************************************
*/
#if 1
     #define printf_debug printf
#else
     #define printf_debug(...)
#endif

/*
*********************************************************************************************************
*                                          变量
*********************************************************************************************************
*/
char const *hosts[4] =
{
     "smtp.sina.cn",
     "smtp.126.com",
     "smtp.qq.com",
     "smtp.163.com",
};

U8 srv_ip[4];
U8 dns_flag = 0;

/*
*********************************************************************************************************
*    函数名: dns_cbfunc
*    功能说明: 函数get_host_by_name的回调函数。
*    形    参: event  事件类型
*             ip     如果事件类型是DNS_EVT_SUCCESS，此指针变量指向返回的IP地址缓冲区。
*    返回值: 无
*********************************************************************************************************
*/
static void dns_cbfunc (unsigned char event, unsigned char *ip)
{
     switch (event)
     {
         /* 成功解析地址 */
         case DNS_EVT_SUCCESS:
              printf_debug("DNS解析出邮箱服务器IP地址 : %d.%d.%d.%dn",ip[0],ip[1],ip[2],ip[3]);

              srv_ip[0] = ip[0];
              srv_ip[1] = ip[1];
              srv_ip[2] = ip[2];
              srv_ip[3] = ip[3];
              dns_flag = 1;
              break;

         /* DNS记录数据库中不存在此地址 */
         case DNS_EVT_NONAME:
              printf_debug("Host Name does not exist in DNS record database.n");
              break;

         /* 允许的DNS解析重试次数已经用完，仍无法解析，时间超时 */
         case DNS_EVT_TIMEOUT:
              printf_debug("DNS Resolver Timeout expired, Host Address not resolved.n");
              break;

         /* DNS协议错误，收到无效或者被损坏的回复 */
         case DNS_EVT_ERROR:
              printf_debug("DNS Resolver Protocol Error, Host Address not resolved.n");
              return;
     }
}

/*
*********************************************************************************************************
*    函数名: smtp_cback
*    功能说明: 函数smtp_connect的回调函数。
*    形    参: event  事件类型
*    返回值: 无
*********************************************************************************************************
*/
static void smtp_cback(U8 event)
{
     switch (event)
     {
         /* 邮件发送成功 */
         case SMTP_EVT_SUCCESS:
              printf_debug ("Email successfully sentrn");
              break;

         /* 超时，邮件未发送成功 */
         case SMTP_EVT_TIMEOUT:
              printf_debug ("Mail Server timeout.rn");
              break;

         /* 邮件发送失败 */
         case SMTP_EVT_ERROR:
              printf_debug ("Error sending email.rn");
              break;
     }
}

/*
*********************************************************************************************************
*    函数名: TCPnetTest
*    功能说明: TCPent测试函数。
*    形    参: 无
*    返回值: 无
*********************************************************************************************************
*/
void TCPnetTest(void)
{
     OS_RESULT xResult;

     while (1)
     {
         os_evt_wait_or(0x0003, 0xFFFF);

          /* 如果接受到按键K2按下的消息，解析smtp.sina.cn的IP地址 */
         xResult = os_evt_get ();
         if(xResult == KEY2_BIT1)
         {
              get_host_by_name ((U8 *)hosts[0], dns_cbfunc);
         }

         /* 解析出IP地址后，发送邮件 */
         if(dns_flag == 1)
         {
              smtp_connect ((U8 *)&srv_ip, 25, smtp_cback);
              dns_flag = 0;
         }

         while (main_TcpNet() == __TRUE);
     }
}

lee_st · 2017-12-17 08:36:02

SMTP用户接口文件的实现
   KEIL官网有提供SMTP的接口文件，名为SMTP_uif.c文件。我们就是在这个文件上修改。具体修改后的代码如下：
#include
#include
#include

/* Email definitions */
#define MAIL_FROM       "baiyongbin_2006@sina.cn"
#define RCPT_TO         "baiyongbin_2006@sina.cn"
#define SMTP_USER       "baiyongbin_2006@sina.cn"
#define SMTP_PASSWORD   "xxxxxxxxx"
#define MAIL_SUBJECT    "安富莱电子"

#define MSG_HEADER
  "Hello，大家好!rnrn"
  "这是一封来自STM32-V6开发板发出的邮件，运行的RL-TCPnet小型协议栈rn"
  "在这里祝福大家身体健康，万事如意rnrn"
  "--------------------------------------------------------------rn"

#define MSG_FOOTER
  "--------------------------------------------------------------rn"
  "此致敬礼rnrn"
  "安富莱电子"

/* My structure of SMTP U32 storage variable. This variable is private and  */
/* is not altered by SMTP Client. It is only set to zero when smtp_cbfunc() */
/* is called for the first time.  */
typedef struct {
  U8  id;
  U16 idx;
} MY_BUF;
#define MYBUF(p)        ((MY_BUF *)p)

/* Net_Config.c */
extern struct sys_cfg   sys_config;
#define lhost_name      sys_config.HostName

/*----------------------------------------------------------------------------
*      SMTP CallBack Functions
*---------------------------------------------------------------------------*/

/*--------------------------- smtp_cbfunc -----------------------------------*/

U16 smtp_cbfunc (U8 code, U8 *buf, U16 buflen, U32 *pvar) {
  /* This function is called by the SMTP client to get email parameters and */
  /* data. 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 the */
  /* SMTP client. If this bit is set to 1, the system will call this func   */
  /* again with parameter 'pvar' 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 SMTP client on first call and is not altered by SMTP */
  /* client for repeated calls. This function should NEVER write more than  */
  /* 'buflen' bytes to the buffer.                                          */
  /* Parameters:                                                            */
  /*   code   - function code with following values:                        */
  /*             0 - Username:   - for SMTP authentication if requested     */
  /*             1 - Password:   - for SMTP authentication if requested     */
  /*             2 - 'From   : ' - get email address of the sender          */
  /*             3 - 'To     : ' - get email address of recipient           */
  /*             4 - 'Subject: ' - get subject of email                     */
  /*             5 - 'Data   : ' - get email data in plain ascii format     */
  /*   buf    - SMTP transmit buffer                                        */
  /*   buflen - length of this buffer (500-1400 bytes - depends on MSS)     */
  /*   pvar   - pointer to local storage 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;

  switch (code) {
    case 0:
      /* Enter Username for SMTP Server authentication. */
      len = str_copy (buf, SMTP_USER);
      break;

    case 1:
      /* Enter Password for SMTP Server authentication. */
      len = str_copy (buf, SMTP_PASSWORD);
      break;

    case 2:
      /* Enter email address of the sender. */
      len = str_copy (buf, MAIL_FROM);
      break;

    case 3:
      /* Enter email address of the recipient. */
      len = str_copy (buf, RCPT_TO);
      break;

    case 4:
      /* Enter email subject. */
      len = str_copy (buf, MAIL_SUBJECT);
      break;

    case 5:
      /* Enter email data. */
      switch (MYBUF(pvar)->id) {
        case 0:
          /* First call, enter an email header text. */
          len = sprintf ((char *)buf, MSG_HEADER);
          MYBUF(pvar)->id  = 1;
          MYBUF(pvar)->idx = 1;
          goto rep;

        case 1:
           /* Add email message body. */
           /* Let's use as much of the buffer as possible. */
          /* This will produce less packets and speedup the transfer. */
           len = sprintf ((char *)(buf), "%d. ",MYBUF(pvar)->idx);

           len += str_copy (buf+len, "用户可以在这里添加数据n");
           if (++MYBUF(pvar)->idx > 5)
           {
               MYBUF(pvar)->id = 2;
           }
          /* Request a repeated call, bit 15 is a repeat flag. */
rep:      len |= 0x8000;
          break;

        case 2:
          /* Last one, add a footer text to this email. */
          len = str_copy (buf, MSG_FOOTER);
          break;
      }
  }
  return ((U16)len);
}

/*--------------------------- smtp_accept_auth ------------------------------*/

BOOL smtp_accept_auth (U8 *srv_ip) {
  /* SMTP server with address 'srv_ip' is asking for user authentication. */
  /* Return value: __TRUE  = use the authentication                       */
  /*               __FALSE = do not use the authentication                */

  /* Accept the authentication. */
  return (__TRUE);
}

/*----------------------------------------------------------------------------
* end of file
*---------------------------------------------------------------------------*/