MFC 读取http文件服务器上的文件列表，并选择文件进行下载

你需要学会动态网页制作，至少简单的生成TXT文本，就是网站WEB程序读取目录中的文件列表，以TXT或XML输出

你还需要学会MFC网络编程，就是MFC程序访问/下载某个网址的网页，其实就是读取/下载网站WEB程序动态生成的TXT或者XML内容

当然你也可以静态生成TXT或者XML放置在WEB服务器上

显示的话，就是ListControl，ListView一类，可自绘

下载文件和下载/读取网页基本相同，只是网页是文本是string（当然原始也是BYTE[]），而文件就是很多个字节是BYTE[]

总结的话，就是一个是服务器端要放置有提供文件列表内容的文件

再一个就是MFC网络访问/读取这个文件，解析得到文件列表

学会使用ListControl

和读取网页一样，按字节接收即可

嗯,我有写过,还写过一个FTP的,告诉你尽量不要去用ReadString和WriteString,不好用,到现在我还莫名其妙(开始以为结束符编码问题,后来也不全是), 特别是换了 *** 作系统或者服务器换了(换了虚拟主机/主页空间),容易出问题.

尽可能用Read和Write吧. 只是需要自己去控制长度而已.

另外任何网络或远程 *** 作尽量使用try,然后catch出来判断,有些如果是因为服务器问题(也可能网速不稳)的问题可以采用再一次连接, 因为用Read Write方式,所以可以断点续传或续载的.

把断点续传续载做好,可以省很多事,比如网速断断续续或者服务器负荷大问题等等引起的你不可避免的中途中断,那再重来一次你就知道好处了.

总之,网络编程和本地差别还是很大的,涉及到远程 *** 作的,每一步都要考虑可能失败和如何补救.

用MFC的CInternetFile,CInternetSession,CHttpConnection等类，已知服务器名及文件路径，代码越简单越好。

以下是代码片段：

//Download http file through proxy

//--------------------------------------------------------------------------------

We can find details about Proxy Authentication and Sever Authentication methed in MSDN.

Just search for the keyword "INTERNET_OPTION_USERNAME".

Here I give a very simple example. It works in my project.

CString GeHttptFile(const char *url)

{

CString szContent

char strProxyList[MAX_PATH], strUsername[64], strPassword[64]

//in this case "proxya" is the proxy server name, "8080" is its port

strcpy(strProxyList, "proxya:8080")

strcpy(strUsername, "myusername")

strcpy(strPassword, "mypassword")

DWORD dwServiceType = AFX_INET_SERVICE_HTTP

CString szServer, szObject

INTERNET_PORT nPort

AfxParseURL(url, dwServiceType, szServer, szObject, nPort)

CInternetSession mysession

CHttpConnection* pConnection

CHttpFile* pHttpFile

pConnection = mysession.GetHttpConnection(szServer,

INTERNET_FLAG_KEEP_CONNECTION,

INTERNET_INVALID_PORT_NUMBER,

NULL, NULL)

pHttpFile = pConnection->OpenRequest("GET", szObject,

NULL, 0, NULL, NULL,

INTERNET_FLAG_KEEP_CONNECTION)

//here for proxy

INTERNET_PROXY_INFO proxyinfo

proxyinfo.dwAccessType = INTERNET_OPEN_TYPE_PROXY

proxyinfo.lpszProxy = strProxyList

proxyinfo.lpszProxyBypass = NULL

mysession.SetOption(INTERNET_OPTION_PROXY, (LPVOID)&proxyinfo, sizeof(INTERNET_PROXY_INFO))

pHttpFile->SetOption(INTERNET_OPTION_PROXY_USERNAME, strUsername, strlen(strUsername)+1)

pHttpFile->SetOption(INTERNET_OPTION_PROXY_PASSWORD, strPassword, strlen(strPassword)+1)

pHttpFile->SendRequest(NULL)

DWORD nFileSize = pHttpFile->GetLength()

LPSTR rbuf = szContent.GetBuffer(nFileSize)

UINT uBytesRead = pHttpFile->Read(rbuf, nFileSize)

szContent.ReleaseBuffer()

pHttpFile->Close()

delete pHttpFile

pConnection->Close()

delete pConnection

mysession.Close()

return szContent

}

bool SaveUrl(LPCTSTR url, LPCTSTR filename)

{

HINTERNET hNet = ::InternetOpen("Outlook",

PRE_CONFIG_INTERNET_ACCESS,

NULL,

INTERNET_INVALID_PORT_NUMBER,

0)

HINTERNET hUrlFile = ::InternetOpenUrl(hNet,

url,

NULL,

0,

INTERNET_FLAG_RELOAD,

0)

char buffer[10*1024]

DWORD dwBytesRead = 1

BOOL bRead=TRUE

CFile file

file.Open(filename,CFile::modeCreate|CFile::modeWrite)

while(bRead&&dwBytesRead>0)

{

bRead = ::InternetReadFile(hUrlFile,

buffer,

sizeof(buffer),

&dwBytesRead)

if(dwBytesRead>0)

file.Write(buffer,dwBytesRead)

}

::InternetCloseHandle(hUrlFile)

::InternetCloseHandle(hNet)

file.Close()

AfxMessageBox("finished")

return bRead

}

void CC02021101Dlg::OnOK()

{

// TODO: Add extra validation here

bool bret=SaveUrl("http://club.pchome.net/bbs2.php?topic=40&lanmuid=2","C:\\temp\\test.html")

if(bret)

AfxMessageBox("true")

else

AfxMessageBox("false")

}

下载事件说明：

OnDownloadBegin <--开始下载

OnDownloadComplete <--下载结束

OnDocumentComplete <--页面下载完毕

对于每个HTML页面,顺序都是如此.如果是Frame或IFrame的文件都会当成HTML页面处理.也就是说如果一个页面中有3个IFrame,那么总共会触发4次BeforeNavigate2事件.

对于每个连接且需要显示出来的二进制文件(如*.gif,*.bmp,*.jpg...)都会触发一个DownloadBegin和DownloadComplete事件.

那我们怎么判断是否全部下载完毕呢?嘿嘿,TWebBrowser控件不是有一个Busy属性的吗?包括相关文件：

#include

#include

#import

做成了：

Bool GetFromWeb(LPSTR pURL, LPSTR

SaveAsFilePath )

{ CInternetSession session//会话期对象)

CHttpConnection* pServer = NULL// 指向服务器地址(URL)

CHttpFile * pHttpFile = NULL　// HTTP文件指针

CString strServerName//服务器名

CString strObject//查询对象名(http文件)

INTERNET_PORT nPort//端口

DWORD dwServiceType//服务类型

DWORD dwHttpRequestFlags = //请求标志

INTERNET_FLAG_EXISTING_CONNECT

INTERNET_FLAG_NO_AUTO_REDIRECT

const TCHAR szHeaders[] =　_T("Accept: text/*\r\nUser-Agent:　HttpClient\r\n")

BOOL OK=AfxParseURL( //词法分析

pszURL, //被分析URL串

dwServiceType, //服务类型，ftp，http等

strServerName, //服务器名

strObject, //URL中被查询对象

nPort )//URL指定的端口，可能为空

OK=OK &&//本例只考虑http协议

(dwServiceType ==

INTERNET_SERVICE_HTTP)

if (!OK)

{ AfxMessageBox("URL出错")//报错

return false

}

pServer = session.GetHttpConnection(strServerName, nPort)/获得服务器名

pHttpFile = pServer->OpenRequest( CHttpConnection::HTTP_VERB_GET,strObject, NULL, 1, NULL, NULL,dwHttpRequestFlags)

//向服务器发送请求，建立http连接，

//建立本机上的http文件指针

pHttpFile->AddRequestHeaders(szHeaders)

pHttpFile->SendRequest()//发送请求

CStdioFile f//输出文件对象

if( !f.Open( //打开输出文件

SaveAsFilePath, CFile::modeCreate | CFile::modeWrite | CFile::typeText ) )

{ MessageBox( "Unable to open file"

return false

}

//下面将检索结果保存到文件上

TCHAR szBuf[1024]//缓存

while (pHttpFile->ReadString(szBuf, 1023))

f.WriteString( szBuf )

f.Close()//善后工作

pHttpFile ->Close()

pServer ->Close()

if (pHttpFile != NULL) delete pHttpFile

if (pServer != NULL) delete pServer

session.Close()

return true

}

---