课程设计:用wininet接口写的FTP Client

题目1  FTP客户端

编写一个简单的FTP客户机程序，要求能够向FTP服务器发送命令，并接收FTP服务器返回的响应与数据。程序设计的具体要求如下：

1）要求实现的程序为图形化界面（如图下所示），可以输入FTP服务的相关信息（包括IP地址、用户名与密码），输出交互过程中的FTP命令与响应信息，以及从FTP服务器的根目录获得的文件（或目录）列表。

2）要求遵循RFC959的相关FTP协议规定。只要求实现USER、PASS、PASV、LIST、RETR和QUIT命令。点击Connect按钮，实现USER与PASS命令；点击List按钮，实现PASV 与LIST命令；点击Download按钮，实现PASV 与RETR命令；点击Quit按钮，实现QUIT命令。

3）支持IP地址、域名输入，及合法性检测，显示FTP登录过程，下载速率等。

4）支持多线程下载，实现线程管理，显示各线程的状态。报告各种异常，提示产生异常的原因。

5）要求有良好的编程规范与注释信息。

6）要求有详细的说明文档，包括程序的设计思想、工作流程、关键问题等。

7）要求在Windows操作系统环境中，建议使用Visual C++编程工具实现。

一.详细设计

我之所以选择使用wininet的接口，是因为用它来开发的话会比较简单和快速。

（1）界面布局

（2）为Connect,List,Download,Upload，Quit，<-等button添加BN_CLICKED事件以及编写事件函数

（3）代码的编写集中CFtpClientDlg类里，下面就详细介绍一下这个类的代码：

1.几个常量：

//存储所有文件类型
const char fielType[8][9] = {"归档文件","文件夹","隐藏文件","普通文件","只读文件","系统文件","临时文件","其他文件"};
const int BUF_SIZE = 4096 ;
const int MSG_SIZE = 1024 ;

2.CFTPClientDlg的变量

        CFont edit_font;

CInternetSession m_InternetSession;  //定义一个会话对象
CFtpConnection *m_pFtpConnection;   //连接对象指针
HANDLE m_hEventKill;        //事件句柄


CString m_sFTPServerCurFolder;         //FTP服务器当前目录
CString m_sFTPServerParentFolder;    //FTP服务器当前目录的父目录


DWORD dwLastErrorMsg;                      //应答码
DWORD dwErrorMsgSize;     //应答信息长度
char  buf[MSG_SIZE];     //应答信息


CString strServer;                                    //服务器地址
        CString strRemoteFile;                          //选中的远程文件地址
CString strLocalFile;                              //存储在本地的文件地址
int     nItem;                                              //选中项的索引
int     selectedFileType;                         //选中文件的类型
long    fileLen;                                         //选中文件的长度
long    downloadSize;                           //当前下载量
bool    isSelected;                                 //是否选中 

3.CFTPClientDlg的构造函数

CFTPClientDlg::CFTPClientDlg(CWnd* pParent /*=NULL*/)
: CDialog(CFTPClientDlg::IDD, pParent)
{
//{{AFX_DATA_INIT(CFTPClientDlg)
m_Address = _T("");
m_Password = _T("");
m_User = _T("");
//}}AFX_DATA_INIT
// Note that LoadIcon does not require a subsequent DestroyIcon in Win32
m_hIcon = AfxGetApp()->LoadIcon(IDR_MAINFRAME);
edit_font.CreateFont(
18,   //字体大小
0,0,0,FW_NORMAL,  
FALSE,FALSE,  
0,  
ANSI_CHARSET,              // nCharSet
OUT_DEFAULT_PRECIS,        // nOutPrecision
CLIP_DEFAULT_PRECIS,       // nClipPrecision
DEFAULT_QUALITY,           // nQuality
        DEFAULT_PITCH | FF_SWISS, "Arial");

m_pFtpConnection = NULL;
m_hEventKill = CreateEvent (NULL, TRUE, FALSE, NULL);


m_sFTPServerCurFolder = "/";
m_sFTPServerParentFolder = "/";

dwLastErrorMsg = 0;
dwErrorMsgSize = MSG_SIZE;


strServer = "";
strRemoteFile = "";
strLocalFile = "";

nItem = 0;
selectedFileType = 0;
fileLen = 0;
downloadSize = 0;
        isSelected = FALSE;


// Set the timeout value to 10 seconds
m_InternetSession.SetOption (INTERNET_OPTION_CONNECT_TIMEOUT, 10000);
m_InternetSession.SetOption (INTERNET_OPTION_RECEIVE_TIMEOUT, 10000);
m_InternetSession.SetOption (INTERNET_OPTION_SEND_TIMEOUT, 10000);
}

4.CFTPClientDlg的地址解析函数

bool CFTPClientDlg::parsrAddress()
{
if(m_Address.IsEmpty())
{
AfxMessageBox("没有给出主机地址,请输入一个主机地址!");
return FALSE;
}
else
{
m_Interact_Info.AddString("状态: 正在解析"+m_Address+"的地址...");
DWORD dwServiceType;
CString strObject;
INTERNET_PORT nPort;
AfxParseURL(m_Address,dwServiceType,strServer,strObject,nPort);
if (strServer.IsEmpty())
strServer = m_Address;


hostent* phe = gethostbyname(strServer);
struct in_addr addr;

if(strServer.IsEmpty() && NULL == phe)
m_Interact_Info.AddString("错误: 非法地址");
else
{
addr.s_addr = *(u_long *) phe->h_addr_list[0];
char* ip = inet_ntoa(addr);
CString temp = "状态: 正在连接 ";
temp += ip;
temp += "...";
m_Interact_Info.AddString(temp);
}
phe = NULL;
return TRUE;
}
}

5.判断是否连接到FTP服务器

bool CFTPClientDlg::IsInitialized()
{
if (m_pFtpConnection != NULL)
return true;
else
return false;
}

6.获取服务器的响应信息，不过这个函数并不是经常奏效，我也没搞明白为什么有时候获取不到响信息

void CFTPClientDlg::GetResponseInfo()
{


::InternetGetLastResponseInfo(&dwLastErrorMsg,buf,&dwErrorMsgSize);


char info[100];
int i=0,j=0;
for( i =0;i<MSG_SIZE;i++)
{
if('\0' == buf[i] )
break;
if ('\n' != buf[i])
{
info[j] = buf[i];
j++;
}
else
{
info[j] = '\0';
m_Interact_Info.AddString(CString("响应: ") +info);
j=0;
}
}
}

7.登陆函数

bool CFTPClientDlg::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 = m_InternetSession.GetFtpConnection (sHost, sUsername, sPassword, nPort, bPASV);

if (m_pFtpConnection != NULL) //获取当前目录
{
m_Interact_Info.AddString("状态: 连接建立，等待欢迎消息...");
GetResponseInfo();
m_pFtpConnection->GetCurrentDirectory (m_sFTPServerCurFolder);
GetResponseInfo();
break;
}
m_Interact_Info.AddString("错误: 时间超时!");
nRetryCount ++;
}
}

rr = (nRetryCount < nRetries);


return rr ;

}

8.退出服务器函数

void CFTPClientDlg::Logoff()
{
if (m_pFtpConnection != NULL)
{
m_pFtpConnection->Close ();
GetResponseInfo();
delete m_pFtpConnection;
m_pFtpConnection = NULL;
m_sFTPServerCurFolder.Empty ();
m_Interact_Info.AddString("状态: 退出服务器!");
m_Interact_Info.SetTopIndex(m_Interact_Info.GetCount()-5);//将滚动条下拉到显示ListBox的最新内容
m_Dir_Info.DeleteAllItems();
}
}

9.设置FTP服务器的当前目录

bool CFTPClientDlg::ChangeCurrentDir(const CString &sRemoteDir)
{
bool rr = false ;


if (m_pFtpConnection != NULL)
{
m_pFtpConnection->SetCurrentDirectory(sRemoteDir);
GetResponseInfo();
rr = true ;
}


return rr ;
}

10.下载函数

bool CFTPClientDlg::Download (const CString &sRemoteFile, const CString &sLocalFile, bool pbAbort,DWORD dwTransferType)
{
bool rr = false ;
downloadSize = 0;


if (m_pFtpConnection != NULL)
{
CString sSource (sRemoteFile);
CString sDestPath (sLocalFile);


CFile file;

// 打开本地文件
if (file.Open(sDestPath, CFile::modeCreate | CFile::modeWrite, NULL))
{
//打开远程资源文件
CInternetFile* pInternetFile = m_pFtpConnection->OpenFile (sSource, GENERIC_READ, dwTransferType);
GetResponseInfo();
if (pInternetFile)
{
char buffer[BUF_SIZE];
unsigned int nRead = BUF_SIZE;
char temp[20];


//读取文件
while ( (nRead == BUF_SIZE) && (WaitForSingleObject(m_hEventKill, 0) == WAIT_TIMEOUT) && (!pbAbort) )
{
// read remote data into buffer
nRead = pInternetFile->Read (buffer, BUF_SIZE);
downloadSize += nRead ;//更新下载量
m_Dir_Info.SetItemText(nItem,3,ltoa(downloadSize,temp,10));//在列表控件里更新显示
this->UpdateWindow();
// write buffer to data file
file.Write (buffer, nRead);
}
GetResponseInfo();
//关闭远程资源文件
pInternetFile->Close ();
delete pInternetFile;


rr = true ;
}

// 关闭本地文件
file.Close ();
}
}


return rr ;
}

11.上传函数

bool CFTPClientDlg::Upload (const CString &sLocalFile, bool pbAbort, DWORD dwTransferType)
{
bool rr = false ;


if (m_pFtpConnection != NULL)
{
CFile file;

//打开本地文件
if (file.Open (sLocalFile, CFile::modeRead, NULL))
{
CInternetFile* pInternetFile = m_pFtpConnection->OpenFile (file.GetFileName (), GENERIC_WRITE);
GetResponseInfo();
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 buffer
nRead = file.Read (buffer, BUF_SIZE);
// write buffer to remote data file
pInternetFile->Write (buffer, nRead);
}
GetResponseInfo();
//关闭远程资源文件
pInternetFile->Close();
delete pInternetFile;


rr = true ;
}


// 关闭本地文件
file.Close();
}
}


return rr ;
}

12.查找FTP服务器当前目录下的所有文件

bool CFTPClientDlg::GetFileList (const CString &sCurrentDir)
{
bool rr = false ;
CString sFileName;
char buf[20];
CString len;
int type;

if (m_pFtpConnection != NULL)
{
if (m_Dir_Info.GetItemCount()>0)
m_Dir_Info.DeleteAllItems();


CFtpFileFind ftpFind (m_pFtpConnection); //创建CFtpFileFind对象


BOOL bContinue = ftpFind.FindFile (sCurrentDir); //查找FTP当前目录下的文件
GetResponseInfo();
if (!bContinue)
{
ftpFind.Close ();
m_Interact_Info.AddString("错误: 未能在服务器找到文件!");
return rr;
}

int i = 0;
// 将所检索到的文件追加到列表控件中
while (bContinue)
{
bContinue = ftpFind.FindNextFile ();
GetResponseInfo();
sFileName = ftpFind.GetFileName();
m_Dir_Info.InsertItem(i,sFileName);//文件名
GetTypeOfFile(type,ftpFind);
if(1 != type )
{
len = ltoa(ftpFind.GetLength(),buf,10);
len += " B";
}
else
len = "";
m_Dir_Info.SetItemText(i,1,len);//文件大小
m_Dir_Info.SetItemText(i,2,fielType[type]);//文件类型
m_Dir_Info.SetItemData(i,type);
i++;
rr = true ;

}
if (0 == i)
m_Dir_Info.SetItemText(0,0,"空文件夹");
ftpFind.Close ();
}


return rr ;
}

13.获取文件类型函数

void CFTPClientDlg::GetTypeOfFile(int &type,const CFtpFileFind &fileFind)
{
if (fileFind.IsArchived())
type = 0;
else if (fileFind.IsDirectory()||fileFind.IsDots())
type = 1;
else if (fileFind.IsHidden())
type = 2;
else if(fileFind.IsNormal())
type = 3;
else if(fileFind.IsReadOnly())
type = 4;
else if(fileFind.IsSystem())
type = 5;
else if(fileFind.IsTemporary())
type = 6;
else
type = 7;
}

14.初始化列表控件

void CFTPClientDlg::initListCtrl()
{
m_Dir_Info.InsertColumn(0,"文件名",LVCFMT_LEFT,80);
m_Dir_Info.InsertColumn(1,"文件大小",LVCFMT_LEFT,100);
m_Dir_Info.InsertColumn(2,"文件类型",LVCFMT_LEFT,80);
m_Dir_Info.InsertColumn(3,"下载进度",LVCFMT_LEFT,80);
m_Dir_Info.SetExtendedStyle(LVS_EX_FULLROWSELECT);
}

15.点击List按钮的响应函数

void CFTPClientDlg::OnButtonList() 
{
// TODO: Add your control notification handler code here
if(isSelected)
{
           UpdateCurrentDir();
  m_Interact_Info.AddString("状态: 正在读取目录列表...");
  if(GetFileList(m_sFTPServerCurFolder))
m_Interact_Info.AddString("状态: 读取目录列表成功");
  else
m_Interact_Info.AddString("错误: 读取目录列表失败!");
  isSelected = FALSE;
  m_Interact_Info.SetTopIndex(m_Interact_Info.GetCount()-5);//将滚动条下拉到显示ListBox的最新内容
}
else
 AfxMessageBox("请选择文件!");
}

16.更新服务器的当前目录

void CFTPClientDlg::UpdateCurrentDir()
{
  if(1 == selectedFileType)//1代表文件夹
{
if ("/" == m_sFTPServerCurFolder.Right(1) )//如果当前目录以'/'结尾
m_sFTPServerCurFolder += strRemoteFile;
else
m_sFTPServerCurFolder += ("/" + strRemoteFile);
}
// AfxMessageBox(m_sFTPServerCurFolder);
ChangeCurrentDir(m_sFTPServerCurFolder);
}

17.点击Download按钮的响应函数

void CFTPClientDlg::OnButtonDownload() 
{
// TODO: Add your control notification handler code here
if(isSelected)
{
   CFileDialog saveDlg(FALSE,NULL,strRemoteFile,OFN_HIDEREADONLY |OFN_OVERWRITEPROMPT,NULL,this);


   if( IDOK == saveDlg.DoModal() )
   {
m_Interact_Info.AddString("状态: 开始下载 " + strRemoteFile + " ...");
if(1 != selectedFileType )
{
strLocalFile = saveDlg.GetPathName();
Download(strRemoteFile,strLocalFile);
m_Interact_Info.AddString("状态: 下载 " + strRemoteFile + "成功!");
}
else
{
AfxMessageBox("不支持下载文件夹!");
m_Interact_Info.AddString("错误: 下载 " + strRemoteFile + "失败!");
}
  m_Interact_Info.SetTopIndex(m_Interact_Info.GetCount()-5);//将滚动条下拉到显示ListBox的最新内容
  }
  isSelected = FALSE;
}
else
 AfxMessageBox("请选中文件");
}

18.点击目录信息ListCtrl的响应函数

void CFTPClientDlg::OnClickListDirInfo(NMHDR* pNMHDR, LRESULT* pResult) 
{
// TODO: Add your control notification handler code here
isSelected = TRUE;//设置选中
//Retrieves the position of the first selected list view item in a list view control
POSITION pos = m_Dir_Info.GetFirstSelectedItemPosition();
//Retrieves the index of a list view item position, and the position of the next selected list view item for iterating.
nItem = m_Dir_Info.GetNextSelectedItem(pos);


//获取远程文件名字
strRemoteFile = m_Dir_Info.GetItemText(nItem,0);
//选中文件的长度
fileLen = atol(m_Dir_Info.GetItemText(nItem,1));
//获取选中文件的类型
selectedFileType = m_Dir_Info.GetItemData(nItem);


*pResult = 0;
}

19.点击Quit按钮的响应函数

void CFTPClientDlg::OnButtonQuit() 
{
// TODO: Add your control notification handler code here
if(IsInitialized())
  Logoff();
else
  AfxMessageBox("请先登录服务器!");
}

20.点击Upload按钮的响应函数

void CFTPClientDlg::OnButtonUpload() 
{
// TODO: Add your control notification handler code here
CFileDialog uploadDlg(TRUE,NULL,NULL,OFN_HIDEREADONLY |OFN_OVERWRITEPROMPT,NULL,this);
if(IDOK == uploadDlg.DoModal())
{
strLocalFile = uploadDlg.GetPathName();
Upload(strLocalFile);
m_Interact_Info.SetTopIndex(m_Interact_Info.GetCount()-5);//将滚动条下拉到显示ListBox的最新内容
}
}

21.点击<-按钮的响应函数

void CFTPClientDlg::OnButtonParent() 
{
// TODO: Add your control notification handler code here
if("/" != m_sFTPServerCurFolder)
{
int index = m_sFTPServerCurFolder.ReverseFind('/');
if(-1 != index)
{
//截取字符串获得父目录
if(0 == index) index = 1;
m_sFTPServerParentFolder = m_sFTPServerCurFolder.Left(index);
m_sFTPServerCurFolder = m_sFTPServerParentFolder;
GetFileList(m_sFTPServerCurFolder);
}
}
}

二.运行结果截图

1.初始界面

2.在Address编辑框里输入“ftp.microsoft.com”，然后点击Connect按钮

3.点击List按钮

4.点击Download按钮

5.点击保存按钮，下载完成后

6.点击Quit按钮

三.小结

           写这些代码花了两天半，由于个人水平有限，所以代码比较粗糙，希望读者见谅。在写代码过程中,关于FTP client的主要过程，我主要是参考msdn的这篇文章http://msdn.microsoft.com/en-us/library/hf9x9wb4(v=vs.71).aspx，也在msdn查了不少类的api,当然少不了在google查资料咯。这个小程序主要实现了连接ft服务器，列出目录列表，下载和上传文件，退出服务器这些比较基础的功能，但还有相当多的不足，例如没有使用 CInternetException类来处理异常，不能多线程下载和上传，界面不美观，不能有效地获取服务器响应信息，还有重命名，删除服务器的文件等功能没有实现。