張靜

（河南省氣象培訓(xùn)中心，河南 鄭州450002）

在互聯(lián)網(wǎng)上，與電子郵件相關(guān)的2 個(gè)協(xié)議是POP3（郵局協(xié)議）和SMTP（簡(jiǎn)單郵件傳輸協(xié)議）。其中，POP3 協(xié)議用于從POP3 服務(wù)器上接收郵件，而SMTP協(xié)議用于登錄SM T P 服務(wù)器來(lái)發(fā)送郵件[1-2]。C++Builder 提供了NMPOP3 控件和NMSMTP 控件來(lái)實(shí)現(xiàn)這2 個(gè)郵件收發(fā)協(xié)議。本文利用C++Builder 中的NMPOP3 控件，創(chuàng)建一個(gè)能接收電子郵件的系統(tǒng)。

1 NMPOP3 控件的屬性和方法

NMPOP3 控件用于從POP3 協(xié)議服務(wù)器的主機(jī)中接收郵件，所有POP3 接收郵件的功能都封裝在該控件中，使用者只需修改該控件的屬性、訪問(wèn)該控件的方法并對(duì)事件進(jìn)行響應(yīng)即可[3-4]。

1.1 NMPOP3 控件的屬性

NMPOP3 控件的主要屬性如表1 所示。

表1 NMPOP3 控件的屬性

1.2 NMPOP3 控件的主要方法

NMPOP3 控件的主要方法如表2 所示。

表2 NMPOP3 控件的主要方法

表2 （續(xù)）

2 電子郵件接收程序設(shè)計(jì)

2.1 與服務(wù)器建立連接

在此步驟中，單擊“Connect/Account”選項(xiàng)卡上的“連接服務(wù)器”，如圖1 所示，將觸發(fā)CntBtn 事件。在此事件處理函數(shù)中，先設(shè)置NMPOP3 控件的各項(xiàng)屬性，然后與服務(wù)器建立連接，當(dāng)連接成功后，設(shè)置此郵箱中的郵件數(shù)目。其源程序如下：

圖1 連接與斷開(kāi)連接圖

void __fastcall TRveForm::CntBtn(TObject*Sender)

{

...

MyPOP31->Host=HoEdt->Text;

MyPOP31->Port=StrToInt(PtEdt->Text);

MyPOP31->UserID=UIEdt->Text;

MyPOP31->Password=PWEdt->Text;

MyPOP31->Connect();

}

當(dāng)客戶成功連接到POP 服務(wù)器時(shí)，將觸發(fā)OnConnect 事件，其代碼如下：

MyStaBar1->SimpleText= “已經(jīng)連接到服務(wù)器”;

當(dāng)客戶試圖連接到服務(wù)器而失敗時(shí)，將觸發(fā)OnConnectionFailed 事件，其代碼如下：

void__fastcallTRveForm::MyNMPOP31Connection Failed(TObject*Sender)

{

MyStaBar1->SimpleText = “連接服務(wù)器失敗”;

}

2.2 顯示郵件列表

顯示郵件列表調(diào)用NMPOP3 控件的List()方法，其代碼如下：

void __fastcall TRveForm::ListBtnClick(TObject

*Sender)

{

MyNMPOP31->List();

}

其中，NMPOP3 控件的List()方法觸發(fā)OnList 事件，其代碼如下：

void __fastcall TFmMyMain::MyNMPOP3List(int Msg,int Size)

{

If(Msg<2)

{

MyMo1->Clear();

MyMo1->Lines->Add(“郵件序號(hào)/郵件大?。ㄗ止?jié)）”);

}

MyMo1->Lines->Add(IntToStr(Msg)+ “ / ”+IntToStr(Size));

}

2.3 讀取郵件信息

當(dāng)郵件列表顯示以后，就可以輸入要讀取的郵件編號(hào)，單擊“Get Message”按鈕顯示郵件的詳細(xì)內(nèi)容，如圖2 所示。首先調(diào)用NMPOP3 控件的GetMailMessage()方法，并將Edt5 中的郵件編號(hào)取出來(lái)，得到的郵件信息被保存在MailMessage 屬性中。

圖2 顯示郵件圖

其源程序如下：

void __fastcall TFmMyMain::Btn3Click(TObject*Sender)

{

MyNMPOP31->GetMailMessage(StrToInt(Edt5->Text));

Edt7->Text=MyNMPOP31->MailMessage->Subjec;

Edt9->Text=MyNMPOP31->MailMessage->Mess ageId;

myMe1->Lines->Assign(MyNMPOP31->MailMe ssage->Head);

myMe2->Lines->Assign(MyNMPOP31->MailMe ssage->Body);

}

單擊“Get Summary”按鈕，調(diào)用NMPOP3 控件的GetSummary()方法，顯示郵件的概要信息，其代碼如下：

void __fastcall TFmMyMain::Btn6Click(TObject*Sender)

{

MyNMPOP31->GetSummary(StrToInt(Edt5->Te xt));

Edt6->Text=MyNMPOP31->Summary->From;

Edt7->Text=MyNMPOP31->Summary->Subject;

Edt8->Text=ntToStr(MyNMPOP31->Summary->Bytes);

Edt9->Text=MyNMPOP31->Summary->MessageId;

}

單擊“Delete”按鈕，調(diào)用NMPOP3 控件的DeleteMailMessage()方法，刪除郵件，其代碼如下：

void __fastcall TRveForm::Btn7Click(TObject*Sender)

{

MyNMPOP31->DeleteMailMessage(StrToInt(Edt 5->Text));

}

2.4 斷開(kāi)與服務(wù)器的連接

單擊“Disconnect”按鈕，調(diào)用NMPOP3 控件的Disconnect()方法，斷開(kāi)與服務(wù)器的連接，其代碼如下：

void __fastcall TRveForm::Btn2Ck(TObject*Sender)

{

MyNMPOP31->Disconnect();

}

當(dāng)客戶斷開(kāi)與服務(wù)器的連接時(shí)，將觸發(fā)OnDisconnect 事件，其代碼如下：

void __fastcall TRveForm::MyNMPOP31Dct(TObject*Sender)

{

If(MyStatusBar1!=0)

MyStatusBar1->SimpleText= “脫機(jī)工作”;

}

3 結(jié)語(yǔ)

本文基于C++Builder 開(kāi)發(fā)平臺(tái)，討論了在應(yīng)用程序中調(diào)用NMPOP3 控件接收電子郵件的方法，并設(shè)計(jì)了具體程序，其操作界面簡(jiǎn)單，同時(shí)經(jīng)試驗(yàn)檢測(cè)，具有很好的穩(wěn)定性。