Delphi制作GSM Modem的短信发送控件

　　目前大多数的企业及学校内部都建有Intranet。并建有内部网站实现资源共享。为了使用户及时的得知网上的最新信息，很多网站都采用了手机短信提醒的方式，但使用中国移动或中国联通的SP方式，会大大的增加企业的成本。故本文讨论的是利用GSM Modem和短信发送控件来实现的短信提醒。

　　首先，介绍一下笔者所使用环境。

　　服务器：Windows 2000 Advanced Server、IIS 5.0、ASP、SQL Server 2000

　　客户端：Windows XP 或Windows 2000

　　开发工具:Delphi6.0,APRO4.06

　　在建立项目之前先在Delphi6中安装APRO控件，这是笔者使用的方法，读者也可以用comm32。

　　安装APRO如图1

　　装好后，新建项目。

　　选择ActiveX Library

　　点击OK后。保存项目命名为jksms.dpr.

　　新建一个自动化对象

　　命名为：sms点击OK.

　　保存单元文件，命名为：main.pas。

　　新建方法：sendmsg

　　为该方法添加参数。

　　Comnumber：GSM　Modem所在的串口号。