342上位机VC MFC实现FTP文件上传下载重命名删除 - 工控编程吧

上传

点击文件名下载附件
FTP文件上传下载重命名删除
功能展示
网络中文件上传是常用的一功能，我们当前例程实现FTP服务器的连接，断开，文件上传下载，重命名与删除功能，效果如图，填写完正确的FTP服务器信息后，可以点击<连接><断开>。连接后，可以将本地的文件上传到服务器中，也可以从服务器下载文件到本地；

要点提示
当前例程实现文件上传下载是通过类CInternetSession与类CFtpConnection实现； CInternetSession建立一个INTERNET连接，通过其构造函数实现连接；通过其成员函数GetFtpConnection()可以获得CFtpConnection类的对象指针，再通过CFtpConnection类的成员函数PutFile(), GetFile(), Rename(), Remove就可以对文件进行上传下载，重命名删除操作；

实现功能
1.新建基于对话框的应用程序
2.在主对话框中添加两成员变量CInternetSession *m_pInetSession; CFtpConnection *m_pFtpConnection;及类所在头文件#include < afxinet.h > ；
3.依照例程界面添加编辑框IDC_FTP_IP， IDC_FTP_ACCOUNT， IDC_FTP_PASSWORD， IDC_LOCALFILE_EDIT， IDC_SERVERFILE_EDIT，分别对应FTP服务器IP地址，FTP账号， FTP密码，本地文件，服务器文件。再添加按钮<连接><断开><上传到服务器><从服务器下载><重命名服务器文件><删除服务器文件><本地文件>关联按钮的点击函数
void CGkbc8Dlg::OnConnect()//连接到服务器；
{
CString sFTP_IP,sFTP_ACCOUNT,sFTP_PASSWORD;
GetDlgItemText(IDC_FTP_IP,sFTP_IP);
GetDlgItemText(IDC_FTP_ACCOUNT,sFTP_ACCOUNT);
GetDlgItemText(IDC_FTP_PASSWORD,sFTP_PASSWORD);
if(sFTP_IP.IsEmpty()||sFTP_ACCOUNT.IsEmpty()||sFTP_PASSWORD.IsEmpty())
{
MessageBox("服务器信息添加不全");
return;
}
m_pInetSession = new CInternetSession(AfxGetAppName(),1,PRE_CONFIG_INTERNET_ACCESS);
try
{
m_pFtpConnection = m_pInetSession->GetFtpConnection(sFTP_IP, sFTP_ACCOUNT, sFTP_PASSWORD);
AfxMessageBox("连接到 " + sFTP_IP + "成功！");
}
catch(CInternetException *pEx)
{
TCHAR szError[1024];
if(pEx->GetErrorMessage(szError,1024))
AfxMessageBox(szError);
else
AfxMessageBox("发生错误.");
pEx->Delete();
m_pFtpConnection=NULL;
}
}
void CGkbc8Dlg::OnDisconnect() //断开与服务器连接
{
if(m_pFtpConnection)
{
m_pFtpConnection->Close();
delete m_pFtpConnection;
}
if(m_pInetSession)
{
m_pInetSession->Close();
delete m_pInetSession;
}
}
void CGkbc8Dlg::OnUpload()
{
CString sServerFile,sLocalFile;
GetDlgItemText(IDC_LOCALFILE_EDIT,sLocalFile);
GetDlgItemText(IDC_SERVERFILE_EDIT,sServerFile);
if (m_pFtpConnection)
{
if (!m_pFtpConnection->PutFile(sLocalFile,sServerFile))
MessageBox("上传文件失败.");
else
MessageBox("上传文件成功！");
}
else
MessageBox("还没有连接到FTP服务器。");
}
void CGkbc8Dlg::OnDownload()
{
CString sServerFile,sLocalFile;
GetDlgItemText(IDC_LOCALFILE_EDIT,sLocalFile);
GetDlgItemText(IDC_SERVERFILE_EDIT,sServerFile);
if (m_pFtpConnection)
{
if (!m_pFtpConnection->GetFile(sServerFile,sLocalFile))
MessageBox("下载文件失败.");
else
MessageBox("下载文件成功！");
}
else
MessageBox("还没有连接到FTP服务器。");
}

void CGkbc8Dlg::OnRename()
{
CString sServerFile,sNewFile;
GetDlgItemText(IDC_SERVERFILE_EDIT,sServerFile);
sNewFile = sServerFile;
sNewFile = sNewFile.Left(sNewFile.ReverseFind('\\')+1);
sNewFile+="工控编程吧.TXT";
if (m_pFtpConnection)
{
if (!m_pFtpConnection->Rename(sServerFile,sNewFile))
MessageBox("文件更名失败.");
else
MessageBox("文件更名成功！");
}
else
MessageBox("还没有连接到FTP服务器。");
}
void CGkbc8Dlg::OnDelete()
{
CString sServerFile;
GetDlgItemText(IDC_SERVERFILE_EDIT,sServerFile);
if (m_pFtpConnection)
{
if (!m_pFtpConnection->Remove(sServerFile))
MessageBox("文件删除失败.");
else
MessageBox("文件删除成功！");
}
else
MessageBox("还没有连接到FTP服务器。");
}
4.最后是变量的初始化及程序退出时的释放
m_pInetSession = NULL;
m_pFtpConnection = NULL;
////服务器信息是从主机屋注册获得
SetDlgItemText(IDC_FTP_IP,"111.67.201.209");
SetDlgItemText(IDC_FTP_ACCOUNT,"ftp581211");
SetDlgItemText(IDC_FTP_PASSWORD,"Aa123456");

SetDlgItemText(IDC_LOCALFILE_EDIT,"C:\\12.txt");
SetDlgItemText(IDC_SERVERFILE_EDIT,"\\Web\\23.txt");
void CGkbc8Dlg::OnDestroy()
{
CDialog::OnDestroy();
OnDisconnect();
}

我们来演示下功能实现的整个过程
[iqiyi]http://player.video.qiyi.com/ffec2306a696ef38d6d7d9e6970393bb/0/0/w_19rstimdwl.swf-albumId=6347305609-tvId=6347305609-isPurchase=0-cnId=12[/iqiyi] (, 下载次数: 0)