【正文】 etMessageText(str)。 //連接成功之后 ,不用定時(shí)器來監(jiān)視連接情況 //同時(shí)跳出操作對(duì)話框 //將 FTP 連接交給 CFtpDlg = m_pConnection。 (SW_SHOW)。 } 模塊三： FTP 客戶端主要功能的實(shí)現(xiàn) ( 孟婕 負(fù)責(zé) ) 新插入一個(gè)對(duì)話框資源： 新插入一個(gè)對(duì)話框資源，界面如下： 各控件變量信息如下圖所示： 建立新類 CFtpDlg 管理該對(duì)話框： 綜合設(shè)計(jì) 簡(jiǎn)單 Ftp 客戶端的實(shí)現(xiàn) 17 建立新類 CFtpDlg 管理該對(duì)話框，基類： CDialog 構(gòu)造函數(shù)代碼： CFtpDlg::CFtpDlg(CWnd* pParent /*=NULL*/) : CDialog(CFtpDlg::IDD, pParent) { m_pConnection = NULL。 } 初始化對(duì)話框 ： CFtpDlg 添加 WM_INITDIALOG 響應(yīng)函數(shù) OnInitDialog，代碼如下： BOOL CFtpDlg::OnInitDialog() { CDialog::OnInitDialog()。 //設(shè)置列 (0,文件名 ,LVCFMT_CENTER,200)。 (2,字節(jié)數(shù) ,LVCFMT_CENTER,100)。 //調(diào)用 OnQuary 函數(shù)查詢 FTP 服務(wù)器當(dāng)前目錄下的目錄和文件信息 OnQuary()。 } 查詢函數(shù) OnQuary： BN_CLICKED 響應(yīng)函數(shù) OnQuary，代碼如下： void CFtpDlg::OnQuary() { ListContent(*)。 定義 代碼： //用于顯示當(dāng)前目錄下所有的子目錄與文件 void CFtpDlg::ListContent(LPCTSTR DirName) { ()。 bContinue=m_pFileFindFindFile(DirName)。 m_pFileFind=NULL。 CString strFileTime。 while (bContinue) { bContinue = m_pFileFindFindNextFile()。 //得到文件名 //得到文件最后一次修改的時(shí)間 FILETIME ft。ft)。 strFileTime = (%y/%m/%d)。 } else { //得到文件大小 if (m_pFileFindGetLength64() 1024) { (%d B,m_pFileFindGetLength64())。 else { if (m_pFileFindGetLength64()(1024*1024*1024)) (% MB, (LONGLONG)m_pFileFindGetLength64()/(1024*))。 } } } int i=0。 (i,1,strFileTime)。 i++。//聲明 2 個(gè)靜態(tài)變量， // strCurrentDirectory 表示當(dāng)前目錄名， strSub 表示選定的文件名 //首先得到當(dāng)前目錄，保存在 strCurrentDirectory m_pConnectionGetCurrentDirectory(strCurrentDirectory)。 //在當(dāng)前取得的目錄名后添加 “/” //得到所選擇的文本，即所要進(jìn)入的下一級(jí)目錄名 int i=(1,LVNI_SELECTED)。//將 選中的文件名保存至 strSub if (i==1) { AfxMessageBox(沒有選擇目錄 !,MB_OK | MB_ICONQUESTION)。 } else { //設(shè)置當(dāng)前目錄 m_pConnectionSetCurrentDirectory(strCurrentDirectory+strSub)。 } } 綜合設(shè)計(jì) 簡(jiǎn)單 Ftp 客戶端的實(shí)現(xiàn) 20 } 上一級(jí)目錄函數(shù) OnLasttdirectory： ”上一級(jí)目錄 ”按紐添加 BN_CLICKED 響應(yīng)函數(shù) OnLastdirectory，代碼如下： //返回上一級(jí)目錄 void CFtpDlg::OnLastdirectory() { static CString strCurrentDirectory。 if (strCurrentDirectory == /) { AfxMessageBox(已經(jīng)是根目錄了 !,MB_OK | MB_ICONSTOP)。 //設(shè)置當(dāng)前目錄為上一級(jí)目錄 m_pConnectionSetCurrentDirectory(strCurrentDirectory)。 } } CFtpDlg類添加一工具函 數(shù) GetLastDiretory 用于得到上一級(jí)目錄的名稱 //用于得到上一級(jí)目錄的字符串表示 void CFtpDlg::GetLastDiretory(CString amp。//定義一個(gè)初始整形變量 for (int i=0。 i++)//定義 i 取得當(dāng)前地址字符串長(zhǎng)度 { if ((i)==39。)//追溯至數(shù)組的最后一個(gè) “/” LastIndex = i。//自帶的 left（）函數(shù)：返回參數(shù)前的所有字符串 if (LastIndex == 0)//當(dāng)追溯的本身即為根目錄 str=/。 //先判斷是否已經(jīng)選中文件 if (i==1) //如果沒有被選中 { //彈出對(duì)話框提示沒有選擇文件 AfxMessageBox(沒有選擇文件 !,MB_OK | MB_ICONQUESTION)。 if (strType!=DIR) //選擇的是文件 { CString strDestName。 //原文件名 //得到所要下載的文件名 strSourceName = (i,0)。 //彈出 SAVE AS 對(duì)話框 if (()==IDOK) { //獲得下載文件在本地機(jī)上存儲(chǔ)的路徑和名稱 strDestName=()。 else AfxMessageBox(下載失??！ ,MB_OK|MB_ICONSTOP)。 } } } 綜合設(shè)計(jì) 簡(jiǎn)單 Ftp 客戶端的實(shí)現(xiàn) 22 上傳函數(shù) OnUpLoad： 為 ”上傳 ”按紐添加 BN_CLICKED 響應(yīng)函數(shù) OnUpload，代碼如下： void CFtpDlg::OnUpload() { //獲得當(dāng)前輸入 CString strSourceName。 CFileDialog dlg(TRUE,*.*)。 strDestName = ()。 else AfxMessageBox(上傳失??！ ,MB_OK|MB_ICONSTOP)。 } 刪除函數(shù) OnDelete： 為 ”刪除 ”按紐添加 BN_CLICKED 響應(yīng) 函數(shù) OnDelete，代碼如下： //刪除選擇的文件 void CFtpDlg::OnDelete() { int i=(1,LVNI_SELECTED)。 } else { CString strFileName。 if (DIR==(i,2)) { 綜合設(shè)計(jì) 簡(jiǎn)單 Ftp 客戶端的實(shí)現(xiàn) 23 AfxMessageBox(不能刪除目錄 !,MB_OK | MB_ICONSTOP)。 else AfxMessageBox(無法刪除！ ,MB_OK|MB_ICONSTOP)。 } 重命名函數(shù) OnRename： 新插入一個(gè)對(duì)話框資源，界面如下： 控件變量信息如下圖所示： 改寫對(duì)話框的 OnOK 函數(shù) ： 改寫對(duì)話框的 OnOK 函數(shù)，代碼如下： void CNewNameDlg::OnOK() { UpdateData()。 } 為 ”重命名 ”按紐添加 BN_CLICKED 響應(yīng)函數(shù) OnRename，代碼如下： void CFtpDlg::OnRename() 綜合設(shè)計(jì) 簡(jiǎn)單 Ftp 客戶端的實(shí)現(xiàn) 24 { CString strNewName。 //得到 CListCtrl 被選中的項(xiàng) int i=(1,LVNI_SELECTED)。 } else { strOldName = (i,0)。 if (()==IDOK) { strNewName=。 else AfxMessageBox(無法重命名！ ,MB_OK|MB_ICONSTOP)。 } 退出函數(shù) OnExit： 為 ”退出 ”按紐添加 BN_CLICKED 響應(yīng)函數(shù) OnExit，代碼如下： void CFtpDlg::OnExit() { m_pConnection = NULL。 DestroyWindow()。此行代碼是問題關(guān)鍵 ,點(diǎn)退出時(shí) ,并沒有銷費(fèi) 解決之道 : OnExit 函數(shù)中調(diào)用 DestryWindow,而不是 CDialg::OnCancel。 解決之道： 在獲取子目錄名稱之前，使當(dāng)前目錄所代表的字符串加上符號(hào) ?/? ,代碼表示為： strCurrentDirectory+=/。 代碼實(shí)現(xiàn)為： if (LastIndex == 0) str=/。 通過對(duì) Ftp 這種大型的設(shè)計(jì)，我們組成員深感我們平時(shí)的編程習(xí)慣與良好的編程習(xí)慣相差甚遠(yuǎn)，小組成員決定在以后的編程過程中養(yǎng)成良好的編程習(xí)慣，這樣有助于自己所編的程序清晰明了便于該錯(cuò)還有助于別人來立解你的程序。 綜合設(shè)計(jì) 簡(jiǎn)單 Ftp 客戶端的實(shí)現(xiàn) 27 參考文獻(xiàn)： [1] 侯俊杰著。 VC++深入詳解 電子工業(yè) 出版社 等 相關(guān)工具： [1] 代碼分析工具： VC++ 及 MSDN 文檔 [2] 流程圖分析工具： Microsoft visio [3] 測(cè)試工具 FTP 服務(wù)器 ： babyServer（個(gè)人 FTP 服務(wù)器）