delphi版的二次开发

提供有免费版控件供测试，并提供有开发文档、例子，实现不同的开发应用，轻松实现企业短信发送功能。

二次开发控件特点：
设备低廉：采用手机发送、接收，无须上网，一般的电脑均可支持使用。
发送快速：正常情况下即可达到:500-1200条/小时,或更高。
支持诺基亚、西门之等标准GSM手机和专用短消息发送设备。
支持数据线及红外连接方式。
收发双便：支持短消息实时收发、自动保存。
大扩展性：最大支持16个串口同时发送，享受电信级的发送快感。
强实时性：理想状态下，一条短信息自发出到被接收只需２－３秒钟。
无限长度：本平台运用自动分隔功能，您可不限字数地输入，会自动分解成若干条。
OCX控件方式提供，使用极其方便，更灵活，可无缝加入你的系统中
支持状态报告（短信到达通知）
属性、方法、事件抽象合理、精简，容易理解使用
事件驱动方式，占用系统资源少，运行效率高

开发举例：
第一步：先设置好“CommPort”和“Smsservice”属性，有必要时更改settings属性值
例如：
Smsgate1.CommPort=2
Smsgate1. Smsservice =”+8613800531500”
Smsgate1. Settings =”19200,n,8,1”
第二步：连接手机 a = Me.Smsgate1.Connect

第三步：发信息 a=.Smsgate1.sendsms(“测试内容”, “13510229725”, 1)

第四步：收信息（有两种收信息的方式）
A、手工读取： a = Me.Smsgate1.ReadMsg(4) ‘读取手机中所有信息
B、自动读取新信息： 在OnRecvMsg事件中取得新收到的信息（前提是先运行了RevAuto，否则不会产生OnRecvMsg事件）
Private Sub Smsgate1_OnRecvMsg()
MsgBox "有新信息啦！"
A= Me.Smsgate1.NewMsg ‘ 自动接收到的信息内容存放在NewMsg属性中
‘-------------------------对A 进行处理，如存入数据等，a的格式见[附二]
End Sub
第五步：获得发送的反馈报告
A、在OnRevReport事件中，使用NewReport方法获得发送报告内容

Private Sub Smsgate1_OnRevReport()
a=Smsgate1.NewReport
‘-------------------------对A 进行处理，如存入数据等，a的格式见[附三]
End Sub

第六步： 删除手机中信息（有两种方式）
A、 手工删除： a = DelSms(1)
B、 自动删除：把ReadAndDel属性设为true,这样控件在接收到信息后，自动删除手机的信息