《网络编程实验报告2_KN.doc》由会员分享，可在线阅读，更多相关《网络编程实验报告2_KN.doc（9页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、 工学院实验报告实验项目：FTP-客户机端（网络编程实验） 计算机科学与技术 专业 0801 班姓 名： 于佳涛 学 号: 080102060051指导老师: 赵福祥 2011年 11 月实现目标:在因特网上有很多FTP服务器，他们存有丰富的软件和信息资源，至今仍然是因特网提供的主要服务之一。现在也有很多FTP客户端软件，比如CuteFtp程序等，本小节就通过一个使用MFC WinInet类编制的FTP客户端程序的例子，说明MFC WinInet应用程序的编程方法。程序能实现基本的FTP客户端功能，能登陆FTP服务器，显示登录客户目录下的文件和目录名，能从该目录中选择下载服务器的文件，也能向服
2、务器上传文件。应用程序的类型是基于对话框的，主对话框用户界面如图6.10所示：图1 Ftp客户端程序的主对话框三个文本编辑框，分别用于输入FTP服务器域名，登录用户名和登录口令。一个列表框，用来显示FTP服务器当前目录的内容，并允许用户从中选择文件下载。四个命令按钮分别执行查询、上传、下载和退出的功能。用户执行程序的流程是：进行各种操作之前，应首先输入服务器域名，登录用户名和口令。如果要进行查询，可以点击查询按钮，调用OnQuery函数。该函数获得用户当前输入的服务器名、登录用户名和口令等信息，清除列表框的内容；然号创建Internet会话类对象，进行服务器的登录，试图建立与指定FTP服务器的
3、连接；如果连接成功，就创建CFtpFileFind文件检索类对象，查找服务器上当前目录的任意文件，找到了第一个文件后，继续找其它的文件，并将找到的文件或目录名显示在列表框中。所有文件找到后，结束查询，并依次删除文件查询对象、FTP连接对象和Internet 会话对象，结束会话。此时，可以从服务器下载文件。从列表框中选择一个文件，会产生LBN_SELCHANGE事件，自动调用相应的OnSelchangeListFile函数，禁用用来输入的文本框控件，禁用查询和上传按钮，激活下载按钮。此时，用户可以点击下载按钮，产生BN_CLICKED事件，自动调用OnDownload函数，调用Download函
4、数，下载该文件。下载完毕，禁用下载按钮，激活查询和上传按钮，激活用来输入的文本框控件。而Download函数重新创建Internet会话，建立FTP连接，下载文件后，将会话对象和连接对象清除。如果要向FTP服务器上传文件，点击“上传“按钮，产生BN_CLICKED事件，调用OnUpload函数，该函数获得当前输入的服务器名、登录用户名和口令，禁用用于输入的文本框控件，禁用查询按钮，禁用用于输入的文本框控件，弹出小对话框，获得待上传的本地机文件路径和文件名，调用Upload函数上传文件。上传完毕，激活查询按钮，激活用于输入的文本和编辑控件。Upload函数也重新创建Internet会话，建立FT
5、P连接，上传文件后，然后清除会话对象和连接对象。实验程序的技术要点：如何创建一个Internet会话，即创建CInternetSession对象；如何建立与FTP服务器的连接，即创建CFtpConnection对象；如果连接成功，如何获得当前登录的目录下的文件和目录名称，即检索一个目录下的文件，并显示文件信息；如何下载文件、上传文件以及关闭连接。程序代码及运行结果：1使用MFC AppWizard创建应用程序框架工程名是Ftp，应用程序的类型是基于对话框的，其它部分接受系统的默认设置就可以。应用程序包括两个类：应用程序类：CFtp0051App，对应的文件是Ftp0051.h和Ftp0051.
6、cpp。对话框类：CFtp0051Dlg，对应的文件是Ftp0051Dlg.h和Ftp0051Dlg.cpp。2.代码这个程序的类比较少，只需要在CFtp0051Dlg类的Ftp0051Dlg.cpp文件中添加事件函数和成员函数的代码。以下按照它们执行的功能分别介绍。1查询并显示FTP服务器的当前目录内容当用户输入了服务器名、登录用户名和口令后，点击查询按钮，会产生BN_CLICKED事件，导致执行对应的函数OnQuery()。代码如下：void CFtp0051Dlg:OnQuery() / TODO: Add your control notification handler code h
7、ereCInternetSession* pSession; /定义会话对象指针变量CFtpConnection* pConnection; /定义连接对象指针变量CFtpFileFind* pFileFind; /定义文件查询对象指针变量CString strFileName;BOOL bContinue;pConnection=NULL; /初始化pFileFind=NULL;UpdateData(TRUE); / 获得用户的当前输入（服务器名，用户名和口令）while(m_listFile.GetCount()!=0) m_listFile.DeleteString(0); / 清除列表
8、框的内容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
9、对象，向构造函数传递CFtpConnection对象的指针pFileFind=new CFtpFileFind(pConnection);bContinue=pFileFind-FindFile(*); / 查找服务器上当前目录的任意文件if (!bContinue) / 如果一个文件都找不到，结束查找pFileFind-Close();pFileFind=NULL;while (bContinue) / 找到了第一个文件，继续找其它的文件strFileName=pFileFind-GetFileName(); / 获得找到的文件的文件名/ 如果找到的是否目录，将目录名放在括弧中if (pFi
10、leFind-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; / 删除
11、FTP连接对象delete pSession; / 删除Internet 会话对象 2实现文件下载功能/查询以后，当用户在列表框中选择了一个文件时，执行此函数。void CFtp0051Dlg:OnSelchangeListFile() / TODO: Add your control notification handler code here/ 禁用用来输入的文本框控件m_editFtp.EnableWindow(FALSE); /服务器域名输入文本框m_editName.EnableWindow(FALSE); /登录用户名输入文本框 m_editPwd.EnableWindow(FAL
12、SE); /口令输入文本框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 CFtp0051Dlg:OnDownload() / TODO: Add your control
13、notification handler code here/获得当前输入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.DoMo
14、dal()=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
15、|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.Enab
16、leWindow(TRUE);/ Download函数由OnDownload函数调用，执行实际的下载任务BOOL CFtp0051Dlg:Download(CString strSName, CString strDName) CInternetSession* pSession; /定义会话对象变量指针CFtpConnection* pConnection; /定义连接对象变量指针pConnection=NULL;/创建Internet会话对象pSession=new CInternetSession( AfxGetAppName(), 1,PRE_CONFIG_INTERNET_ACCES
17、S);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 FALS
18、E;/清除对象if (pConnection!=NULL)pConnection-Close();delete pConnection;delete pSession; return TRUE;3实现文件上传功能/当用户点击“上传”按钮时，执行此函数void CFtp0051Dlg:OnUpload() / TODO: Add your control notification handler code here/获得当前输入UpdateData(TRUE);/禁用用于输入的文本框控件m_editFtp.EnableWindow(FALSE); /服务器域名输入文本框m_editName.En
19、ableWindow(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)/
20、获得待上传的本地机文件路径和文件名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.EnableW
21、indow(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 CFtp0051Dlg:Upload(CString strSName, CString strDName) CInte
22、rnetSession* 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;