//-----------------------------------------------------
// 7bit编码
// 输入: pSrc - 源字符串指针
//        nSrcLength - 源字符串长度
// 输出: pDst - 目标编码串指针
// 返回: 目标编码串长度
int gsmEncode7bit(const char* pSrc, unsigned char* pDst, int nSrcLength)
{
int nSrc;   // 源字符串的计数值
int nDst;   // 目标编码串的计数值
int nChar;   // 当前正在处理的组内字符字节的序号，范围是0-7
unsigned char nLeft; // 上一字节残余的数据
// 计数值初始化
nSrc = 0;
nDst = 0;
// 将源串每8个字节分为一组，压缩成7个字节
// 循环该处理过程，直至源串被处理完
// 如果分组不到8字节，也能正确处理
while (nSrc < nSrcLength)
{// 取源字符串的计数值的最低3位nChar = nSrc & 7;// 处理源串的每个字节if(nChar == 0){// 组内第一个字节，只是保存起来，待处理下一个字节时使用nLeft = *pSrc;}else{// 组内其它字节，将其右边部分与残余数据相加，得到一个目标编码字节*pDst = (*pSrc << (8-nChar)) | nLeft;// 将该字节剩下的左边部分，作为残余数据保存起来nLeft = *pSrc >> nChar;// 修改目标串的指针和计数值pDst++;nDst++;}// 修改源串的指针和计数值pSrc++;nSrc++;
}
// 返回目标串长度
return nDst;
}
// 7bit解码
// 输入: pSrc - 源编码串指针
//        nSrcLength - 源编码串长度
// 输出: pDst - 目标字符串指针
// 返回: 目标字符串长度
int gsmDecode7bit(const unsigned char* pSrc, char* pDst, int nSrcLength)
{
int nSrc;   // 源字符串的计数值
int nDst;   // 目标解码串的计数值
int nByte;   // 当前正在处理的组内字节的序号，范围是0-6
unsigned char nLeft; // 上一字节残余的数据
// 计数值初始化
nSrc = 0;
nDst = 0;// 组内字节序号和残余数据初始化
nByte = 0;
nLeft = 0;
// 将源数据每7个字节分为一组，解压缩成8个字节
// 循环该处理过程，直至源数据被处理完
// 如果分组不到7字节，也能正确处理
while(nSrc<nSrcLength)
{// 将源字节右边部分与残余数据相加，去掉最高位，得到一个目标解码字节*pDst = ((*pSrc << nByte) | nLeft) & 0x7f;// 将该字节剩下的左边部分，作为残余数据保存起来nLeft = *pSrc >> (7-nByte);// 修改目标串的指针和计数值pDst++;nDst++;// 修改字节计数值nByte++;// 到了一组的最后一个字节if(nByte == 7){// 额外得到一个目标解码字节*pDst = nLeft;// 修改目标串的指针和计数值pDst++;nDst++;// 组内字节序号和残余数据初始化nByte = 0;nLeft = 0;}// 修改源串的指针和计数值pSrc++;nSrc++;
}
// 输出字符串加个结束符
*pDst = '/0';
// 返回目标串长度
return nDst;
}// 正常顺序的字符串转换为两两颠倒的字符串，若长度为奇数，补'F'凑成偶数
// 如："8613851872468" --> "683158812764F8"
// 输入: pSrc - 源字符串指针
//        nSrcLength - 源字符串长度
// 输出: pDst - 目标字符串指针
// 返回: 目标字符串长度
int gsmInvertNumbers(const char* pSrc, char* pDst, int nSrcLength)
{
int nDstLength;   // 目标字符串长度
char ch;    // 用于保存一个字符
// 复制串长度
nDstLength = nSrcLength;
// 两两颠倒
for(int i=0; i<nSrcLength;i+=2)
{ch = *pSrc++;   // 保存先出现的字符*pDst++ = *pSrc++; // 复制后出现的字符*pDst++ = ch;   // 复制先出现的字符
}
// 源串长度是奇数吗？
if(nSrcLength & 1)
{*(pDst-2) = 'F'; // 补'F'nDstLength++;   // 目标串长度加1
}
// 输出字符串加个结束符
*pDst = '/0';
// 返回目标字符串长度
return nDstLength;
}// PDU编码，用于编制、发送短消息
// 输入: pSrc - 源PDU参数指针
// 输出: pDst - 目标PDU串指针
// 返回: 目标PDU串长度
int gsmEncodePdu(const SM_PARAM* pSrc, char* pDst)
{
int nLength;    // 内部用的串长度
int nDstLength;    // 目标PDU串长度
unsigned char buf[256]; // 内部用的缓冲区
// SMSC地址信息段
nLength = strlen(pSrc->SCA); // SMSC地址字符串的长度
buf[0] = (char)((nLength & 1) == 0 ? nLength : nLength + 1) / 2 + 1; // SMSC地址信息长度
buf[1] = 0x91;   // 固定: 用国际格式号码
nDstLength = gsmBytes2String(buf, pDst, 2);   // 转换2个字节到目标PDU串
nDstLength += gsmInvertNumbers(pSrc->SCA, &pDst[nDstLength], nLength); // 转换SMSC号码到目标PDU串
// TPDU段基本参数、目标地址等
nLength = strlen(pSrc->TPA); // TP-DA地址字符串的长度
buf[0] = 0x11;      // 是发送短信(TP-MTI=01)，TP-VP用相对格式(TP-VPF=10)
buf[1] = 0;       // TP-MR=0
buf[2] = (char)nLength;    // 目标地址数字个数(TP-DA地址字符串真实长度)
buf[3] = 0x91;      // 固定: 用国际格式号码
nDstLength += gsmBytes2String(buf, &pDst[nDstLength], 4);   // 转换4个字节到目标PDU串
nDstLength += gsmInvertNumbers(pSrc->TPA, &pDst[nDstLength], nLength); // 转换TP-DA到目标PDU串
// TPDU段协议标识、编码方式、用户信息等
nLength = strlen(pSrc->TP_UD); // 用户信息字符串的长度
buf[0] = pSrc->TP_PID;    // 协议标识(TP-PID)
buf[1] = pSrc->TP_DCS;    // 用户信息编码方式(TP-DCS)
buf[2] = 0;       // 有效期(TP-VP)为5分钟
if(pSrc->TP_DCS == GSM_7BIT)
{// 7-bit编码方式buf[3] = nLength;    // 编码前长度nLength = gsmEncode7bit(pSrc->TP_UD, &buf[4], nLength+1) + 4; // 转换TP-DA到目标PDU串
}
else if(pSrc->TP_DCS == GSM_UCS2)
{// UCS2编码方式buf[3] = gsmEncodeUcs2(pSrc->TP_UD, &buf[4], nLength); // 转换TP-DA到目标PDU串nLength = buf[3] + 4;   // nLength等于该段数据长度
}
else
{// 8-bit编码方式buf[3] = gsmEncode8bit(pSrc->TP_UD, &buf[4], nLength); // 转换TP-DA到目标PDU串nLength = buf[3] + 4;   // nLength等于该段数据长度
}
nDstLength += gsmBytes2String(buf, &pDst[nDstLength], nLength);   // 转换该段数据到目标PDU串
// 返回目标字符串长度
return nDstLength;
}// 初始化GSM状态
BOOL gsmInit()
{
char ans[128];   // 应答串
// 测试GSM-MODEM的存在性
WriteComm("AT/r", 3);
ReadComm(ans, 128);
if (strstr(ans, "OK") == NULL)   return FALSE;
// ECHO OFF
WriteComm("ATE0/r", 5);
ReadComm(ans, 128);
// PDU模式
WriteComm("AT+CMGF=0/r", 10);
ReadComm(ans, 128);
return TRUE;
}
// 发送短消息，仅发送命令，不读取应答
// 输入: pSrc - 源PDU参数指针
int gsmSendMessage(SM_PARAM* pSrc)
{
int nPduLength;   // PDU串长度
unsigned char nSmscLength; // SMSC串长度
int nLength;   // 串口收到的数据长度
char cmd[16];   // 命令串
char pdu[512];   // PDU串
char ans[128];   // 应答串
nPduLength = gsmEncodePdu(pSrc, pdu); // 根据PDU参数，编码PDU串
strcat(pdu, "/x01a");   // 以Ctrl-Z结束
gsmString2Bytes(pdu, &nSmscLength, 2); // 取PDU串中的SMSC信息长度
nSmscLength++;   // 加上长度字节本身
// 命令中的长度，不包括SMSC信息长度，以数据字节计
sprintf(cmd, "AT+CMGS=%d/r", nPduLength / 2 - nSmscLength); // 生成命令
// TRACE("%s", cmd);
// TRACE("%s/n", pdu);
WriteComm(cmd, strlen(cmd)); // 先输出命令串
nLength = ReadComm(ans, 128); // 读应答数据
// 根据能否找到"/r/n> "决定成功与否
if(nLength == 4 && strncmp(ans, "/r/n> ", 4) == 0)
{return WriteComm(pdu, strlen(pdu));   // 得到肯定回答，继续输出PDU串
}
return 0;
}