下面的代码可以得到 HTML 原码,但是有一点还没有解决:
pPersistStream-> GetSizeMax(&uli)
执行正确,但 uli 中的值却全为 0,不得已才定义了一个足够大的常量。
或许有其他高手能帮忙解决这个问题。
#define MAX_SIZE 4 * 1024 * 1024
void CHTMLDocView::OnViewSource()
{
MSHTML::IHTMLDocument2Ptr ptrDoc;
HGLOBAL hMem = NULL;
LPSTREAM pStream = NULL;
IPersistStreamInit *pPersistStream = NULL;
ULARGE_INTEGER uli;
HRESULT hr;
ptrDoc = GetHtmlDocument();
hr = ptrDoc.QueryInterface(IID_IPersistStreamInit, &pPersistStream);
if(pPersistStream == NULL)
return;
if(FAILED(pPersistStream-> GetSizeMax(&uli)))
{
pPersistStream-> Release();
return;
}
//if(uli.LowPart == 0)
//{
//pPersistStream-> Release();
//return;
//}
uli.LowPart = MAX_SIZE;
hMem = ::GlobalAlloc(GPTR, uli.LowPart);
if(hMem == NULL)
{
pPersistStream-> Release();
return;
}
hr = ::CreateStreamOnHGlobal(hMem, TRUE, &pStream);
if(FAILED(hr))
{
pPersistStream-> Release();
::GlobalFree(hMem);
return;
}
hr = pPersistStream-> Save(pStream, TRUE);
AfxMessageBox((LPCTSTR)hMem);
hr = pPersistStream-> Release();
pStream-> Release();
}
pPersistStream-> GetSizeMax(&uli)
执行正确,但 uli 中的值却全为 0,不得已才定义了一个足够大的常量。
或许有其他高手能帮忙解决这个问题。
#define MAX_SIZE 4 * 1024 * 1024
void CHTMLDocView::OnViewSource()
{
MSHTML::IHTMLDocument2Ptr ptrDoc;
HGLOBAL hMem = NULL;
LPSTREAM pStream = NULL;
IPersistStreamInit *pPersistStream = NULL;
ULARGE_INTEGER uli;
HRESULT hr;
ptrDoc = GetHtmlDocument();
hr = ptrDoc.QueryInterface(IID_IPersistStreamInit, &pPersistStream);
if(pPersistStream == NULL)
return;
if(FAILED(pPersistStream-> GetSizeMax(&uli)))
{
pPersistStream-> Release();
return;
}
//if(uli.LowPart == 0)
//{
//pPersistStream-> Release();
//return;
//}
uli.LowPart = MAX_SIZE;
hMem = ::GlobalAlloc(GPTR, uli.LowPart);
if(hMem == NULL)
{
pPersistStream-> Release();
return;
}
hr = ::CreateStreamOnHGlobal(hMem, TRUE, &pStream);
if(FAILED(hr))
{
pPersistStream-> Release();
::GlobalFree(hMem);
return;
}
hr = pPersistStream-> Save(pStream, TRUE);
AfxMessageBox((LPCTSTR)hMem);
hr = pPersistStream-> Release();
pStream-> Release();
}
如果你只想把原码存为本地的文件,可以考虑用简单的 ExecWB。