CHttpConnection实现下载，下载不全的问题？？

Javesun 2008-10-29 03:06:04

这个函数从网络上弄下来的。有个问题：下载的时候下载不全，下载的EXE文件小，不能执行。
例如：GetFromWeb(_T("http://dl_dir.qq.com/qqfile/tm/qq2009preview3_chs.exe"), _T("c:\\qq2009preview3_chs.exe"));
工程使用的是使用 Unicode 字符集。

BOOL CQXZDownLoadDlg::GetFromWeb(LPWSTR pURL, LPWSTR SavePath)
{
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( //词法分析

pURL, //被分析URL串

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

strServerName, //服务器名

strObject, //URL中被查询对象

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

OK=OK && (dwServiceType == INTERNET_SERVICE_HTTP);

if (!OK)

{
MessageBox(_T("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( //打开输出文件

SavePath, CFile::modeCreate | CFile::modeReadWrite | CFile::typeText) )

{
MessageBox( _T("Unable to open file"));
return false;

}

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

TCHAR szBuf[1024]; //缓存

while (pHttpFile->ReadString(szBuf, sizeof(szBuf) - 1))
{
f.WriteString(szBuf);
}
f.Close(); //善后工作

pHttpFile ->Close();

pServer ->Close();

if (pHttpFile != NULL) delete pHttpFile;

if (pServer != NULL) delete pServer;

session.Close();

return true;
}

...全文