1 #include "stdafx.h"
2 #include "Sms.h"
3 #include "Comm.h"
4
5 // 可打印字符串转换为字节数据
6 // 如："C8329BFD0E01" --> {0xC8, 0x32, 0x9B, 0xFD, 0x0E, 0x01}
7 // 输入: pSrc - 源字符串指针
8 // nSrcLength - 源字符串长度
9 // 输出: pDst - 目标数据指针
10 // 返回: 目标数据长度
11 int gsmString2Bytes(const char* pSrc, unsigned char* pDst, int nSrcLength)
12 {
13 for (int i = 0; i < nSrcLength; i += 2)
14 {
15 // 输出高4位
16 if ((*pSrc >= '0') && (*pSrc <= '9'))
17 {
18 *pDst = (*pSrc - '0') << 4;
19 }
20 else
21 {
22 *pDst = (*pSrc - 'A' + 10) << 4;
23 }
24
25 pSrc++;
26
27 // 输出低4位
28 if ((*pSrc>='0') && (*pSrc<='9'))
29 {
30 *pDst |= *pSrc - '0';
31 }
32 else
33 {
34 *pDst |= *pSrc - 'A' + 10;
35 }
36
37 pSrc++;
38 pDst++;
39 }
40
41 // 返回目标数据长度
42 return (nSrcLength / 2);
43 }
44
45 // 字节数据转换为可打印字符串
46 // 如：{0xC8, 0x32, 0x9B, 0xFD, 0x0E, 0x01} --> "C8329BFD0E01"
47 // 输入: pSrc - 源数据指针
48 // nSrcLength - 源数据长度
49 // 输出: pDst - 目标字符串指针
50 // 返回: 目标字符串长度
51 int gsmBytes2String(const unsigned char* pSrc, char* pDst, int nSrcLength)
52 {
53 const char tab[]="0123456789ABCDEF"; // 0x0-0xf的字符查找表
54
55 for (int i = 0; i < nSrcLength; i++)
56 {
57 *pDst++ = tab[*pSrc >> 4]; // 输出高4位
58 *pDst++ = tab[*pSrc & 0x0f]; // 输出低4位
59 pSrc++;
60 }
61
62 // 输出字符串加个结束符
63 *pDst = '\0';
64
65 // 返回目标字符串长度
66 return (nSrcLength * 2);
67 }
68
69 // 7bit编码
70 // 输入: pSrc - 源字符串指针
71 // nSrcLength - 源字符串长度
72 // 输出: pDst - 目标编码串指针
73 // 返回: 目标编码串长度
74 int gsmEncode7bit(const char* pSrc, unsigned char* pDst, int nSrcLength)
75 {
76 int nSrc; // 源字符串的计数值
77 int nDst; // 目标编码串的计数值
78 int nChar; // 当前正在处理的组内字符字节的序号，范围是0-7
79 unsigned char nLeft; // 上一字节残余的数据
80
81 // 计数值初始化
82 nSrc = 0;
83 nDst = 0;
84
85 // 将源串每8个字节分为一组，压缩成7个字节
86 // 循环该处理过程，直至源串被处理完
87 // 如果分组不到8字节，也能正确处理
88 while (nSrc < nSrcLength)
89 {
90 // 取源字符串的计数值的最低3位
91 nChar = nSrc & 7;
92
93 // 处理源串的每个字节
94 if(nChar == 0)
95 {
96 // 组内第一个字节，只是保存起来，待处理下一个字节时使用
97 nLeft = *pSrc;
98 }
99 else
100 {
101 // 组内其它字节，将其右边部分与残余数据相加，得到一个目标编码字节
102 *pDst = (*pSrc << (8-nChar)) | nLeft;
103
104 // 将该字节剩下的左边部分，作为残余数据保存起来
105 nLeft = *pSrc >> nChar;
106
107 // 修改目标串的指针和计数值
108 pDst++;
109 nDst++;
110 }
111
112 // 修改源串的指针和计数值
113 pSrc++;
114 nSrc++;
115 }
116
117 // 返回目标串长度
118 return nDst;
119 }
120
121 // 7bit解码
122 // 输入: pSrc - 源编码串指针
123 // nSrcLength - 源编码串长度
124 // 输出: pDst - 目标字符串指针
125 // 返回: 目标字符串长度
126 int gsmDecode7bit(const unsigned char* pSrc, char* pDst, int nSrcLength)
127 {
128 int nSrc; // 源字符串的计数值
129 int nDst; // 目标解码串的计数值
130 int nByte; // 当前正在处理的组内字节的序号，范围是0-6
131 unsigned char nLeft; // 上一字节残余的数据
132
133 // 计数值初始化
134 nSrc = 0;
135 nDst = 0;
136
137 // 组内字节序号和残余数据初始化
138 nByte = 0;
139 nLeft = 0;
140
141 // 将源数据每7个字节分为一组，解压缩成8个字节
142 // 循环该处理过程，直至源数据被处理完
143 // 如果分组不到7字节，也能正确处理
144 while(nSrc<nSrcLength)
145 {
146 // 将源字节右边部分与残余数据相加，去掉最高位，得到一个目标解码字节
147 *pDst = ((*pSrc << nByte) | nLeft) & 0x7f;
148
149 // 将该字节剩下的左边部分，作为残余数据保存起来
150 nLeft = *pSrc >> (7-nByte);
151
152 // 修改目标串的指针和计数值
153 pDst++;
154 nDst++;
155
156 // 修改字节计数值
157 nByte++;
158
159 // 到了一组的最后一个字节
160 if(nByte == 7)
161 {
162 // 额外得到一个目标解码字节
163 *pDst = nLeft;
164
165 // 修改目标串的指针和计数值
166 pDst++;
167 nDst++;
168
169 // 组内字节序号和残余数据初始化
170 nByte = 0;
171 nLeft = 0;
172 }
173
174 // 修改源串的指针和计数值
175 pSrc++;
176 nSrc++;
177 }
178
179 // 输出字符串加个结束符
180 *pDst = '\0';
181
182 // 返回目标串长度
183 return nDst;
184 }
185
186 // 8bit编码
187 // 输入: pSrc - 源字符串指针
188 // nSrcLength - 源字符串长度
189 // 输出: pDst - 目标编码串指针
190 // 返回: 目标编码串长度
191 int gsmEncode8bit(const char* pSrc, unsigned char* pDst, int nSrcLength)
192 {
193 // 简单复制
194 memcpy(pDst, pSrc, nSrcLength);
195
196 return nSrcLength;
197 }
198
199 // 8bit解码
200 // 输入: pSrc - 源编码串指针
201 // nSrcLength - 源编码串长度
202 // 输出: pDst - 目标字符串指针
203 // 返回: 目标字符串长度
204 int gsmDecode8bit(const unsigned char* pSrc, char* pDst, int nSrcLength)
205 {
206 // 简单复制
207 memcpy(pDst, pSrc, nSrcLength);
208
209 // 输出字符串加个结束符
210 *pDst = '\0';
211
212 return nSrcLength;
213 }
214
215 // UCS2编码
216 // 输入: pSrc - 源字符串指针
217 // nSrcLength - 源字符串长度
218 // 输出: pDst - 目标编码串指针
219 // 返回: 目标编码串长度
220 int gsmEncodeUcs2(const char* pSrc, unsigned char* pDst, int nSrcLength)
221 {
222 int nDstLength; // UNICODE宽字符数目
223 WCHAR wchar[128]; // UNICODE串缓冲区
224
225 // 字符串-->UNICODE串
226 nDstLength = MultiByteToWideChar(CP_ACP, 0, pSrc, nSrcLength, wchar, 128);
227
228 // 高低字节对调，输出
229 for(int i=0; i<nDstLength; i++)
230 {
231 *pDst++ = wchar[i] >> 8; // 先输出高位字节
232 *pDst++ = wchar[i] & 0xff; // 后输出低位字节
233 }
234
235 // 返回目标编码串长度
236 return nDstLength * 2;
237 }
238
239 // UCS2解码
240 // 输入: pSrc - 源编码串指针
241 // nSrcLength - 源编码串长度
242 // 输出: pDst - 目标字符串指针
243 // 返回: 目标字符串长度
244 int gsmDecodeUcs2(const unsigned char* pSrc, char* pDst, int nSrcLength)
245 {
246 int nDstLength; // UNICODE宽字符数目
247 WCHAR wchar[128]; // UNICODE串缓冲区
248
249 // 高低字节对调，拼成UNICODE
250 for(int i=0; i<nSrcLength/2; i++)
251 {
252 wchar[i] = *pSrc++ << 8; // 先高位字节
253 wchar[i] |= *pSrc++; // 后低位字节
254 }
255
256 // UNICODE串-->字符串
257 nDstLength = WideCharToMultiByte(CP_ACP, 0, wchar, nSrcLength/2, pDst, 160, NULL, NULL);
258
259 // 输出字符串加个结束符
260 pDst[nDstLength] = '\0';
261
262 // 返回目标字符串长度
263 return nDstLength;
264 }
265
266 // 正常顺序的字符串转换为两两颠倒的字符串，若长度为奇数，补'F'凑成偶数
267 // 如："8613851872468" --> "683158812764F8"
268 // 输入: pSrc - 源字符串指针
269 // nSrcLength - 源字符串长度
270 // 输出: pDst - 目标字符串指针
271 // 返回: 目标字符串长度
272 int gsmInvertNumbers(const char* pSrc, char* pDst, int nSrcLength)
273 {
274 int nDstLength; // 目标字符串长度
275 char ch; // 用于保存一个字符
276
277 // 复制串长度
278 nDstLength = nSrcLength;
279
280 // 两两颠倒
281 for(int i=0; i<nSrcLength;i+=2)
282 {
283 ch = *pSrc++; // 保存先出现的字符
284 *pDst++ = *pSrc++; // 复制后出现的字符
285 *pDst++ = ch; // 复制先出现的字符
286 }
287
288 // 源串长度是奇数吗？
289 if(nSrcLength & 1)
290 {
291 *(pDst-2) = 'F'; // 补'F'
292 nDstLength++; // 目标串长度加1
293 }
294
295 // 输出字符串加个结束符
296 *pDst = '\0';
297
298 // 返回目标字符串长度
299 return nDstLength;
300 }
301
302 // 两两颠倒的字符串转换为正常顺序的字符串
303 // 如："683158812764F8" --> "8613851872468"
304 // 输入: pSrc - 源字符串指针
305 // nSrcLength - 源字符串长度
306 // 输出: pDst - 目标字符串指针
307 // 返回: 目标字符串长度
308 int gsmSerializeNumbers(const char* pSrc, char* pDst, int nSrcLength)
309 {
310 int nDstLength; // 目标字符串长度
311 char ch; // 用于保存一个字符
312
313 // 复制串长度
314 nDstLength = nSrcLength;
315
316 // 两两颠倒
317 for(int i=0; i<nSrcLength;i+=2)
318 {
319 ch = *pSrc++; // 保存先出现的字符
320 *pDst++ = *pSrc++; // 复制后出现的字符
321 *pDst++ = ch; // 复制先出现的字符
322 }
323
324 // 最后的字符是'F'吗？
325 if(*(pDst-1) == 'F')
326 {
327 pDst--;
328 nDstLength--; // 目标字符串长度减1
329 }
330
331 // 输出字符串加个结束符
332 *pDst = '\0';
333
334 // 返回目标字符串长度
335 return nDstLength;
336 }
337
338 // PDU编码，用于编制、发送短消息
339 // 输入: pSrc - 源PDU参数指针
340 // 输出: pDst - 目标PDU串指针
341 // 返回: 目标PDU串长度
342 int gsmEncodePdu(const SM_PARAM* pSrc, char* pDst)
343 {
344 int nLength; // 内部用的串长度
345 int nDstLength; // 目标PDU串长度
346 unsigned char buf[256]; // 内部用的缓冲区
347
348 // SMSC地址信息段
349 nLength = strlen(pSrc->SCA); // SMSC地址字符串的长度
350 buf[0] = (char)((nLength & 1) == 0 ? nLength : nLength + 1) / 2 + 1; // SMSC地址信息长度
351 buf[1] = 0x91; // 固定: 用国际格式号码
352 nDstLength = gsmBytes2String(buf, pDst, 2); // 转换2个字节到目标PDU串
353 nDstLength += gsmInvertNumbers(pSrc->SCA, &pDst[nDstLength], nLength); // 转换SMSC号码到目标PDU串
354
355 // TPDU段基本参数、目标地址等
356 nLength = strlen(pSrc->TPA); // TP-DA地址字符串的长度
357 buf[0] = 0x11; // 是发送短信(TP-MTI=01)，TP-VP用相对格式(TP-VPF=10)
358 buf[1] = 0; // TP-MR=0
359 buf[2] = (char)nLength; // 目标地址数字个数(TP-DA地址字符串真实长度)
360 buf[3] = 0x91; // 固定: 用国际格式号码
361 nDstLength += gsmBytes2String(buf, &pDst[nDstLength], 4); // 转换4个字节到目标PDU串
362 nDstLength += gsmInvertNumbers(pSrc->TPA, &pDst[nDstLength], nLength); // 转换TP-DA到目标PDU串
363
364 // TPDU段协议标识、编码方式、用户信息等
365 nLength = strlen(pSrc->TP_UD); // 用户信息字符串的长度
366 buf[0] = pSrc->TP_PID; // 协议标识(TP-PID)
367 buf[1] = pSrc->TP_DCS; // 用户信息编码方式(TP-DCS)
368 buf[2] = 0; // 有效期(TP-VP)为5分钟
369 if(pSrc->TP_DCS == GSM_7BIT)
370 {
371 // 7-bit编码方式
372 buf[3] = nLength; // 编码前长度
373 nLength = gsmEncode7bit(pSrc->TP_UD, &buf[4], nLength+1) + 4; // 转换TP-DA到目标PDU串
374 }
375 else if(pSrc->TP_DCS == GSM_UCS2)
376 {
377 // UCS2编码方式
378 buf[3] = gsmEncodeUcs2(pSrc->TP_UD, &buf[4], nLength); // 转换TP-DA到目标PDU串
379 nLength = buf[3] + 4; // nLength等于该段数据长度
380 }
381 else
382 {
383 // 8-bit编码方式
384 buf[3] = gsmEncode8bit(pSrc->TP_UD, &buf[4], nLength); // 转换TP-DA到目标PDU串
385 nLength = buf[3] + 4; // nLength等于该段数据长度
386 }
387 nDstLength += gsmBytes2String(buf, &pDst[nDstLength], nLength); // 转换该段数据到目标PDU串
388
389 // 返回目标字符串长度
390 return nDstLength;
391 }
392
393 // PDU解码，用于接收、阅读短消息
394 // 输入: pSrc - 源PDU串指针
395 // 输出: pDst - 目标PDU参数指针
396 // 返回: 用户信息串长度
397 int gsmDecodePdu(const char* pSrc, SM_PARAM* pDst)
398 {
399 int nDstLength; // 目标PDU串长度
400 unsigned char tmp; // 内部用的临时字节变量
401 unsigned char buf[256]; // 内部用的缓冲区
402
403 // SMSC地址信息段
404 gsmString2Bytes(pSrc, &tmp, 2); // 取长度
405 tmp = (tmp - 1) * 2; // SMSC号码串长度
406 pSrc += 4; // 指针后移，忽略了SMSC地址格式
407 gsmSerializeNumbers(pSrc, pDst->SCA, tmp); // 转换SMSC号码到目标PDU串
408 pSrc += tmp; // 指针后移
409
410 // TPDU段基本参数
411 gsmString2Bytes(pSrc, &tmp, 2); // 取基本参数
412 pSrc += 2; // 指针后移
413
414 // 取回复号码
415 gsmString2Bytes(pSrc, &tmp, 2); // 取长度
416 if(tmp & 1) tmp += 1; // 调整奇偶性
417 pSrc += 4; // 指针后移，忽略了回复地址(TP-RA)格式
418 gsmSerializeNumbers(pSrc, pDst->TPA, tmp); // 取TP-RA号码
419 pSrc += tmp; // 指针后移
420
421 // TPDU段协议标识、编码方式、用户信息等
422 gsmString2Bytes(pSrc, (unsigned char*)&pDst->TP_PID, 2); // 取协议标识(TP-PID)
423 pSrc += 2; // 指针后移
424 gsmString2Bytes(pSrc, (unsigned char*)&pDst->TP_DCS, 2); // 取编码方式(TP-DCS)
425 pSrc += 2; // 指针后移
426 gsmSerializeNumbers(pSrc, pDst->TP_SCTS, 14); // 服务时间戳字符串(TP_SCTS)
427 pSrc += 14; // 指针后移
428 gsmString2Bytes(pSrc, &tmp, 2); // 用户信息长度(TP-UDL)
429 pSrc += 2; // 指针后移
430 if(pDst->TP_DCS == GSM_7BIT)
431 {
432 // 7-bit解码
433 nDstLength = gsmString2Bytes(pSrc, buf, tmp & 7 ? (int)tmp * 7 / 4 + 2 : (int)tmp * 7 / 4); // 格式转换
434 gsmDecode7bit(buf, pDst->TP_UD, nDstLength); // 转换到TP-DU
435 nDstLength = tmp;
436 }
437 else if(pDst->TP_DCS == GSM_UCS2)
438 {
439 // UCS2解码
440 nDstLength = gsmString2Bytes(pSrc, buf, tmp * 2); // 格式转换
441 nDstLength = gsmDecodeUcs2(buf, pDst->TP_UD, nDstLength); // 转换到TP-DU
442 }
443 else
444 {
445 // 8-bit解码
446 nDstLength = gsmString2Bytes(pSrc, buf, tmp * 2); // 格式转换
447 nDstLength = gsmDecode8bit(buf, pDst->TP_UD, nDstLength); // 转换到TP-DU
448 }
449
450 // 返回目标字符串长度
451 return nDstLength;
452 }
453
454 // 初始化GSM状态
455 BOOL gsmInit()
456 {
457 char ans[128]; // 应答串
458
459 // 测试GSM-MODEM的存在性
460 WriteComm("AT\r", 3);
461 ReadComm(ans, 128);
462 if (strstr(ans, "OK") == NULL) return FALSE;
463
464 // ECHO OFF
465 WriteComm("ATE0\r", 5);
466 ReadComm(ans, 128);
467
468 // PDU模式
469 WriteComm("AT+CMGF=0\r", 10);
470 ReadComm(ans, 128);
471
472 return TRUE;
473 }
474
475 // 发送短消息，仅发送命令，不读取应答
476 // 输入: pSrc - 源PDU参数指针
477 int gsmSendMessage(SM_PARAM* pSrc)
478 {
479 int nPduLength; // PDU串长度
480 unsigned char nSmscLength; // SMSC串长度
481 int nLength; // 串口收到的数据长度
482 char cmd[16]; // 命令串
483 char pdu[512]; // PDU串
484 char ans[128]; // 应答串
485
486 nPduLength = gsmEncodePdu(pSrc, pdu); // 根据PDU参数，编码PDU串
487 strcat(pdu, "\x01a"); // 以Ctrl-Z结束
488
489 gsmString2Bytes(pdu, &nSmscLength, 2); // 取PDU串中的SMSC信息长度
490 nSmscLength++; // 加上长度字节本身
491
492 // 命令中的长度，不包括SMSC信息长度，以数据字节计
493 sprintf(cmd, "AT+CMGS=%d\r", nPduLength / 2 - nSmscLength); // 生成命令
494
495 // TRACE("%s", cmd);
496 // TRACE("%s\n", pdu);
497
498 WriteComm(cmd, strlen(cmd)); // 先输出命令串
499
500 nLength = ReadComm(ans, 128); // 读应答数据
501
502 // 根据能否找到"\r\n> "决定成功与否
503 if(nLength == 4 && strncmp(ans, "\r\n> ", 4) == 0)
504 {
505 return WriteComm(pdu, strlen(pdu)); // 得到肯定回答，继续输出PDU串
506 }
507
508 return 0;
509 }
510
511 // 读取短消息，仅发送命令，不读取应答
512 // 用+CMGL代替+CMGR，可一次性读出全部短消息
513 int gsmReadMessageList()
514 {
515 return WriteComm("AT+CMGL\r", 8);
516 }
517
518 // 删除短消息，仅发送命令，不读取应答
519 // 输入: index - 短消息序号，1-255
520 int gsmDeleteMessage(int index)
521 {
522 char cmd[16]; // 命令串
523
524 sprintf(cmd, "AT+CMGD=%d\r", index); // 生成命令
525
526 // 输出命令串
527 return WriteComm(cmd, strlen(cmd));
528 }
529
530 // 读取GSM MODEM的应答，可能是一部分
531 // 输出: pBuff - 接收应答缓冲区
532 // 返回: GSM MODEM的应答状态, GSM_WAIT/GSM_OK/GSM_ERR
533 // 备注: 可能需要多次调用才能完成读取一次应答，首次调用时应将pBuff初始化
534 int gsmGetResponse(SM_BUFF* pBuff)
535 {
536 int nLength; // 串口收到的数据长度
537 int nState;
538
539 // 从串口读数据，追加到缓冲区尾部
540 nLength = ReadComm(&pBuff->data[pBuff->len], 128);
541 pBuff->len += nLength;
542
543 // 确定GSM MODEM的应答状态
544 nState = GSM_WAIT;
545 if ((nLength > 0) && (pBuff->len >= 4))
546 {
547 if (strncmp(&pBuff->data[pBuff->len - 4], "OK\r\n", 4) == 0) nState = GSM_OK;
548 else if (strstr(pBuff->data, "+CMS ERROR") != NULL) nState = GSM_ERR;
549 }
550
551 return nState;
552 }
553
554 // 从列表中解析出全部短消息
555 // 输入: pBuff - 短消息列表缓冲区
556 // 输出: pMsg - 短消息缓冲区
557 // 返回: 短消息条数
558 int gsmParseMessageList(SM_PARAM* pMsg, SM_BUFF* pBuff)
559 {
560 int nMsg; // 短消息计数值
561 char* ptr; // 内部用的数据指针
562
563 nMsg = 0;
564 ptr = pBuff->data;
565
566 // 循环读取每一条短消息, 以"+CMGL:"开头
567 while((ptr = strstr(ptr, "+CMGL:")) != NULL)
568 {
569 ptr += 6; // 跳过"+CMGL:", 定位到序号
570 sscanf(ptr, "%d", &pMsg->index); // 读取序号
571 // TRACE(" index=%d\n",pMsg->index);
572
573 ptr = strstr(ptr, "\r\n"); // 找下一行
574 if (ptr != NULL)
575 {
576 ptr += 2; // 跳过"\r\n", 定位到PDU
577
578 gsmDecodePdu(ptr, pMsg); // PDU串解码
579
580 pMsg++; // 准备读下一条短消息
581 nMsg++; // 短消息计数加1
582 }
583 }
584
585 return nMsg;
586 }
