用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.button1click(sender: tobject); var callstr:string;begin callstr:=/cgi-bin/tips/webpaging?stn_id=+callto.text+&page_no=+tonumber.text; case radiogroup1.itemindex of 0:callstr:=callstr+&pager_type=c; 1:callstr:=callstr+&pager_type=n; end; callstr:=callstr+&firstname=+firstname.text; case radiogroup2.itemindex of 0:callstr:=callstr+&title=0; 1:callstr:=callstr+&title=1; end; callstr:=callstr+&msg=+callmsg.text+&answer=null&b1=发送寻呼; nmhttp1.inputfilemode := false; nmhttp1.outputfilemode := false; nmhttp1.reportlevel := status_basic; if ifuseproxy.checked then begin xy := edit1.text; xyport := strtoint(edit2.text); end; nmhttp1.get(callstr);end;有些寻呼(如润迅寻呼就不能用上面的get请求实现，它要用post请求)，使用与上面相差不大，如下面是nmhttp的post用法： nmhttp1.inputfilemode:=false; nmhttp1.outputfilemode:=true; nmhttp1.reportlevel:=status_basic; if ifuseproxy.checked then begin xy := edit1.text; xyport := strtoint(edit2.text); end; with nmhttp1.headerinfo do begin cookie := edit5.text; localmailaddress := edit6.text; localprogram := edit7.text; referer := edit8.text; userid := edit9.text; password := edit10.text; end;/ 把要提交的数据先放在test.txt文件中：格式为stnid=a&pageno=123456. nmhttp1.post(/script/zbwebcall.asp,test.txt);/nmhttp的具体用法在delphi安装目前borlanddelphi5demosfastnethttp下有个nmhttp使用的例子。以上都是用nmhttp实现的，其实用delphi中的webbrowser组件同样可以完成数据的提交，使用是这样的 webbrowser1.oleobject.document.frontpage_form1.submit();说明：webbrowser1是webbrowser组件的名,frontpa