在应用程序中下载WEB页.docx

在应用程序中下载WEB页 为了在应用程序中下载WEB页，我们设计了WebWorld类。WebWorld类是一个高级连接，它使用了WinInet，可以使你的应用程序完成HTTP，FTP或Gopher client协议，使用它你可以非常方便的下载WEB页。这个类提供了两个重要函数 CString GetWebPage(const CString& Url); void SetErrorMessage(CString s);源代码：/*/-/ WebWorld.h: interface for the CWebWorld class./-*/#include wininet.hclass CWebWorld public: void SetErrorMessage(CString s); CString GetWebPage(const CString& Url); CWebWorld(); virtual CWebWorld();private: CString m_ErrorMessage; HINTERNET m_Session;/*/-/ WebWorld.cpp: implementation of the CWebWorld class./-*/#include stdafx.h#include WebThief.h#ifdef _DEBUG#undef THIS_FILEstatic char THIS_FILE=_FILE_;#define new DEBUG_NEW#endif#define AGENT_NAME CodeguruBrowser1.0/ Construction/Destruction/CWebWorld:CWebWorld() DWORD dwError; / Initialize the Win32 Internet functions m_Session = :InternetOpen(AGENT_NAME, INTERNET_OPEN_TYPE_PRECONFIG, / Use registry settings. NULL, / Proxy name. NULL indicates use default. NULL, / List of local servers. NULL indicates default. 0) ; dwError = GetLastError();CWebWorld:CWebWorld() / Closing the session :InternetCloseHandle(m_Session);CString CWebWorld:GetWebPage(const CString& Url) HINTERNET hHttpFile; char szSizeBuffer32; DWORD dwLengthSizeBuffer = sizeof(szSizeBuffer); DWORD dwFileSize; DWORD dwBytesRead; BOOL bSuccessful; CString Contents; / Setting default error message Contents = m_ErrorMessage; / Opening the Url and getting a Handle for HTTP file hHttpFile = InternetOpenUrl(m_Session, (const char *) Url, NULL, 0, 0, 0); if (hHttpFile) / Getting the size of HTTP Files BOOL bQuery = :HttpQueryInfo(hHttpFile,HTTP_QUERY_CONTENT_LENGTH, szSizeBuffer, &dwLengthSizeBuffer, NULL) ; if(bQuery=TRUE) / 为 HTTP文件内容分配内存 dwFileSize=atol(szSizeBuffer); LPSTR szContents = Contents.GetBuffer(dwFileSize); / 读取HTTP file BOOL bRead = :InternetReadFile(hHttpFile, szContents, dwFileSize, &dwBytesRead); if (bRead) bSuccessful = TRUE; :InternetCloseHandle(hHttpFile); / Close the connection. else / Connection failed. bSuccessful = FALSE; return Contents;void CWebWorld:SetErrorMessage(CString s) m_ErrorMessage = s;使用方法： CWebWorld a; CString P