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