【文章內(nèi)容簡(jiǎn)介】 t1ReadOnly = false。 LabeledEdit2ReadOnly = false。 LabeledEdit3ReadOnly = false。 //重新設(shè)定按鈕的 Enable屬性 BitBtn1Enabled = false。 BitBtn2Enabled = false。 BitBtn3Enabled = false。 BitBtn4Enabled = true。 BitBtn5Enabled = false。 } 29 233. 寄信程式 ? 範(fàn)例 232：寄信程式加強(qiáng)版的開發(fā) – 執(zhí)行結(jié)果 30 233. 寄信程式 ? 如果各位有發(fā)現(xiàn)的話，在範(fàn)例 232應(yīng)該會(huì)看到多了NMSMTP1ConnectionFailed這個(gè)函式，這個(gè)就是當(dāng)ConnectionFailed的時(shí)候會(huì)觸發(fā)的事件程序 ? 在 NMSMTP中有關(guān)各種 Failed所引發(fā)的事件還有 – OnAttatchmentNotFound、 OnAuthenticationFailed、OnConnectionFailed、 OnFailure、 OnHeaderInplete、OnInvalidHost、 OnRecipienNotFound等事件 – 這些事件的用法跟 OnConnectionFailed的用法都差不多，大家可以嘗試著使用看看，一套完善的發(fā)信軟體必頇要能 handle住上面所列的那些 Exception才不至於一天到晚出問題，也希望讀者可以透過範(fàn)例 292繼續(xù)完成還沒 Implement的這些 Failed相關(guān)的 Event，讓這個(gè)寄信程式可以更完美。 31 234. HTTP抓網(wǎng)頁(yè)程式 ? 上一節(jié)我們舉了 Mail Client當(dāng)作一個(gè)範(fàn)例，這邊我們?cè)倥e一個(gè)利用 HTTP Protocol來(lái)抓取網(wǎng)頁(yè)資料的小程式。這個(gè)程式我們將放在範(fàn)例 233中。 ? 這個(gè)程式最主要是抓取我們所指定的網(wǎng)頁(yè)的資料，傳回值為這個(gè)網(wǎng)頁(yè)的 Header以及 Body。 ? 這個(gè)程式設(shè)計(jì)上相當(dāng)?shù)暮?jiǎn)單，只用了一個(gè) NMHTTP以及兩個(gè)SaveDialog為隱藏的 VCL元件，其餘的就是 PageControl、Panel、 Edit、 Memo、以及 BitBtn等基本的元件。 32 234. HTTP抓網(wǎng)頁(yè)程式 ? 範(fàn)例 233：網(wǎng)頁(yè)抓取範(fàn)例 – 範(fàn)例說(shuō)明 ? 在該範(fàn)例中，我們將利用 NMHTTP這個(gè)元件抓取網(wǎng)路上任何一個(gè)網(wǎng)頁(yè)的 Header以及 Body這兩個(gè)重要資料。底下我們將一步一步告訴讀者我們?cè)撊绾瓮瓿蛇@個(gè)範(fàn)例。 ? Step 1: 開新專案，並且將該使用到的 VCL元件放到 Form上面 ? Step 2: 設(shè)定相關(guān)屬性 – SaveDialog – NMHTTP ? Step 3: 程式碼的撰寫 33 234. HTTP抓網(wǎng)頁(yè)程式 ? 範(fàn)例 233：主要程式碼（ ） void __fastcall TForm1::BitBtn1Click(TObject *Sender) { if (LabeledEdit1Text != ) { NMHTTP1Get(LabeledEdit1Text)。 Memo1LinesAdd(NMHTTP1Header)。 Memo2LinesAdd(NMHTTP1Body)。 } } // void __fastcall TForm1::BitBtn2Click(TObject *Sender) { if (SaveDialog1Execute()) { if (!FileExists(SaveDialog1FileName)) Memo1LinesSaveToFile(SaveDialog1FileName)。 else ShowMessage(檔案已存在 !\n)。 } } // void __fastcall TForm1::BitBtn3Click(TObject *Sender){ if (SaveDialog2Execute()) { if (!FileExists(SaveDialog2FileName)) Memo2LinesSaveToFile(SaveDialog2FileName)。 else ShowMessage(檔案已存在 !\n)。 } } 34 234. HTTP抓網(wǎng)頁(yè)程式 ? 範(fàn)例 233：網(wǎng)頁(yè)抓取範(fàn)例 – 執(zhí)行結(jié)果 35 235. 一些 Client端的小程式 ? 在這一小節(jié)我們將寫一些簡(jiǎn)單的 Client/Server程式，全部是利用 FastNet內(nèi)的元件所完成的。 – DateTime、 Time、 Message、 Echo、 NNTP、 Stream、 POP URL、MIME、 UUDecode、 Finger等?，F(xiàn)在我們就利用範(fàn)例 23 2323 23 23 23 23 231以及 2312解釋各個(gè)元件的使用方法。 36 235. 一些 Client端的小程式 ? 範(fàn)例 234： DayTime / Time範(fàn)例 – 範(fàn)例說(shuō)明 ? DayTime、以及 Time這兩種服務(wù)主要就是傳回目前 Server上的時(shí)間以及日期。 ? 我們寫的這個(gè)程式就是去 Server上要回這些資料並且顯示出來(lái)。在這個(gè)介面中，我們將 DayTime以及 Time兩種不同的服務(wù)分開寫，這樣可以讓使用者更容易分辨這兩種 VCL元件的用法。 37 235. 一些 Client端的小程式 ? 範(fàn)例 234：主要程式碼（ ） void __fastcall TForm1::BitBtn1Click(TObject *Sender) { //使用 NMDayTime抓取 Server的 Date and Time，如果 Server Host和 Port皆有輸入才連線去抓取資料 if ((LabeledEdit1Text != ) amp。amp。 (LabeledEdit2Text != )) { //將相關(guān)的值設(shè)定到變數(shù) ..方便使用 AnsiString Server = LabeledEdit1Text。 int Port = LabeledEdit2()。 //指定 Server Host以及 Server Port NMDayTime1Host = Server。 NMDayTime1Port = Port。 //抓取 Server端的 DateTime LabeledEdit3Text = NMDayTime1DayTimeStr。 } } // void __fastcall TForm1::NMDayTime1ConnectionFailed(TObject *Sender) { //當(dāng) NMDayTime連線錯(cuò)誤時(shí)發(fā)生的事件 MessageBox(GetActiveWindow(), 連線失?。?\n, NULL, MB_OK|MB_ICONERROR)。 } // void __fastcall TForm1::NMDayTime1InvalidHost(bool amp。Handled) { //當(dāng) NMDayTime發(fā)現(xiàn)輸入的 Server Host不合法所發(fā)生的事件 MessageBox(GetActiveWindow(), 不合法的位址！ \n, NULL, MB_OK|MB_ICONERROR)。 } 38 235. 一些 Client端的小程式 ? 範(fàn)例 234：主要程式碼（ ） void __fastcall TForm1::BitBtn2Click(TObject *Sender) { //使用 NMTime抓取 Server的 Time，如果 Server Host和 Port皆有輸入才連線去抓取資料 if ((LabeledEdit4Text != ) amp。amp。 (LabeledEdit6Text != )) { //將相關(guān)的值設(shè)定到變數(shù) ..方便使用 AnsiString Server = LabeledEdit4Text。 int Port = LabeledEdit6()。 //指定 Server Host以及 Server Port NMTime1Host = Server。 NMTime1Port = Port。 //抓取 Server端的 Time LabeledEdit5Text = NMTime1TimeStr。 } } // void __fastcall TForm1::NMTime1ConnectionFailed(TObject *Sender) { //當(dāng) NMTime連線錯(cuò)誤時(shí)發(fā)生的事件 MessageBox(GetActiveWindow(), 連線失??！ \n, NULL, MB_OK|MB_ICONERROR)。 } // void __fastcall TForm1::NMTime1InvalidHost(bool amp。Handled) { //當(dāng) NMTime發(fā)現(xiàn)輸入的 Server Host不合法所發(fā)生的事件 MessageBox(GetActiveWindow(), 不合法的位址！ \n, NULL, MB_OK|MB_ICONERROR)。 } 39 235. 一些 Client端的小程式 ? 範(fàn)例 234： DayTime / Time範(fàn)例 – 執(zhí)行結(jié)果 40 235. 一些 Client端的小程式 ? 範(fàn)例 235： Message Server / Client範(fàn)例 – 範(fàn)例說(shuō)明 ? Message這部分的程式分成 Server端以及 Client端，使用 6711這個(gè)Port來(lái)傳輸 Message。這個(gè)程式最主要的功能就是 Server端可以接收來(lái)自 Client端的資料。 41 235. 一些 Client端的小程式 ? 範(fàn)例 235：主要程式碼（ ） – Server Side Code void __fastcall TForm1::BitBtn1Click(TObject *Sender) { //清除 Message Log Memo1Clear()。 } // void __fastcall TForm1::NMMSGServ1MSG(TComponent *Sender, const AnsiString sFrom, const AnsiString sMsg) { //將收到的訊息放在 msg這個(gè) AnsiString中 AnsiString msg = sFrom + = + sMsg。 //停頓一些時(shí)間 ..讓程式處理 Socket Sleep(100)。 //將收到的 Log Append到 Memo上 Memo1LinesAdd(msg)。 } 42 235. 一些 Client端的小程式 ? 範(fàn)例 235：主要程式碼（ ） – Client Side Code void __fastcall TForm1::BitBtn2Click(TObject *Sender) { //檢查是否三個(gè) Edit全部都填入資料了 if ((LabeledEdit1Text != ) amp。amp。 (LabeledEdit2Text != ) amp。amp。 (LabeledEdit3Text != )) { NMMsg1Host = LabeledEdit1Text。 //設(shè)定 Server Host NMMsg1FromName = LabeledEdit2Text。 //設(shè)定 Sender39。s Name NMMsg1PostIt(LabeledEdit3Text)。 //將要送出的 Message Post出去給 Server LabeledEdit3Text = 。 //將送出的內(nèi)容從 LabeledEdit中清除 } } // void __fastcall TForm1::LabeledEdit3KeyPress(TObject *Sender, char amp。Key) { //功能跟 BitBtn2一樣，不過這個(gè)事件是用來(lái)抓取 Enter這個(gè)鍵 //如果我們?cè)?LabeledEdit中按下 Enter，程式就會(huì)自動(dòng)幫我們把訊息送出去 if (Key == 13) { if ((LabeledEdit1Text != ) amp。amp。 (LabeledEdit2Text != ) amp。amp。 (Lab