微軟提供了一個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.
需要改進的地方,一個是線程的問題,遍歷很占用資源,所以最後專門用個線程來.
再,一是可能是遞歸效率的問題,一可能是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);
}
}
本文配套源碼