CSDN博客

img gjd111686

利用WinInet下载指定URL

发表于2004/7/9 16:27:00  1053人阅读

分类: 经我试练的秘籍

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;
}

0 0

相关博文

我的热门文章

img
取 消
img