【正文】 age上讓大家觀看。 ? 不管在 Client端或是 Server端，我們都必頇得開一個 FileStream這個物件出來當(dāng)作資料流的暫存區(qū)，這跟我們一般開檔的觀念很像，只是在這邊我們將整個二元檔看成是一個 『 Stream』 。 54 235. 一些 Client端的小程式 ? 範(fàn)例 238：主要程式碼（ ） void __fastcall TForm1::BitBtn1Click(TObject *Sender) { //選擇一張用來傳送的圖片 if (OpenPictureDialog1Execute()) LabeledEdit2Text = OpenPictureDialog1FileName。 } // void __fastcall TForm1::BitBtn2Click(TObject *Sender) { //這個函式主要功能就是傳送我們選擇的檔案到 Server端 if ((LabeledEdit1Text != ) amp。amp。 (LabeledEdit2Text != )) { //開一個 File Stream出來，並把我們要傳送的檔案經(jīng)由該 File Stream傳送 TFileStream *FStream。 FStream = new TFileStream(OpenPictureDialog1FileName, fmOpenRead)。 NMStrm1Host = LabeledEdit1Text。 NMStrm1FromName = LabeledEdit2Text。 NMStrm1PostIt(FStream)。 //傳送完畢後將 Stream關(guān)閉 FStreamFree()。 } } 55 235. 一些 Client端的小程式 ? 範(fàn)例 238：主要程式碼（ ） void __fastcall TForm1::BitBtn3Click(TObject *Sender) { Image1PictureLoadFromFile()。 //在 Server端將接收到的圖片 load出來 } // void __fastcall TForm1::NMStrm1Connect(TObject *Sender) { StatusBar1SimpleText = Connected。 //在狀態(tài)列顯示 Client已經(jīng)與 Server端連線 } // void __fastcall TForm1::NMStrm1Disconnect(TObject *Sender) { StatusBar1SimpleText = Disconnected。 //在狀態(tài)列顯示 Client已經(jīng)與 Server端斷線 } // void __fastcall TForm1::NMStrm1MessageSent(TObject *Sender) { //當(dāng)我們在傳送 Stream的時候，會跳出一個 MessageBox告訴我們將要傳送一個 Stream到 Server端 ShowMessage(A Stream Sent to + LabeledEdit1Text)。 } // void __fastcall TForm1::NMStrm1Status(TComponent *Sender, AnsiString Status) { if (StatusBar1 != 0) StatusBar1SimpleText = Status。 } 56 235. 一些 Client端的小程式 ? 範(fàn)例 238：主要程式碼（ ） void __fastcall TForm1::NMStrmServ1MSG(TComponent *Sender, const AnsiString sFrom, TStream *strm) { //這個函式是 Server端用來接收 Client送過來的 Stream //在這邊我們是將收到的 Stream存到 TFileStream *FStream。 //開一個 File Stream //如果 if (FileExists()) DeleteFile()。 //將收到的 Stream放到檔案中 FStream = new TFileStream(, fmCreate)。 FStreamCopyFrom(strm, strmSize)。 FStreamFree()。 //釋放 Stream的資源 BitBtn3Enabled = true。 } // void __fastcall TForm1::NMStrmServ1Status(TComponent *Sender, AnsiString Status) { if (StatusBar2 != 0) StatusBar2SimpleText = Status。 } 57 235. 一些 Client端的小程式 ? 範(fàn)例 238： Stream Server / Client範(fàn)例 – 執(zhí)行結(jié)果 58 235. 一些 Client端的小程式 ? 範(fàn)例 239： POP3 Client範(fàn)例 – 範(fàn)例說明 ? 目前在看信方便比較常用的通訊協(xié)定大概就是 POP3以及 IMAP。在範(fàn)例 239我們利用 BCB提供的 NMPOP3這個 VCL元件實做 POP3 Client。在這個程式中，大部分的功能（會用到的函式）都已經(jīng)在這個範(fàn)例程式中用到了。 ? 整個介面中，除了輸入 Host以及使用者、密碼外，就是顯示出我們有多少郵件在 Server上，在程式中我們只將每封信件的標(biāo)題和送信者列出來。 – 要看信的內(nèi)容，也只需要去抓取 NMPOP3MailMessage中的一些屬性就可以了。在附夾檔方面，這個 VCL元件也提供處理附帶檔的功能，一樣是在 MailMessage中就可以把附帶檔的問題處理完。 59 235. 一些 Client端的小程式 ? 範(fàn)例 239：主要程式碼（ ） – 與 POP3 Server連線並取得 Mail List void __fastcall TForm1::BitBtn1Click(TObject *Sender) { if ((LabeledEdit1Text != ) amp。amp。 (LabeledEdit2Text != ) amp。amp。 (LabeledEdit3Text != ) amp。amp。 (LabeledEdit4Text != )) { AnsiString buf。 //設(shè)定一些 Client的基本屬性 NMPOP31ReportLevel = Status_Basic。 NMPOP31TimeOut = 20220。 NMPOP31Host = LabeledEdit1Text。 NMPOP31Port = LabeledEdit2()。 NMPOP31UserID = LabeledEdit3Text。 NMPOP31Password = LabeledEdit4Text。 NMPOP31Connect()。 //與 POP3 Server連線 //顯示目前 Server上有幾封信 ..以及將信件列出 StatusBar1SimpleText = IntToStr(NMPOP31MailCount) + Mail。 NMPOP31List()。 //把每一封 mail利用 Subject和 From弄成我們想要顯示出來的格式，並且把這些資訊放到 Memo上 for (int i = 1 。 i = NMPOP31MailCount 。 i++) { NMPOP31GetMailMessage(i)。 buf = IntToStr(i) + == Subject : 。 buf += NMPOP31MailMessageSubject + \t\tFrom : 。 buf += NMPOP31MailMessageFrom。 Memo1LinesAdd(buf)。 } } } 60 235. 一些 Client端的小程式 ? 範(fàn)例 239：主要程式碼（ ） void __fastcall TForm1::BitBtn2Click(TObject *Sender) { NMPOP31Disconnect()。 //與 POP3 Server終止連線 } // void __fastcall TForm1::NMPOP31List(int Msg, int Size) { if (Msg 2) Memo1Clear()。 } // void __fastcall TForm1::NMPOP31Connect(TObject *Sender) { StatusBar1SimpleText = Connected。 BitBtn1Enabled = false。 BitBtn2Enabled = true。 } // void __fastcall TForm1::NMPOP31Disconnect(TObject *Sender) { StatusBar1SimpleText = Disconnected。 BitBtn1Enabled = true。 BitBtn2Enabled = false。 LabeledEdit1Text = 。 LabeledEdit2Text = 110。 LabeledEdit3Text = 。 LabeledEdit4Text = 。 } 61 235. 一些 Client端的小程式 ? 範(fàn)例 239： POP3 Client範(fàn)例 – 執(zhí)行結(jié)果 62 235. 一些 Client端的小程式 ? 範(fàn)例 2310： URL Encode / Decode範(fàn)例 – 範(fàn)例說明 ? URL這部分最主要就是提供網(wǎng)址的編碼以及解碼，當(dāng)然也可以對網(wǎng)頁中的一些特殊字元作編碼的動作。在程式中我們分成上下兩個畫面，上面那部分為編碼，下面是解碼，大家可以試試看將一串文字編碼後再次解碼是不是會一樣 63 235. 一些 Client端的小程式 ? 範(fàn)例 2310：主要程式碼（ ） void __fastcall TForm1::BitBtn1Click(TObject *Sender) { //URL Encode if (LabeledEdit1Text != ) { NMURL1InputString = LabeledEdit1Text。 LabeledEdit2Text = NMURL1Encode。 } } // void __fastcall TForm1::BitBtn2Click(TObject *Sender) { //URL Decode if (LabeledEdit3Text != ) { NMURL1InputString = LabeledEdit3Text。 LabeledEdit4Text = NMURL1Decode。 } } // void __fastcall TForm1::NMURL1Error(TObject *Sender, AnsiString Operation, AnsiString ErrMsg) { //在 Encode或是 Decode過程中出現(xiàn)在問題 //就將錯誤訊息顯示在 MessageBox上 ShowMessage(ErrMsg)。 } 64 235. 一些 Client端的小程式 ? 範(fàn)例 2310： URL Encode / Decode範(fàn)例 – 執(zhí)行結(jié)果 65 235. 一些 Client端的小程式 ? 範(fàn)例 2311： MIME / UUDecode範(fàn)例 – 範(fàn)例說明 ? UUEncode / UUDecode也是非常常用的編碼 /解碼方式。在 BCB的VCL元件中，當(dāng)然也提供了 MIME以及 UUCode這兩種常用的編碼解碼函式，使用上非常的簡單方便。 ? 在傳送信件的過程中，我們常常使用 MIME或是 UUCode這類的軟體來做編碼及解碼的動作。 MIME和 UUCode是兩種不同的編法方法。 – 例如我們現(xiàn)在將一封信件利用 MIME編碼後，對方必頇也要經(jīng)過 MIME的解碼後才看的懂。一般來說現(xiàn)在的一些 Mail Server（如 Sendmail、 qmail、 p