文件vc文件上传和下载(ftp实现)

VC实现文件上传下载FTP

//连接ftp服务器void CMyFtpDlg: :OnConnect()

{

UpdateData(TRUE) ;

//新建对话m_pInetSession=new CInternetSession(AfxGetAppName() , 1,PRE_CONFIG_INTERNET_ACCESS) ;try

{

//新建连接对象m_pFtpConnection=m_pInetSession-> GetFtpConnection(m_strServer,m_strUserName,m_strPassword) ;

}catch(CInternetException *pEx)

{

//获取错误

TCHAR szError[1024] ;if(pEx-> GetErrorMessage(szError, 1024) )

AfxMessageBox(szError) ;else

AfxMessageBox( "There was an exception ") ;pEx-> Delete() ;m_pFtpConnection=NULL;return;

}m_pRemoteFinder = new CFtpFileFind(m_pFtpConnection) ;

//获得服务器根目录的所有文件并在列表框中显示

BrowseDir( " ",&m_ctrlRemoteFiles,m_pRemoteFinder,&m_arrRemoteFiles) ;

}

//下载单个文件void CMyFtpDlg: :DownFile(FILEITEM fileItem)

{if(f i leItem.bDir == TRUE)

{

AfxMessageBox( "本程序暂时不支持下载整个文件夹,请选择文件下载") ;

}else

{

//格式化文件名

CString strLocalFile, strRemoteFile;strRemoteFile.Format( "%s\\%s ",m_pRemoteFinder->GetRoot() ,fileItem. strFileName) ;strLocalFile.Format( "%s\\%s ",m_LocalFinder.GetRoot() ,fileItem. strFileName) ;//下载if(m_pFtpConnection-> GetFile(strLocalFile, strLocalFile) )

{

CString strMsg;strMsg.Format( "下载文件%s成功! ",f ileItem. strFileName) ;

AfxMessageBox(strMsg) ;

}

}

}

//上传单个文件void CMyFtpDlg: :UpFile(FILEITEM fileItem)

{if(f i leItem.bDir == TRUE)

{

AfxMessageBox( "本程序暂时不支持上载整个文件夹,请选择文件上载") ;

}else

{

//格式化文件名

CString strLocalFile, strRemoteFile;strRemoteFile.Format( "%s\\%s ",m_pRemoteFinder->GetRoot() ,fileItem. strFileName) ;strLocalFile.Format( "%s\\%s ",m_LocalFinder.GetRoot() ,fileItem. strFileName) ;//上传if(m_pFtpConnection-> PutFile(strLocalFile, strLocalFile) )

{

CString strMsg;strMsg.Format( "上载文件%s成功! ",f ileItem. strFileName) ;

AfxMessageBox(strMsg) ;

}

}

}