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

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

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

{

UpdateData(TRUE);

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

{

//新建连接对象m_pFtpConnection=m_pInetS es s ion->GetFtpConnec tion(m_strS erver,m_strUs erName,m_strPas sw ord);

}c atch(CInternetExc eption *pEx)

{

//获取错误

TCHAR szError[1024];if(pEx->GetErrorMes s age(szError,1024))

AfxMes sageBox(szError);els e

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

}m_pRemoteFinder = new CFtpFileFind(m_pFtpConnection);

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

Brow s eDir( " ",&m_ctrlRemoteFiles,m_pRemoteFinder,&m_arrRemoteFiles);

}

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

{if(fileItem.bDir == TRUE)

{

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

}els e

{

//格式化文件名

CString strLocalFile,strRemoteFile;s trRemoteF ile.F ormat( "%s\\%s ",m_pRemoteF inder->GetRoot(),fileItem.s trF ileName);strLoc alFile.Format( "%s\\%s ",m_Loc alFinder.GetRoot(),fileItem.strFileN ame);//下载if(m_pFtpConnec tion->GetFile(strLoc alF ile,strLoc alFile))

{

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

AfxMes sageBox(strMsg);

}

}

}

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

{if(fileItem.bDir == TRUE)

{

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

{

//格式化文件名

CString strLocalFile,strRemoteFile;s trRemoteF ile.F ormat( "%s\\%s ",m_pRemoteF inder->GetRoot(),fileItem.strF ileName);strLoc alFile.Format( "%s\\%s ",m_Loc alFinder.GetRoot(),fileItem.strFileN ame);//上传if(m_pFtpConnec tion->PutFile(strLoc alFile,strLoc alFile))

{

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

AfxMes sageBox(strMsg);

}

}

}