VC File Download

char m_URL[] = "http://www.baidu.com/img/logo.gif"; CString strServer,strObject; CString szHeaders; INTERNET_PORT nPort;CInternetSession session("My Sesssion"); CHttpConnection * pServer = NULL; CHttpFile * pFile = NULL; DWORD dwRet , dwRead; DWORD nServiceType; char szBuff[1024*100]; if(TRUE!=AfxParseURL(m_URL,nServiceType,strServer,strObject,nPort)) {    delete pServer;    AfxMessageBox("URL error");    return; }pServer = session.GetHttpConnection( strServer, nPort); pFile = pServer->OpenRequest(CHttpConnection::HTTP_VERB_GET,strObject); pFile->SendRequest(); pFile->QueryInfoStatusCode(dwRet);if (dwRet == HTTP_STATUS_OK) {      memset( szBuff, 0, sizeof(szBuff));    DWORD dwFileLen = m_size = pFile->GetLength();    CString str;    str.Format("filelen=%d",dwFileLen);   AfxMessageBox(str);    DWORD ret;    dwRead=10;    ret=0;    HANDLE hFile;   hFile=CreateFile("d:\\p.gif",GENERIC_WRITE,FILE_SHARE_WRITE,NULL,CREATE_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);     while(dwRead>0)    {     dwRead=pFile->Read(szBuff,sizeof(szBuff)-1);     WriteFile(hFile,szBuff,dwRead,&ret,NULL);    }      CloseHandle(hFile); }delete pFile; delete pServer;session.Close();