短信猫delphi版的短信猫二次开发控件

      支持delphi开发语言的短信猫二次开发控件-短信猫控件ocx版v8.0，支持VB、Delphi，VC，PB,.net多种开发平台，
提供有免费版控件供测试，并提供有开发文档、例子，实现不同的短信猫开发应用，轻松实现企业短信发送功能。
短信猫二次开发控件特点：
设备低廉：采用手机发送、接收，无须上网，一般的电脑均可支持使用。
发送快速：正常情况下即可达到: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