unit1.cpp

<<C++Builder 6实用编程100例>>随书光盘

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
      NMPOP31->Host=Edit1->Text;
      NMPOP31->UserID=Edit2->Text;
      NMPOP31->Password=Edit3->Text;
      NMPOP31->Connect();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::NMPOP31Connect(TObject *Sender)
{ 
        Button2->Enabled=true;
        if(NMPOP31->MailCount>0)
                ShowMessage("您现在收件箱共有"+IntToStr(NMPOP31->MailCount)+"封邮件。");
        else
                ShowMessage("您没有选择邮件。");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        AnsiString S;
        int M;
        if(NMPOP31->MailCount>0)
                if(InputQuery("打开邮件", "请选择一封邮件? (1-"
                        +IntToStr(NMPOP31->MailCount)+")", S))
                {
                        M=StrToIntDef(S,-1);
                        if((M<0)||(M>NMPOP31->MailCount))
                                ShowMessage("对不起，您选择的邮件序号错误。");
                        else
                                NMPOP31->GetMailMessage(M);
                }
        else
                ShowMessage("您的收件箱中没有邮件。");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::NMPOP31RetrieveEnd(TObject *Sender)
{ 
        Edit4->Text=NMPOP31->MailMessage->From;   
        Edit5->Text=NMPOP31->MailMessage->Subject;
        Memo1->Text=NMPOP31->MailMessage->Body->Text;
}
//---------------------------------------------------------------------------