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

现在以国信寻呼为例它用GET请求就可以实现了发送按钮的程序代码如下

procedure TFormButtonClick(Sender: TObject);var callstr:string;begin callstr:=http://tipsgxspacecom/cgibin/tips/webpaging?stn_id=+calltoText+&page_no=+tonumberText;case RadioGroupItemIndex of:callstr:=callstr+&pager_type=C;:callstr:=callstr+&pager_type=N;end;callstr:=callstr+&firstname=+firstnametext;case RadioGroupItemIndex of:callstr:=callstr+&title=;:callstr:=callstr+&title=;end; callstr:=callstr+&msg=+callmsgText+&answer=null&B=发送寻呼;NMHTTPInputFileMode := FALSE;NMHTTPOutputFileMode := FALSE;NMHTTPReportLevel := Status_Basic;If ifuseproxyChecked thenBeginNMHTTPProxy := EditText;NMHTTPProxyPort := StrToInt(EditText);End;NMHTTPGet(callstr);end;

有些寻呼(如润迅寻呼就不能用上面的GET请求实现它要用POST请求)使用与上面相差不大如

下面是NMHTTP的POST用法

NMHTTPInputFileMode:=False;NMHTTPOutputFileMode:=True; NMHTTPReportLevel:=Status_Basic;If ifuseproxyChecked thenBeginNMHTTPProxy := EditText;NMHTTPProxyPort := StrToInt(EditText);End;With NMHTTPHeaderInfo do BeginCookie := EditText;LocalMailAddress := EditText;LocalProgram := EditText;Referer := EditText;UserID := EditText;Password := EditText;End;

// 把要提交的数据先放在testtxt文件中格式为stnid=A&pageno=

NMHTTPPost(http://wwwwocallcom/script/zbwebcallasptesttxt);

file://NMHTTP的具体用法在Delphi安装目前\Borland\Delphi\Demos\FastNet\Http下有个NMHTTP

使用的例子

以上都是用NMHTTP实现的其实用Delphi中的WebBrowser组件同样可以完成数据的提交使用是这

样的 WebbrowserOleObjectDocumentFrontPage_Formsubmit();

说明WebBrowser是WebBrowser组件的名Frontpage_Form是用WebBrowser打开的网页中的表单名

网页中的表单是这机样的

＜FORM action=http://messagecomcn/cgibin/ips/webpaging method=post name=FrontPage_Form＞＜/FORM＞

这样的实现方法就是用程序生成一个已经按用户输入信息生成一个网页然后通过WebBrowserNavigate(生成的网页)最后提交到服务器WebbrowserOleObjectDocumentFrontPage_Formsubmit();这样就完成了一次寻呼

四结束语

看到这里该明天网上的BP机手机短讯是怎么回事了吧！

[] []