亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > Delphi > 正文

用Delphi實現BP機、手機短訊

2019-11-18 18:56:15
字體：大 中 小
來源：轉載
供稿：網友
     很多人一定用過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 http://www2.scuta.edu.cn/stu/chatroom/check.asp HTTP/1.0
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/vnd.ms-Powerpoint, application/vnd.ms-Excel, application/msWord, */*
Referer: http://www2.scuta.edu.cn/stu/
Accept-Language: zh-cn
Content-Type: application/x-www-form-urlencoded
PRoxy-Connection: Keep-Alive
User-Agent: Mozilla/4.0 (compatible; MSIE 5.5; Windows 98)
Host: www2.scuta.edu.cn
Content-Length: 87
Pragma: no-cache
Cookie: 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:='http://t     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
    NMHTTP1.Proxy := Edit1.Text;
    NMHTTP1.ProxyPort := 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
    NMHTTP1.Proxy := Edit1.Text;
    NMHTTP1.ProxyPort := 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('http://www.wocall.com/script/zbwebcall.asp','test.txt');
//NMHTTP的具體用法在Delphi安裝目前BorlandDelphi5DemosFastNetHttp下有個NMHTTP使用的例子。
以上都是用NMHTTP實現的，其實用Delphi中的WebBrowser組件同樣可以完成數據的提交，使用是這樣的 Webbrowser1.OleObject.Document.FrontPage_Form1.submit();
說明：WebBrowser1是WebBrowser組件的名,Frontpage_Form1是用WebBrowser打開的網頁中的表單名
網頁中的表單是這機樣的：
<FORM name=FrontPage_Form1  action=http://message.com.cn/cgi-bin/ips/webpaging  method=post>
......
</Form>
這樣的實現方法就是用程序生成一個已經按用戶輸入信息生成一個網頁，然后通過WebBrowser1.Navigate(生成的網頁),最后提交到服務器Webbrowser1.OleObject.Document.FrontPage_Form1.submit();這樣就完成了一次尋呼

上一篇：在DELPHI程序中使用ADO對象存取ODBC

下一篇：Delphi中實現文件拷貝的三種方法

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
學習交流
熱門圖片

新聞熱點

疑難解答

圖片精選

網友關注

亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
91在线免费网站| 日韩免费在线免费观看| 精品高清一区二区三区| 国产精品久久久久久久午夜| 亚洲欧美日韩另类| 久久综合免费视频影院| 精品女同一区二区三区在线播放| 精品av在线播放| 欧美激情啊啊啊| 国产精品一区二区3区| 亚洲美女久久久| 久久伊人91精品综合网站| 欧美日韩国产123| 午夜欧美不卡精品aaaaa| 亚洲精品视频免费| 国产91露脸中文字幕在线| 最新中文字幕亚洲| 亚洲美女性生活视频| 午夜精品久久久久久99热软件| 美女视频黄免费的亚洲男人天堂| 久久久久久久久久久国产| 亚洲午夜精品久久久久久性色| 国产精品视频精品| 97香蕉久久夜色精品国产| 欧美丝袜一区二区| 欧美电影电视剧在线观看| 欧美亚洲另类制服自拍| 久久久久成人精品| 亚洲视频网站在线观看| 亚洲综合社区网| 亚洲欧美日韩直播| 亚洲韩国青草视频| 国产精品久久91| 久久久国产精品一区| 国产成人福利网站| 91久久精品美女高潮| 欧美成人免费在线观看| 色在人av网站天堂精品| 九九久久精品一区| 日韩成人激情在线| 亚洲国产91精品在线观看| 奇米四色中文综合久久| 国产欧美日韩丝袜精品一区| 久久久99久久精品女同性| 国产精品久久久久av免费| 69精品小视频| 91亚洲国产成人久久精品网站| 丰满岳妇乱一区二区三区| 成人午夜小视频| 亚洲天堂开心观看| 欧美日韩性视频| 亚洲国产精彩中文乱码av| 欧美视频免费在线观看| 亚洲精品国精品久久99热一| 国产精品久久久久av| 色综合久综合久久综合久鬼88| 国产精品99久久久久久www| 国产第一区电影| 亚洲护士老师的毛茸茸最新章节| 一区二区三区高清国产| 97精品一区二区视频在线观看| 欧美精品精品精品精品免费| 久久久91精品| 亚洲成人精品视频在线观看| 精品久久久久久中文字幕大豆网| 久久久久久综合网天天| 51色欧美片视频在线观看| 日韩中文字幕第一页| 欧洲亚洲免费视频| 久久久久久久久网站| 日韩毛片在线观看| 中文字幕自拍vr一区二区三区| 亚洲最新视频在线| 国产精品27p| 日韩在线观看免费| 亚洲人成免费电影| 亚洲91av视频| 亚洲精品欧美一区二区三区| 在线观看欧美日韩国产| 成人网在线视频| 国产69精品久久久久99| 亚洲人成77777在线观看网| 黑人巨大精品欧美一区二区| 欧美激情一区二区三区久久久| 欧美伦理91i| 在线精品国产欧美| 国产精品视频白浆免费视频| 日韩有码视频在线| 欧美日本精品在线| 中文精品99久久国产香蕉| 欧美成人精品在线视频| 亚洲精品视频二区| 青草成人免费视频| 国产精品中文字幕久久久| 久久免费精品日本久久中文字幕| 欧美成人免费小视频| 国产精品福利小视频| 亚洲国产成人久久综合一区| 亚洲精品欧美日韩专区| 性欧美办公室18xxxxhd| 亚洲一区中文字幕| 欧美日韩国产中文字幕| 在线丨暗呦小u女国产精品| 欧美激情第三页| 91色琪琪电影亚洲精品久久| xxxxxxxxx欧美| 成人福利免费观看| 日本国产精品视频| 色婷婷av一区二区三区久久| 国产精品亚洲激情| 国产在线观看精品| 欧美成人一二三| 一区二区三区视频在线| 日韩免费在线看| 亚洲成av人乱码色午夜| 欧美激情中文字幕乱码免费| 亚洲色图15p| 久久精品欧美视频| 欧美三级xxx| 麻豆国产精品va在线观看不卡| 亚洲精品白浆高清久久久久久| 国产欧美日韩中文| 亚洲影视九九影院在线观看| 欧美激情第一页xxx| 国产精品美女主播在线观看纯欲| 日韩av电影免费观看高清| 日韩精品中文在线观看| 日韩欧中文字幕| 国产精品国产三级国产aⅴ浪潮| 国产区亚洲区欧美区| 欧美日韩亚洲成人| 欧美性猛交xxxx免费看| 亚洲男人av电影| 亚洲精品第一国产综合精品| 亚洲a在线观看| 欧美日韩在线一区| 国产亚洲精品久久久久久牛牛| 国产女精品视频网站免费| 日韩av综合网站| 在线视频欧美日韩| 亚洲精品国产精品自产a区红杏吧| 亚洲欧美视频在线| 国产日韩在线亚洲字幕中文| 欧美日韩裸体免费视频| 精品久久久久久国产91| 久久精视频免费在线久久完整在线看| 亚洲日本欧美日韩高观看| 欧美亚洲另类在线| 日本亚洲欧美三级| 久久久久久久久久久久av| 欧美日韩人人澡狠狠躁视频| 亚洲色图25p| 一本色道久久88综合日韩精品| 精品亚洲一区二区三区| 国产精品成人免费电影| 国产97在线|亚洲| 日韩中文字幕精品| 欧美久久精品一级黑人c片| 91av在线免费观看| 久久久久久久成人| 夜夜狂射影院欧美极品| 亚洲精品网站在线播放gif| 国产欧美一区二区三区四区| 欧美大胆在线视频|