利用WinInet下载指定URL

来源：互联网发布：淘宝奢侈品护理可靠吗编辑：程序博客网时间：2024/06/05 02:44

CString CDownInfoDlg::DownURL(CString strURL)
{
CInternetSession m_Session("DigitalTitan");
CHttpFile* pFile=NULL;
CException* e;

TCHAR szTempPath[MAX_PATH],szTempFile[MAX_PATH];
    DWORD dwResult=::GetTempPath(MAX_PATH,szTempPath);
CString strURLPath;
GetTempFileName(szTempPath,_T("DigitalTitan_"),0,szTempFile);
strURLPath=szTempFile;
    TRY
{
  pFile=(CHttpFile*)m_Session.OpenURL(strURL);
}
CATCH_ALL(e)
{
  pFile=NULL;
  AfxMessageBox("URL地址不合法",MB_ICONINFORMATION);
  return "";
}
END_CATCH_ALL

if(pFile)
{
  DWORD dwStatus;
  DWORD dwBufLen=sizeof(dwStatus);
  BOOL bSuccess=pFile->QueryInfo(HTTP_QUERY_STATUS_CODE|HTTP_QUERY_FLAG_NUMBER,&dwStatus,&dwBufLen);
  if(bSuccess&&dwStatus>=200&&dwStatus<300)
  {
   CStdioFile m_File;
   if(m_File.Open(strURLPath,CFile::modeWrite|CFile::modeCreate|CFile::typeBinary))
   {
    BYTE pBuf[1024];
    DWORD dwRead;
    do
    {
     dwRead=pFile->Read(pBuf,1024);
     m_File.Write(pBuf,dwRead);
    }
    while(dwRead>0);
    m_File.Close();
   }
  }
  pFile->Close();
  delete pFile;
}
else
{
  m_Session.Close();
}
return strURLPath;
}