2008年(909)
分类:
2008-05-06 21:47:31
下载本文示例代码
微软提供了一个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();ok! 头文件到此为止.
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); } else AfxMessageBox("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); } }下载本文示例代码