社区
Delphi
帖子详情
通过手机线连接串口发短信的问题(使用Text Mode发中文怎么发)
zypcrp
2004-07-29 11:18:22
用text mode模式.用超级终端发英文可以,发中文就会出现乱码。
...全文
245
8
打赏
收藏
通过手机线连接串口发短信的问题(使用Text Mode发中文怎么发)
用text mode模式.用超级终端发英文可以,发中文就会出现乱码。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zypcrp
2004-07-30
打赏
举报
回复
顶
rebbit
2004-07-30
打赏
举报
回复
呵呵,text模式可以发送中文的,但是编码必须是unicode码?如果需要向西电的资料,可以和我联系了:redfocus@163.com
longtusoft
2004-07-29
打赏
举报
回复
你搜索一下坛子,应该有类似的例子
chwdong
2004-07-29
打赏
举报
回复
不会,接点粪
pressman
2004-07-29
打赏
举报
回复
2
zypcrp
2004-07-29
打赏
举报
回复
1
zypcrp
2004-07-29
打赏
举报
回复
查了一下,好像text模式只能发英文
有没有谁用过三星手机开发过
为啥at+cmgf=0命令不能用.
rebbit
2004-07-29
打赏
举报
回复
四月份我的程序中写了一个这样的函数,贴出来给你参考参考了!
var
Widesms : WideString; // 定义成WideString型,每个字符占两上字节
SendHead, SendData : string;
tmp, len, SS : string;
B:VARIANT;
End_ReadData, a:array of byte;S:string;
I,j:INTEGER;
sShow:Variant;
sR:String;
begin
Sleep(500);
// 参考pdu串 08 91 683108701305F0 11 00 0B 91 3176378290F9 00 00 00 02 C834
SendHead := gSmsHead; SendData := '';
SendData := gSmsData;
// 每两位交换构造接收手机号码串
tmp := ExchangeCode(mobile);
SendData := tmp + SendData;
// 将中文GB2312编码转换为代码页为CP936的Unicode编码
Widesms := WideString(sms);
tmp := EncodeGb(Widesms);
// 此处为Widesms 的长度,不是sms的长度!
len := IntToHex(2*length(Widesms), 2);
SendData := SendData + Len + tmp;
// Pdu串构造完毕,发送
//1
SS := 'AT+CMGF=0' + CHR(13);
MSComm.OutPut := SS;
MSComm.Input;
Application.ProcessMessages;
Sleep(1000);
// sShow := MsComm.Input;
// Memo1.Items.Insert(0,ConvertDataEx(sShow));
//2
SS := 'AT+CMGS=' + IntToStr((Length(SendData) DIV 2) + 4) + CHR(13);
MSComm.OutPut := SS;
MSComm.Input;
Application.ProcessMessages;
Sleep(200);
// sShow := MsComm.Input;
// Memo1.Items.Insert(0,ConvertDataEx(sShow));
//3
SS := SendHead + SendData + CHR(26);
MSComm.OutPut := SS;
MSComm.Input;
Application.ProcessMessages;
Sleep(3000);
// sShow := MsComm.Input;
// Memo1.Items.Insert(0,ConvertDataEx(sShow));
//4
SS := 'AT+CMGF=0' + CHR(13);
MSComm.OutPut := SS;
MSComm.Input;
Application.ProcessMessages;
Sleep(3000);
// sShow := MsComm.Input;
// Memo1.Items.Insert(0,ConvertDataEx(sShow));
end;
电脑
连接
手机
发
短信
根据提供的信息,“电脑
连接
手机
发
短信
”这一主题涉及到的关键技术包括通过物理接口(红外
线
或数据
线
)实现电脑与
手机
的
连接
,以及通过GSM AT指令集来
发
送短信。 #### 二、电脑与
手机
的
连接
方式 1. **数据
线
连接
**...
手机
短信息SMS的 程序开
发
1. **数据
线
连接
**:
使用
特定的数据
线
(如S35/25数据
线
)将
手机
与电脑的串行口
连接
,通过超级终端等软件设置串行口参数(例如,19200速率、无校验、数据位8、停止位1),确保双方的通信顺畅。 2. **红外
线
连接
**:...
手机
短信息SMS的程序开
发
1. **数据
线
连接
**:通过S35/25数据
线
将
手机
与电脑串行口
连接
,需设定正确的
串口
参数,如19200速率、无校验、数据位8、停止位1。 2. **红外
线
连接
**:适用于带有红外端口的电脑,需确保双方红外设备正确对准,且电脑...
MCS-51系列单片机控制
手机
收
发
短信
MCS-51系列单片机可以通过串行接口与GSM
手机
进行通信,实现对
手机
SMS功能的控制。常用的接口
连接
方式有两种:红外
线
连接
和电缆
连接
。红外
线
连接
的优点在于电气隔离,但通信距离较短;电缆
连接
数据传输更加稳定可靠,...
利用
手机
模块实现短消息(TC35iT)
3. AT+CMGF - 选择短信信息格式,0表示PDU模式,1表示文本模式。 4. AT+CMGL - 列出SIM卡中不同状态的短消息,如未读、已读、待
发
和已
发
。 5. AT+CMGR - 读取短消息。 6. AT+CMGS -
发
送短消息。 7. AT+CMGW - 向SIM...
Delphi
5,927
社区成员
262,932
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章