ここの記事
“Web2.0バブル”はもうすぐはじける?
http://www.itmedia.co.jp/anchordesk/articles/0708/08/news042.html
を読んだけど、
Web2.0バブル崩壊の流れは書いてあるが、
いつはじけるかは、わかんなかった・・
CString CHomePageAccess::HomePageRead(CString ReadURL) { CString strServer,strObject; CString data = ""; // 読み込み内容が設定される INTERNET_PORT nPort ; DWORD dwServiceType; const TCHAR szHeaders[] = _T("Accept: text/*¥r¥nUser-Agent: xxxx¥r¥n"); CInternetSession session("Session1"); CHttpConnection *pServer = NULL; CHttpFile *pFile = NULL; DWORD dwRet; TCHAR szBuff[1024]; // ここにもらうデータが一時的に保存される. dwServiceType = AFX_INET_SERVICE_HTTP; nPort = 80; AfxParseURL(ReadURL,dwServiceType,strServer,strObject,nPort ); try { pServer = session.GetHttpConnection(strServer, nPort); pFile = pServer->OpenRequest(CHttpConnection::HTTP_VERB_GET, strObject,NULL,1,NULL,NULL,INTERNET_FLAG_RELOAD); pFile->AddRequestHeaders(szHeaders); pFile->SendRequest(); pFile->QueryInfoStatusCode(dwRet); if (dwRet == HTTP_STATUS_OK) { ULONGLONG nRead; nRead = 1; // ヘッダの読み込み // ヘッダを利用したい場合、strHeaderDataを使う // 今回は、読み捨てる CString strHeaderData; pFile->QueryInfo(HTTP_QUERY_RAW_HEADERS_CRLF,strHeaderData); // 内容の読み込み while (pFile->ReadString(szBuff, 1000) != NULL) { //いらないと思うけど、一応最後に0をいれた szBuff[1000]=0; //1文字も読み込まなかったら、そこで終わりとする size_t pos = strlen(szBuff); if ( pos == 0 ) { break; } // 読み込んだデータをつなげていく data.Insert(data.GetLength(),szBuff); } } // あとしまつ pFile->Close(); pServer->Close(); if (pFile != NULL) delete pFile; if (pServer != NULL) delete pServer; } catch (CInternetException* e) { if (pFile != NULL) { pFile->Close(); delete pFile; } if (pServer != NULL) { pServer->Close(); delete pServer; } session.Close(); e->Delete(); data.ReleaseBuffer(); return NULL; } session.Close(); return data; } |