Delphi写的通过串口发送短信的控件

         ShortSMS是一款短信功能二次开发控件,本控件是用Delphi7开发的。本控件支持市场上大部分的手机和GSM专用模块,本控件的功能具备短信发送短信、查看信号强度、读取SIM卡短信、删除SIM卡短信等功能。

         本控件是我在2003年做的,在CSDN的软件频道可以找到,供大家参考!如有需要源程序的请与联系。

 

<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

width="468" height="60" frameborder="0" align="middle" border="0" marginheight="1" marginwidth="1" src="http://b199.cn/blog_ads/Google_468_60.htm" name="I1">

短信收发控件使用说明: 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
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Everest

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值