200411314219129
所属分类:手机短信编程
开发工具:Delphi
文件大小:211KB
下载次数:3
上传日期:2013-12-10 10:15:53
上 传 者:
bbbbbb26
说明: 一个短信通讯控制,方便的使你可以通过简单的编程就可以操作短信。
(A communication control messages, so you can conveniently simple programming can operate SMS.)
文件列表:
200411314219129\FfrmMain.pas (4806, 2004-06-06)
200411314219129\FfrmMain.dcu (10194, 2004-06-06)
200411314219129\FfrmMain.dfm (4770, 2004-06-06)
200411314219129\SMSControl.dpr (239, 2004-06-05)
200411314219129\CSMSControl.dcu (26800, 2004-06-06)
200411314219129\SPComm.pas (63049, 1997-05-10)
200411314219129\SMSControl.exe (435200, 2004-06-06)
200411314219129 (0, 2007-03-24)
短信收发控件使用说明:
使用时不能将控件直接放在窗体上,需要定义并自己创建,具体使用方法参看示例程序。
控件只提供dcu文件。
控件从SPComm继承,并且增加了短信收发功能,对于SPComm的相关属性和事件不在此进行说明,下面只介绍与短信相关的属性、方法和事件。
Delphi 7下、wavecom 设备下调试通过。
共享版暂不提供对西门子、诺基亚模块的支持。
开发计划:
1.解决直接放置在窗体上使用的问题。
2.提供dll、OCX,供vb,vc等程序使用。
3.提供源码(暂不提供,请不要联系索要)
计划只是计划,看看有没有时间,比竟还有工作...^_^
一、属性
1.AutoDeleteMsg:Boolean 自动删除短信
如果设置为True,则在读取短信时自动删除该短信,收到新短信时读取后也自动删除。
二、方法
1.WriteCommDataAT(AT:String);
发送AT命令,立即执行
2.PushCommand(AT:String;ATType:Integer);
将命令压入命令队列,由控件在设备空闲时自动发出
ATType备用,可写任意整数
3.SendSMS(PhoneNO:String;Msg:String): Integer;
立即发送短信命令
PhoneNO:手机号码
Msg:短信内容
4.PushSMS(SMSID:Integer;SMSPhoneNO,SMSMsg:String;SMSSendTime:TDatetime)
将短信压入待发短信队列,牙控件在设备空闲时自动发出
SMSID:短信序列号,在控件的OnSMSSendOKEvent事件中将返回发送成功的SMSID,建议使用数据库中的ID字段进行标志
PhoneNO:手机号码
Msg:短信内容
SMSSendTime:发送时间,备用,为定时发送而设
5.SetOpenProcess(Value:Boolean);
启动/停止命令执行,包括发送短信进程
6.InitSMS(CenterNO:String);
初始化短信设备,设置为PDU格式,并且初始化短信中心
CenterN:短信中心号码,不带加号,如:8613010166500
7.GetCommandQueueCount: Integer;
返回命令队列中待发命令个数
8.GetSendQueueCount: Integer;
返回命令队列中待发短信个数
三、事件
1.OnSMSNewEvent(PhoneNO,Msg,MsgTime:String);
收到短信事件
PhoneNO:手机号码
Msg:短信内容
MsgTime:收到时间
2.OnSMSSendOKEvent(ID:Integer);
短信发送成功事件
ID:发送成功短信索引,为在PushSMS中所设的SMSID
近期下载者:
相关文件:
收藏者: