【正文】 end.附錄B：服務(wù)器端口設(shè)置：協(xié)議 使用 純文本或加密會話 僅限純文本 僅限加密會話POP3 接收郵件 110 995IMAP4 接收郵件 143 993SMTP 外寄郵件 25 （非官方）465MSA 傳出郵件 587 HTTP 郵局 80 443附錄C：常用電子郵箱服務(wù)器地址：gmail()POP3服務(wù)器地址:（SSL啟用 端口：995）SMTP服務(wù)器地址:（SSL啟用 端口：587）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25） : POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:SMTP服務(wù)器地址:: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）Foxmail：POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）sinaVIP POP3服務(wù)器: （端口：110）SMTP服務(wù)器: （端口：25）: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:SMTP服務(wù)器地址:: POP3服務(wù)器地址:（端口：110）SMTP服務(wù)器地址:（端口：25）: POP3服務(wù)器地址:（端口：995）SMTP服務(wù)器地址:（端口：587）雅虎郵箱POP3的SSL不啟用端口為110，POP3的SSL啟用端口995；SMTP的SSL不啟用端口為25，SMTP的SSL啟用端口為465郵箱 POP3服務(wù)器地址：（端口：110） SMTP服務(wù)器地址： （端口：25） SMTP服務(wù)器需要身份驗證126郵箱 POP3服務(wù)器地址:（端口：110） SMTP服務(wù)器地址:（端口：25） : POP3服務(wù)器地址:（端口：110） SMTP服務(wù)器地址:（端口：25） 139郵箱POP3服務(wù)器地址：（端口：110）SMTP服務(wù)器地址：(端口：25)共 35 頁 第 37 頁。begin。end。procedure (Sender: TObject)。beginif () then :=。end。procedure (Sender: TObject)。 END。 END。 END ELSE BEGIN //文字信息 IF [I] is TIdText then BEGIN 。 := TidAttachment([I]).FileName。 FOR I := 0 TO DO BEGIN if ([I] is TIdAttachment) then BEGIN // 附件信息 li := 。 := DATETOSTR()。 := 。 。begin。VAR I : INTEGER。end。)。 END ELSE BEGIN SHOWMESSAGE(39。 [1, I] :=。 (I, Msg)。 IF CNT 0 THEN BEGIN FOR I :=1 TO CNT DO BEGIN 。 [1, 0] :=39。 [0, 0] :=39。+INTTOSTR(SIZE)+39。+INTTOSTR (CNT) +39。 :=39。 CNT := 。begin Total_REC := 0。procedure (Sender: TObject)。begin 。 end。 :=。 :=StrToInt ()。implementation{$R *.dfm}procedure (Sender: TObject)。39。Stdcall。2539。 //發(fā)件帳戶 SmtpPass: string。//發(fā)件人 SmtpServer: string。 //抄送地址 AttachFiles: string。 //內(nèi)容 MailAddr: string。Function SendMSN(Topic: string。 private { Private declarations } Total_REC : Integer。 procedure Button2Click(Sender: TObject)。 procedure BTN_DELETEClick(Sender: TObject)。 procedure BTN_REFRESHClick(Sender: TObject)。 procedure BTN_CONNECTClick(Sender: TObject)。 Button3: TButton。 Label24: TLabel。 Label22: TLabel。 TabSheet3: TTabSheet。 Label11: TLabel。 Label9: TLabel。 Label6: TLabel。 Label3: TLabel。 Label1: TLabel。 Image2: TImage。 Label20: TLabel。 Label18: TLabel。 Label16: TLabel。 Label14: TLabel。 Label10: TLabel。 OpenDialog1: TOpenDialog。 Button1: TButton。 Edit9: TEdit。 Edit7: TEdit。 Edit5: TEdit。 Edit3: TEdit。 Edit1: TEdit。 StatusBar1: TStatusBar。 IdPOP31: TIdPOP3。 ED_BODY: TMemo。 ED_SUB: TEdit。 ED_EMAIL: TEdit。 BTN_MESSAGE: TButton。 Grid1: TStringGrid。 BTN_DISCONNECT: TButton。 ED_USER_PASSWD: TEdit。 ED_USER_ID: TEdit。 TabSheet2: TTabSheet。type TForm1 = class(TForm) PageControl1: TPageControl。最后，向在百忙中抽出時間對本文進行評審并提出寶貴意見的各位專家表示衷心的感謝！參考文獻(xiàn)[1] [M].科學(xué)出版社,2005. [2] [M].中國水利水電出版社,2007. [3] [M].機械工業(yè)出版社,2004. [4] [N]. [5] [N]. [6] [M].人民郵電出版社,2007. [7] [J].湖南電力出版社,2005. [8] [M].清華大學(xué)出版社,2006. [9] 華傳銘,[M].人民郵電出版社,2006. [10] [M].暨南大學(xué)出版社,2004. 附錄A：程序源碼：unit Unit1。在此，我要感謝我的畢業(yè)設(shè)計指導(dǎo)老師——焦立男老師，在畢業(yè)設(shè)計整個過程中得到了焦老師的悉心指導(dǎo)，無論是在理論知識方面還是實踐過程中焦老師都給了我很大幫助，多次詢問畢設(shè)進程，并為我指點，幫助我開拓思路，幫我解決了很多問題。致謝從畢業(yè)設(shè)計準(zhǔn)備工作開始到至今，我的畢業(yè)設(shè)計已經(jīng)接近尾聲。經(jīng)過一次的課題實踐才發(fā)現(xiàn)自己有很多不足的地方，自己的思維打不開對模塊設(shè)計不能做的條理性和規(guī)范性。自己以前總以為課本沒什么可看的可是給自己一個東西想憑借自己的能力完成還有很大的難度，自己現(xiàn)在覺得Delphi自己雖說是上了一學(xué)期了但是關(guān)于Delphi的東西我知道的真的是太有限了。盡管我們考慮到了不少的細(xì)節(jié)問題，但是我們認(rèn)為還有許多地方我們沒考慮周全，如果有什么地方考慮不到，或者沒注意又出錯的地方，還望老師您多多指導(dǎo)，給予一定提醒與幫助。以及在代碼的編寫方面，自己要下更大的功夫才行，用更多的實踐上機，發(fā)現(xiàn)自己的不足之處。課題即將結(jié)束，我覺得自己對于以前所學(xué)的操作更加熟練了，對于代碼的理解深刻了一些。課題實踐中出現(xiàn)的一些問題并不是不能解決而是自己懂得東西看到的東西真的是很有限。在本次畢業(yè)設(shè)計過程中，我深深的感覺到自己所學(xué)知識的膚淺和在實際運用中的專業(yè)知識的匱乏,剛開始的一段時間里,對一些工作感到無從下手，茫然不知所措，一旦接觸到實際，才發(fā)現(xiàn)自己知道的是多么少，這時才真正領(lǐng)悟到學(xué)無止境的含義。結(jié)束語通過這次畢業(yè)設(shè)計，使我對于Delphi所學(xué)的知識有了進一步的認(rèn)識，增強了綜合運用所學(xué)知識的能力，同時加深了對代碼的理解與運用方法。發(fā)送界面演示：、添加附件：：，查看發(fā)送結(jié)果：：接收界面演示：1. 點擊連接按鈕，連接服務(wù)器，稍等片刻，然后點擊刷新按鈕：2. 選中要查看的信件。 第5章 系統(tǒng)實現(xiàn)及測試程序中使用了眾多控件，主要有Label、Edit、Memo、Button、 PageControl、ListView、IdPOPIdMess