用Delphi實現BP機、手機短訊 精華篇[2]

現在以國信尋呼為例它用GET請求就可以實現了發送按鈕的程序代碼如下

procedure TForm
ButtonClick(Sender: TObject);
var callstr:string;
begin callstr:=http://tipsgxspace
com/cgibin/tips/webpaging?stn_id=+callto
Text+&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 then
Begin
NMHTTPProxy := EditText;
NMHTTPProxyPort := StrToInt(EditText);
End;
NMHTTPGet(callstr);
end;

有些尋呼(如潤迅尋呼就不能用上面的GET請求實現它要用POST請求)使用與上面相差不大如

下面是NMHTTP的POST用法

NMHTTPInputFileMode:=False;
NMHTTPOutputFileMode:=True; 
NMHTTPReportLevel:=Status_Basic;
If ifuseproxyChecked then
Begin
NMHTTPProxy := EditText;
NMHTTPProxyPort := StrToInt(EditText);
End;
With NMHTTPHeaderInfo do 
Begin
Cookie := 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機手機短訊是怎麼回事了吧！

[]  []  

From:http://tw.wingwit.com/Article/program/Delphi/201311/24876.html