鞋子起白斑怎么办:使用CFtpFileFind和递归算法来遍历ftp目录

使用CFtpFileFind和递归算法来遍历ftp目录
作者：BboRn

下载本文示例代码

微软提供了一个WinInet网络编程接口,可以让程序员在较高层次建立Internet客户应用程序.封装了Winsock API 来简化网络编程过程. 使用WinInet提供的十二个类中的一些,使程序员不需要了解Windows套接字的细节,只要几个函数既可完成链接和一些功能.这里给出一个简单的例子,来遍历一个ftp所有的文件,并输出一个有层次的列表.

首先建立一个对话框的程序,其中加入五个文本编辑框,分别用来输入ftp地址,端口,用户名,密码,和输出列表.再加入一个按钮.分别加入变量如下:

CString m_host; //ftp地址CString m_username;//用户名CString m_password;//密码int m_port;//端口CString m_ftpinfo;//输出的消息

CInternetSession *m_pInetSession;//WinInet类之一,创建并初始化Internet会话CFtpConnection *m_pFtpConnection;//建立Ftp连接int n;//用来产生层次的ftp输出目录,因为要重复使用,所以在这里定义

afx_msg void List();

void Cmfcftp3Dlg::OnBnClickedButton1(){m_pInetSession=new CInternetSession(AfxGetAppName(),1,PRE_CONFIG_INTERNET_ACCESS);UpdateData(TRUE);try{m_pFtpConnection=m_pInetSession->GetFtpConnection(m_host,m_username,m_password,m_port);if (m_pFtpConnection != NULL){CString m_i;m_i="连接成功\r\n";m_ftpinfo +=m_i;UpdateData(FALSE);List();}}catch (CInternetException * pEx){CString m_i;m_i="连接no成功\r\n";m_ftpinfo +=m_i;UpdateData(FALSE);TCHAR szError[1024];if ( pEx->GetErrorMessage(szError,1024)){m_i=(CString) szError;m_ftpinfo +=m_i;UpdateData(FALSE);}elseAfxMessageBox("There was an exception");pEx->Delete();m_pFtpConnection=NULL;}}

void Cmfcftp3Dlg::List(){CString m_i;CString m_ii;//用来保存一些临时信息CStringArray m_Dir;//用数组来保存目录CFtpFileFind   finder(m_pFtpConnection);BOOL bWorking=finder.FindFile(_T("*"));while (bWorking){bWorking = finder.FindNextFile();if ( finder.IsDots() ) continue;if (finder.IsDirectory()){m_Dir.Add( finder.GetFileName());//如果是目录的话,就保存在数组里}else{m_i=finder.GetFileName()+"\r\n";//如果不是目录的话,就先显示出来for (int j=0;jSetCurrentDirectory(m_Dir.GetAt(i));}List();         //递归调用!BOOL m_suc1=0;while(!m_suc1){m_suc1= m_pFtpConnection->SetCurrentDirectory("..");}n--;   //控制层次的}}

需要改进的地方,一个是线程的问题,遍历很占用资源,所以最后专门用个线程来.
再,一是可能是递归效率的问题,一可能是WinInet的问题,当需要遍历的目录比较多或者深的时候,
可能会出现程序显示没有响应.

其他: 刚好今天收到一位csdn上的朋友的信,告诉我他的解决方法.大同小异,一起附上,但没有测试.
来自nicky:

void ExpoloerDir(CString strDir) {CFtpFileFind finder(pFtp);CString filename;CStringList list;m_pFtp->SetCurrentDirectory(strDir);bool bContinue=(bool)finder.FindFile(“*”);while(bContinue) {bContinue=finder.FindNextFile();filename=finder.GetFileName();if(filename=="."||filename=="..")continue;if(finder.IsDirectory()==true)list.AddTail(filename);}finder.close();while(list.IsEmpty()==false) {strDir=list.RemoveHead();ExplorerDir(strDir);}}

补充一下，“挂了”是指不能正常的显示出中文目录和文件名。 ( yangzhi070 发表于 2007-4-11 14:50:00)
 
 对于英文的文件或目录可以，碰到中文的就挂了。

查看Ftp服务器那里接受到的命令，可以看到在传送前CFtpFileFind发送了"TPYE A"命令将传送内容设置为ASCII码。

不知道除了自己写代码之外，还有没有其他方法？
( yangzhi070 发表于 2007-4-11 14:48:00)
 
 我在ftp://shellxu.dhs.org/发布程序/ftphunter.exe上有自己写的程序，用的就是这个方法。http的基本都不支持列目录，所以应该不行. ( shell909090 发表于 2003-10-6 11:40:00)
 
 几点意见

1 一般不会一次性遍历这个ftp网站的目录,而是点击某个目录再新建ftp连接,列出该目录下的文件.否这如果ftp站点目录结构复杂,文件多,速度慢的时候就显得效率不高

2 GetFtpConnection返回的指针需要手工delete

总体来说,写的不错,值得鼓励 ( jiangsanhuo 发表于 2003-9-8 10:06:00)
 
 好像不行 也不是一个原理的,具体没有研究过 ( bborn 发表于 2003-7-18 11:33:00)
 
 请问上面这样的算法能不能用在遍历一个网站（http）的内容啊！比如说只知道一个网站的网址(比如： http://www.sohu.com)，要遍历整个网站的内容。
用CFileFind类下的FindFile()函数行吗？这个函数怎么用啊！我用的时候，搜索完毕后显示出来的都是本机上的文件啊！
静请赐教！！！
急用等中~~~~~~~~~~ ( plane_angel 发表于 2003-7-11 16:04:00)
 
.......................................................
More...