用Delphi实现BP机、手机短讯 精华篇[1]

很多人一定用过OICQ想必也用过了它的BP机短讯手机短讯编程的朋友一定想实现这种功能

如果你的程序能发到手机发到BP机一定很酷现在我就介绍一种可行的方法

一原理

它不同于OICQ的双方都在网上才能进行交流的寻呼功能它可以将文字信息发送到真正的寻呼机上

只要你能够上网就可以自己动手随时随地将信息发送出去即使你在国外也可以利用它来向

国内的友人发送信息了而且不用交纳国际长途费用是不是方便又省事呢！

二分析

现在网上各寻呼台都有网上服务网页寻呼(Web Paging)就是常用的一种它是通过在互联网上访问

寻呼台的主页然后由寻呼台的信息寻呼系统打传呼所以我们只要利用HTTP协议就可以实现网络

寻呼了以下就简单介绍一下HTTP协议 HTTP中完成一个会话通常要完成

)客户端程序与服务器建立连接

)发送请求

)服务器响应客户端

)关闭连接

HTTP常用到的请求有

)GET(请求一万维网页)

)HEAD(读取一万维网页的头部)

)PUT(请求一存储万维网页)

)POST(附加一个命名的资源)

)DELETE(删除万维网页)

)LINK(连接两个已有的资源)

)UNLINK(断开两个已有资源的连接)

HTTP中常用到的应答状态代码有(*号代表间的一个数)

** (信息)

**(成功)

**(客户端错误)

**(服务器错误)

其实我们要实现的程序只用POSTGET请求收到正常应答就可以了POST可以用于把用户输入

的数据以数据流的方式传给CGI程序CGI通过ContectLength环境变量来取相应长度的数据流信息

POST请求格式如下

POST http://wwwscutaeducn/stu/chatroom/checkasp HTTP/Accept: image/gif image/xxbitmap image/jpeg image/pjpeg application/vndmspowerpoint application/vndmsexcel application/msword */*Referer: http://wwwscutaeducn/stu/AcceptLanguage: zhcnContentType: application/xwwwformurlencodedProxyConnection: KeepAliveUserAgent: Mozilla/ (compatible; MSIE ; Windows )Host: wwwscutaeducnContentLength: Pragma: nocacheCookie: ASPSESSIONIDQGGGQHHE=ABGNNOJCIGOFCDLBIOLHKAFK

服务器正常应答的头部结构为

OK HTTP/ 说明提交数据成功

三程序的实现

Delphi中NMHTTP已经可以很容易的实现上面的所说的数据提交而且它还支持Proxy这样对于通过

代理服务器上网一样可以适用并且它不是OICQ中发送讯信所用到SOCKET代理

新建一个窗体加入组件一个ComboBox命名为callto用于存放寻呼对象如国信寻呼就有加入组件Edit命名为tonumber

表示寻呼号码加入组件RadioGroup命名为RadioGroupCaption设为呼机类型items中加入两

项分别为中文机数字机;加入组件Edit命名为firstName用于表示发寻呼人的姓加入组件RadioGroup命名为RadioGroupCaption设为寻呼人性别items中加入两项分别为先生小姐;

加入组件Memo命名为callmsg用于输入发送的信息(注对于数字机只能是数字信息)加入组件NMHTTP命名为NMHTTP加入Checkbox命名为ifuseproxy用于确定是否使用代理服务器;加入两

个Edit组件分别用于软件代理服务器地址代理服务器端口最后加入命令按钮Caption设为发送

[] []