微软提供了一个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! 头文件到此为止.
在初始化函数中,设置 n=0;
添加按钮的事件,
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;j<n;j++) //这里就是来控制层次的,深的目录前面就多空一些
{
m_ii="/t";
m_ftpinfo=m_ftpinfo+m_ii;
}
m_ftpinfo +=m_i;
UpdateData(FALSE);
}
}
finder.Close(); //连接关闭
for(int i=0;i<m_Dir.GetSize();i++) //开始遍历目录里的文件
{
n++;
m_i="["+m_Dir.GetAt(i)+"]"+"/r/n"; //在目录的名字外面加上[]
for (int j=1;j<n;j++)
{
m_ii="/t";
m_ftpinfo=m_ftpinfo+m_ii;
}
m_ftpinfo +=m_i; //先显示目录的名字
UpdateData(FALSE);
BOOL m_suc=0;
while (!m_suc) //进入目录里面
{
m_suc=m_pFtpConnection->SetCurrentDirectory(m_Dir.GetAt(i));
}
List(); //递归调用!
BOOL m_suc1=0;
while(!m_suc1)
{
m_suc1= m_pFtpConnection->SetCurrentDirectory("..");
}
n--; //控制层次的
}
}
这里有个问题就是关于CFtpFileFind的调用,不能同时有两个CFtpFileFind的函数存在,
否则会出错,这也是为什么要用数组保存的原因! 对此msdn的解释是:
ERROR_FTP_TRANSFER_IN_PROGRESS
The requested operation cannot be made on the FTP session handle because an
operation is already in progress.