主要功能实现的代码和分析

主要功能实现的代码和分析（实验三）这个程序的类比较少，只需要在CFtpDlg类的FtpDlg.cpp文件中添加事件函数和成员函数的代码。

以下按照它们执行的功能分别介绍。

1．查询并显示FTP服务器的当前目录内容当用户输入了服务器名、登录用户名和口令后，点击‘查询’按钮，会产生BN_CLICKED 事件，导致执行对应的函数OnQuery()。

代码如下：void CFtpDlg::OnQuery(){CInternetSession* pSession; //定义会话对象指针变量CFtpConnection* pConnection; //定义连接对象指针变量CFtpFileFind* pFileFind; //定义文件查询对象指针变量CString strFileName;BOOL bContinue;pConnection=NULL; //初始化pFileFind=NULL;UpdateData(TRUE); // 获得用户的当前输入（服务器名，用户名和口令）while(m_listFile.GetCount()!=0) m_listFile.DeleteString(0); // 清除列表框的内容pSession=new CInternetSession( // 创建Internet会话类对象AfxGetAppName(),1,PRE_CONFIG_INTERNET_ACCESS);try{ // 试图建立与指定FTP服务器的连接pConnection=pSession->GetFtpConnection(m_strFtp,m_strName,m_strPwd );} catch (CInternetException* e) {e->Delete(); // 无法建立连接，进行错误处理pConnection=NULL;}if (pConnection!=NULL){// 创建CFtpFileFind对象，向构造函数传递CFtpConnection对象的指针pFileFind=new CFtpFileFind(pConnection);bContinue=pFileFind->FindFile("*"); // 查找服务器上当前目录的任意文件if (!bContinue) // 如果一个文件都找不到，结束查找{pFileFind->Close();pFileFind=NULL;}while (bContinue) // 找到了第一个文件，继续找其它的文件{strFileName=pFileFind->GetFileName(); // 获得找到的文件的文件名// 如果找到的是否目录，将目录名放在括弧中if (pFileFind->IsDirectory()) strFileName="["+strFileName+"]";// 将找到的文件或目录名显示在列表框中。

m_listFile.AddString(strFileName);bContinue=pFileFind->FindNextFile(); // 查找下一个文件}if (pFileFind!=NULL){pFileFind->Close(); // 结束查询pFileFind=NULL;}}delete pFileFind; // 删除文件查询对象if (pConnection!=NULL){pConnection->Close();delete pConnection; // 删除FTP连接对象}delete pSession; // 删除Internet 会话对象}2．实现文件下载功能//查询以后，当用户在列表框中选择了一个文件时，执行此函数。

void CFtpDlg::OnSelchangeListFile(){// 禁用用来输入的文本框控件m_editFtp.EnableWindow(FALSE); //服务器域名输入文本框m_editName.EnableWindow(FALSE); //登录用户名输入文本框m_editPwd.EnableWindow(FALSE); //口令输入文本框m_staFtp.EnableWindow(FALSE);m_staName.EnableWindow(FALSE);m_staPwd.EnableWindow(FALSE);//禁用查询和上传按钮m_btnUpload.EnableWindow(FALSE); //上传按钮m_btnQuery.EnableWindow(FALSE); //查询按钮//激活下载按钮m_btnDownload.EnableWindow(TRUE);}//当用户点击“下载”按钮时，执行此函数void CFtpDlg::OnDownload(){//获得当前输入UpdateData(TRUE);int nSel=m_listFile.GetCurSel();CString strSourceName;//获得用户在列表框中的选择nSel=m_listFile.GetCurSel();m_listFile.GetText(nSel,strSourceName);if (strSourceName.GetAt(0)!='[' ){//选择的是文件CString strDestName;CFileDialog dlg(FALSE,"","*.*"); //定义了一个文件对话框对象变量if (dlg.DoModal()==IDOK) //激活文件对话框{//获得下载文件在本地机上存储的路径和名称strDestName=dlg.GetPathName();//调用函数下载文件if (Download (strSourceName,strDestName))AfxMessageBox("下载成功！",MB_OK|MB_ICONINFORMATION);elseAfxMessageBox("下载失败！",MB_OK|MB_ICONSTOP);} else {AfxMessageBox("请写入文件名！",MB_OK|MB_ICONSTOP);}} else {//选择的是目录AfxMessageBox("不能下载目录!\n请重选!",MB_OK|MB_ICONSTOP);}//禁用下载按钮m_btnDownload.EnableWindow(FALSE);//激活查询和上传按钮m_btnUpload.EnableWindow(TRUE);m_btnQuery.EnableWindow(TRUE);//激活用来输入的文本和编辑框控件m_editFtp.EnableWindow(TRUE);m_editName.EnableWindow(TRUE);m_editPwd.EnableWindow(TRUE);m_staFtp.EnableWindow(TRUE);m_staName.EnableWindow(TRUE);m_staPwd.EnableWindow(TRUE);}// Download函数由OnDownload函数调用，执行实际的下载任务BOOL CFtpDlg:: Download (CString strSName, CString strDName) {CInternetSession* pSession; //定义会话对象变量指针CFtpConnection* pConnection; //定义连接对象变量指针pConnection=NULL;//创建Internet会话对象pSession=new CInternetSession( AfxGetAppName(), 1,PRE_CONFIG_INTERNET_ACCESS);try{//建立FTP连接pConnection=pSession->GetFtpConnection(m_strFtp,m_strName, m_strPwd);}catch (CInternetException* e){//错误处理e->Delete();pConnection=NULL;return FALSE;}if (pConnection!=NULL){//下载文件if (!pConnection->GetFile(strSName,strDName)){//下载文件错误pConnection->Close();delete pConnection;delete pSession;return FALSE;}}//清除对象if (pConnection!=NULL){pConnection->Close();delete pConnection;}delete pSession;return TRUE;}3．实现文件上传功能//当用户点击“上传”按钮时，执行此函数void CFtpDlg::OnUpload(){//获得当前输入UpdateData(TRUE);//禁用用于输入的文本框控件m_editFtp.EnableWindow(FALSE); //服务器域名输入文本框m_editName.EnableWindow(FALSE); //登录客户名输入文本框m_editPwd.EnableWindow(FALSE); //口令输入文本框m_staFtp.EnableWindow(FALSE);m_staName.EnableWindow(FALSE);m_staPwd.EnableWindow(FALSE);//禁用查询按钮m_btnQuery.EnableWindow(FALSE);CString strSourceName;CString strDestName;CFileDialog dlg(TRUE,"","*.*"); //定义文本对话框对象变量if (dlg.DoModal()==IDOK){//获得待上传的本地机文件路径和文件名strSourceName=dlg.GetPathName();strDestName=dlg.GetFileName();//调用Upload函数上传文件if (Upload (strSourceName,strDestName))AfxMessageBox("上传成功！",MB_OK|MB_ICONINFORMATION);elseAfxMessageBox("上传失败！",MB_OK|MB_ICONSTOP);} else {//文件选择有错误AfxMessageBox("请选择文件！",MB_OK|MB_ICONSTOP);}//激活查询按钮m_btnQuery.EnableWindow(TRUE);//激活用于输入的文本框控件m_editFtp.EnableWindow(TRUE);m_editName.EnableWindow(TRUE);m_editPwd.EnableWindow(TRUE);m_staFtp.EnableWindow(TRUE);m_staName.EnableWindow(TRUE);m_staPwd.EnableWindow(TRUE);}// Upload函数有事件处理函数OnUpload调用，执行实际的上传任务BOOL CFtpDlg:: Upload (CString strSName, CString strDName){CInternetSession* pSession;CFtpConnection* pConnection;pConnection=NULL;//创建Internet会话pSession=new CInternetSession( AfxGetAppName(), 1,PRE_CONFIG_INTERNET_ACCESS);try{//建立FTP连接pConnection=pSession->GetFtpConnection( m_strFtp,m_strName, m_strPwd);}catch (CInternetException* e){//错误处理e->Delete();pConnection=NULL;return FALSE;}if (pConnection!=NULL){//上传文件if (!pConnection->PutFile(strSName,strDName)){//上传文件错误pConnection->Close();delete pConnection;delete pSession;return FALSE;}}//清除对象if (pConnection!=NULL){pConnection->Close();delete pConnection;}delete pSession;return TRUE;}。