SMS短信收发纯Delphi开发VCL
短信收发控件使用说明： 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 短信时读取后也自动删除。二、方法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