用Delphi实现手机短讯.doc

用Delphi实现手机短讯 ??? 很多人一定用过oicq，想必也用过了它的bp机短讯、手机短讯，编程的朋友一定想实现这种功能，如果你的程序能发到手机、发到bp机一定很酷。???? 现在我就介绍一种可行的方法。??? 一、原理????????????? 它不同于oicq的双方都在网上才能进行交流的寻呼功能，它可以将文字信息发送到真正的寻呼机上。只要你能够上网，就可以自己动手，随时随地将信息发送出去，即使你在国外，也可以利用它来向国内的友人发送信息了，而且不用交纳国际长途费用，是不是方便又省事呢！ ?? 二、分析????????????? 现在网上各寻呼台都有网上服务,网页寻呼(web paging)就是常用的一种。它是通过在互联网上访问寻呼台的主页，然后由寻呼台的信息寻呼系统打传呼。所以我们只要利用http协议就可以实现网络寻呼了。以下就简单介绍一下http协议：?? http中完成一个会话通常要完成：1)客户端程序与服务器建立连接2)发送请求3)服务器响应客户端4)关闭连接?? http常用到的请求有：1)get(请求一万维网页) 2)head(读取一万维网页的头部) 3)put(请求一存储万维网页) 4)post(附加一个命名的资源) 5)delete(删除万维网页) 6)link(连接两个已有的资源) 7)unlink(断开两个已有资源的连接)?? http中常用到的应答状态代码有：(*号代表0-9间的一个数) 1. 1** (信息) 2. 2**(成功) 3.4**(客户端错误) 4.5**(服务器错误)?? 其实我们要实现的程序，只用post、get请求，收到正常应答就可以了。post可以用于把用户输入的数据以数据流的方式传给cgi程序，cgi通过contect-length环境变量来取相应长度的数据流信息。post请求格式如下：post /stu/chatroom/check.asp http/1.0accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-powerpoint, application/vnd.ms-excel, application/msword, */*referer: /stu/accept-language: zh-cncontent-type: application/x-www-form-urlencodedproxy-connection: keep-aliveuser-agent: mozilla/4.0 (compatible; msie 5.5; windows 98)host: content-length: 87pragma: no-cachecookie: aspsessionidqgggqhhe=abgnnojcigofcdlbiolhkafk服务器正常应答的头部结构为：? 200 ok http/1.0? 说明提交数据成功??? 三、程序的实现???????????? delphi中nmhttp已经可以很容易的实现上面的所说的数据提交,而且它还支持proxy、这样对于通过代理服务器上网一样可以适用，并且它不是oicq中发送讯信所用到socket5代理。?? 新建一个窗体，加入组件一个combobox，命名为callto,用于存放寻呼对象，如国信寻呼就有95908、94908、94909、98062、98063、98019、98035、98052、98038、99055、98060、98061、98051、98003、99062、99016、99017、99018、99019、99046、99076；加入组件edit，命名为tonumber，表示寻呼号码；加入组件radiogroup，命名为radiogroup1,caption设为呼机类型，items中加入两项，分别为中文机、数字机;加入组件edit,命名为firstname，用于表示发寻呼人的姓；加入组件radiogroup，命名为radiogroup2,caption设为寻呼人性别，items中加入两项，分别为先生、小姐;加入组件memo，命名为callmsg，用于输入发送的信息(注：对于数字机只能是数字信息)；加入组件nmhttp,命名为nmhttp1；加入checkbox，命名为ifuseproxy，用于确定是否使用代理服务器;加入两个edit组件，分别用于软件代理服务器地址、代理服务器端口；最后加入命令按钮,caption设为“发送”。现在以国信寻呼为例，它用get请求就可以实现了,“发送”按钮的程序代码如下： procedure tform1.bu