FTP应用编程

实验八 FTP应用编程一、实验目的：1、了解FTP工作原理及主要命令。

2、熟悉WinInet组成类及作用。

3、理解基于WinInet的FTP应用编程流程。

4、掌握FTP应用编程方法。

二、主要仪器设备：硬件：处理器：Pentium 233 MHz或更高处理器；内存：128 MB RAM或更高；硬盘空间：至少130 MB可用硬盘空间。

软件：Windows XP、Professional等操作系统、VC++.NET2005。

三、实验内容：设计一个程序实现对指定FTP服务器的登录、显示FTP服务器中指定目录的文件列表、选定文件下载、以及指定文件上传等操作。

四、实验步骤及结果：1、主要程序代码：##include""#include""const int BUF_SIZE = 4096 ;CMyFTPClient::CMyFTPClient(void){// Set the timeout value to 30 seconds(INTERNET_OPTION_CONNECT_TIMEOUT, 100);(INTERNET_OPTION_RECEIVE_TIMEOUT, 100);(INTERNET_OPTION_SEND_TIMEOUT, 100);m_pFtpConnection = NULL;m_hEventKill = CreateEvent (NULL, TRUE, FALSE, NULL);}CMyFTPClient::~CMyFTPClient(void){if (m_pFtpConnection != NULL){m_pFtpConnection->Close ();delete m_pFtpConnection;m_pFtpConnection = NULL;();}}bool CMyFTPClient::IsInitialized(){if (m_pFtpConnection != NULL)return true;elsereturn false;}bool CMyFTPClient::Login (const CString &sHost, const CString &sUsername, const CString &sPassword, BOOL bPASV, int nPort, int nRetries, int nRetryDelay){bool rr = false ;int nRetryCount = 0 ;if (m_pFtpConnection == NULL){while (nRetryCount < nRetries){//连接指定的FTP服务器m_pFtpConnection = (sHost, sUsername, sPassword, nPort, bPASV);if (m_pFtpConnection != NULL) //获取当前目录{m_pFtpConnection->GetCurrentDirectory (m_sFTPRootFolder);break;}nRetryCount ++;}}rr = (nRetryCount < nRetries);return rr ;}void CMyFTPClient::Logoff(){if (m_pFtpConnection != NULL){m_pFtpConnection->Close ();delete m_pFtpConnection;m_pFtpConnection = NULL;();}}//设置FTP服务器的当前目录bool CMyFTPClient::ChangeCurrentDir(const CString sRemoteDir){bool rr = false ;if (m_pFtpConnection != NULL){m_pFtpConnection->SetCurrentDirectory(sRemoteDir);rr = true ;}return rr ;}//下载指定文件到本地bool CMyFTPClient::Download (const CString &sRemoteFile, const CString &sLocalFile, bool pbAbort,DWORD dwTransferType){bool rr = false ;if (m_pFtpConnection != NULL){CString sSource (sRemoteFile);CString sDestPath (sLocalFile);CFile file;// 打开本地文件if (sDestPath, CFile::modeCreate | CFile::modeWrite, NULL)){//打开远程资源文件CInternetFile* pInternetFile = m_pFtpConnection->OpenFile (sSource, GENERIC_READ, dwTransferType);if (pInternetFile){char buffer[BUF_SIZE];unsigned int nRead = BUF_SIZE;//读取文件while ( (nRead == BUF_SIZE) && (WaitForSingleObject(m_hEventKill, 0) == WAIT_TIMEOUT) && (!pbAbort) ){// read remote data into buffernRead = pInternetFile->Read (buffer, BUF_SIZE);// write buffer to data file(buffer, nRead);}//关闭远程资源文件pInternetFile->Close ();delete pInternetFile;rr = true ;}// 关闭本地文件();}}return rr ;}//上载指定文件到FTP根目录bool CMyFTPClient::Upload (const CString &sLocalFile, bool pbAbort, DWORD dwTransferType){bool rr = false ;if (m_pFtpConnection != NULL){CFile file;//打开本地文件if (sLocalFile, CFile::modeRead, NULL)){CInternetFile* pInternetFile = m_pFtpConnection->OpenFile (), GENERIC_WRITE);if (pInternetFile){//定义读写缓存char buffer [BUF_SIZE];unsigned int nRead = BUF_SIZE;//读写文件while( nRead == BUF_SIZE && (WaitForSingleObject(m_hEventKill, 0) == WAIT_TIMEOUT) && (!pbAbort) ){// read data into buffernRead = (buffer, BUF_SIZE);// write buffer to remote data filepInternetFile->Write (buffer, nRead);}//关闭远程资源文件pInternetFile->Close();delete pInternetFile;rr = true ;}// 关闭本地文件();}}return rr ;}//查找FTP服务器当前目录下的所有文件bool CMyFTPClient::GetFileList (CStringArray &sFileNameArray, bool bExcludeHidden){bool rr = false ;CString sFileName;if (m_pFtpConnection != NULL){CFtpFileFind ftpFind (m_pFtpConnection); //创建CFtpFileFind对象bool bContinue = (NULL); //查找FTP当前根目录文件if (!bContinue){();return rr;}// 将所检索到的文件追加到文件列表中while (bContinue){bContinue = ();if ()) continue; //过滤目录名else{if (! (bExcludeHidden && ())){sFileName = ();(sFileName);rr = true ;}}}();}return rr ;}。