文件名称:SMS短信收发纯Delphi开发VCL
文件大小:239KB
文件格式:RAR
更新时间:2009-03-15 02:52:39
控件 源码 网络通讯 资源
短信收发控件使用说明: Build 20040606(Beta 1)使用时不能将控件直接放在窗体上,需要定义并自己创建,具体使用方法参看示例程序。控件只提供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:短信中心号码,不带加号,如:86130101665007.GetCommandQueueCount: Integer;返回命令队列中待发命令个数8.GetSendQueueCount: Integer;返回命令队列中待发短信个数三、事件1.OnSMSNewEvent(PhoneNO,Msg,MsgTime:String);收到短信事件PhoneNO:手机号码Msg:短信内容MsgTime:收到时间2.OnSMSSendOKEvent(ID:Integer);短信发送成功事件ID:发送成功短信索引,为在PushSMS中所设的SMSID作者保留所有权力。共享版在发送短信前会加上adsg@tom.com的信息! adsg http://www.tinsoftware.com adsg@Tom.com
【文件预览】:
SMSControl.dpr
FfrmMain.dcu
FfrmMain.pas
CSMSControl.dcu
SMSControl.exe
ReadMe.txt
FfrmMain.dfm
SPComm.pas