您的位置:首页 > Web前端 > HTML

使用流加载和保存HTML内容&遍历html的信息存入一个ini文件&使用MSHTML分析HTML代码

2006-03-29 15:15 901 查看
使用流加载和保存HTML内容&遍历html的信息存入一个ini文件&使用MSHTML分析HTML代码

使用流加载和保存HTML内容

本文的部分内容翻译自MSDN文章Loading HTML content from a Stream

IPersist* 接口,以及它的附属方法,可以被用于Microsoft® Visual C++® 和 WebBrowser 控件使用流载入和保存HTML内容

本文讨论载入HTML内容需要的步骤,分为以下几部分:

定位到 about:blank
DHTML 对象模型的有效性
使用 QueryInterface 获得IPersist*接口
使用IPersist*接口载入和保存HTML内容
载入和保存HTML元素数据
已知问题
参考
相关主题
定位到 about:blank
IWebBrowser2 接口的IWebBrowser2::Navigate2 方法 使得你可以让浏览器定位(Navigate)到一个URL。在下面的示例代码中, IWebBrowser2::Navigate2 方法 被用于定位到 about:blank 页面. 定位到这个空的页面确保了MSHTML 被加载,并且动态 HTML (DHTML) 对象模型中的 HTML 元素有效.

本示例演示了如何让浏览器定位到一个空的页面。m_pBrowser 变量包含从WebBrowser 控件获得的 IWebBrowser2 接口指针。

m_pBrowser->Navigate2( _T("about:blank"), NULL, NULL, NULL, NULL );
DHTML 对象模型的有效性
DHTML 对象模型 用于访问和操作HTML页面的内容,并且在页面装载之前不可用。你的应用程序通过处理WebBrowser 控件的DWebBrowserEvents2::DocumentComplete事件来判断一个页面是否被装载了。 这个事件可能被页面中的每个框架触发,并且在顶层文档载入完成时再触发一次。你可以通过比较事件传递的IDispatch 接口指针和WebBrowser 控件来判断DWebBrowserEvents2::DocumentComplete 事件是否是顶层框架的。

这个WebBrowser DWebBrowserEvents2::DocumentComplete 事件的示例处理代码演示如何判断事件是否是顶层框架的, (如果是,)这指明HTML页面载入完成. 本示例也演示如何从一个内存块——在这个场合是一个包含需要显示的HTML内容的字符串——创建流。

void myObject::DocumentComplete(LPDISPATCH pDisp, VARIANT* URL)
{
HRESULT hr;
IUnknown* pUnkBrowser = NULL;
IUnknown* pUnkDisp = NULL;
IStream* pStream = NULL;
HGLOBAL hHTMLText;
static TCHAR szHTMLText[] = "<html><h1>流测试</h1><p>本HTML内容已经从流中加载。</html>";
// 这个 DocumentComplete 事件是否是顶层框架窗口的?
// 检查 COM 标识: 比较IUnknown 接口指针.
hr = m_pBrowser->QueryInterface( IID_IUnknown, (void**)&pUnkBrowser );
if ( SUCCEEDED(hr) )
{
hr = pDisp->QueryInterface( IID_IUnknown, (void**)&pUnkDisp );
if ( SUCCEEDED(hr) )
{
if ( pUnkBrowser == pUnkDisp )
{ // 这是顶层框架窗口的DocumentComplete 事件 —— 页面 载入完成!
// 建立一个包含HTML内容的流
// 另外, 这个流可以是被传递过来的(而不是被创建的)

size_t = cchLength;
// TODO: 安全地判断 szHTMLText的长度,单位是TCHAR.
hHTMLText = GlobalAlloc( GPTR, cchLength+1 );

if ( hHTMLText )
{
size_t cchMax = 256;
StringCchCopy((TCHAR*)hHTMLText, cchMax + 1, szHTMLText);
// TODO: 在这里加入错误处理代码。
hr = CreateStreamOnHGlobal( hHTMLText, TRUE, &pStream );
if ( SUCCEEDED(hr) )
{
// 调用辅助函数让网络浏览器加载流。
LoadWebBrowserFromStream( m_pBrowser, pStream );
pStream->Release();
}
GlobalFree( hHTMLText );
}
}
pUnkDisp->Release();
}
pUnkBrowser->Release();
}
}
使用 QueryInterface 获得IPersis*等接口
WebBrowser 控件的IWebBrowser2::get_Document 属性返回表示顶层框架的DHTML 对象模型的文档对象。MSHTML 通过文档对象和其他HTML元素对象,例如Frame, IFrame等等实现的IPersistStreamInit,IPersistFile等接口提供使用流载入和保存HTML的功能。对象的IDispatch 接口可用于通过使用QueryInterface和IID_IPersistStreamInit 等接口标识查询相应接口指针,如下列代码示例所述.

HRESULT LoadWebBrowserFromStream(IWebBrowser2* pWebBrowser, IStream* pStream)
{
HRESULT hr;
IDispatch* pHtmlDoc = NULL;
IPersistStreamInit* pPersistStreamInit = NULL;
// 返回文档对象.
hr = pWebBrowser->get_Document( &pHtmlDoc );
if ( SUCCEEDED(hr) )
{
// >查询 IPersistStreamInit接口
hr = pHtmlDoc->QueryInterface( IID_IPersistStreamInit, (void**)&pPersistStreamInit );
if ( SUCCEEDED(hr) )
{
// 初始化文档.
hr = pPersistStreamInit->InitNew();
if ( SUCCEEDED(hr) )
{
// 载入流内容
hr = pPersistStreamInit->Load( pStream );
}
pPersistStreamInit->Release();
}
}
}
使用IPersist*接口载入和保存HTML内容
IPersistStreamInit 接口具有用于从流初始化和载入HTML内容的InitNew 和Load 方法以及用于保存的Save方法。InitNew 方法初始化流到一个已知状态,Load 方法从流载入HTML内容,Save方法将HTML内容保存到流。

IPersistFile 接口具有用于从磁盘文件载入和保存HTML内容的Load 和Save方法。

在前面的示例代码中, HTML文档被初始化,并且HTML内容被从流中载入。

注意 从Microsoft Internet Explorer 5开始,多于一次调用 IPersist* 接口的Load 方法 是可行的。在更早的版本中,每个MSHTML的实例只支持一次Load 调用。
载入和保存HTML元素数据
如果HTML元素支持使用IPersistStorage, IPersistStreamInit, 或者 IPersistMemory,那么也可以通过类似的代码载入和保存信息。

对于网页中的ActiveX控件的信息的载入和保存,可以参考我的文章 如何: 通过HTML文档对象模型访问文档中的ActiveX控件的属性 (CSDN文档中心)来获得控件接口,然后查询ActiveX控件是否支持IPersist*接口。

注意:使用VB6.0编写的控件可能不支持这些接口,这时候需要使用IPersistPropertyBag或者属性集载入和保存信息。参见微软知识库文章Q272490 BUG: Visual Basic 组件的错误 0x800A02E0 "无法保存未初始化的类"

已知问题
微软知识库文章

Q271868 在Microsoft Internet Explorer (Programming) 5.5中,框架对象不支持IPersistStream, IPersistFile,IPersistMemory接口。

Q323569 BUG: PersistStreamInit::Load() 显示HTML内容为文本

Q264868 BUG:Internet Explorer 没有检测到内容类型从text/html到text/xml的改变。

参考
下列文章提供了关于组件对象模型(COM)的信息.

Inside OLE, 2nd Edition, by Kraig Brockschmidt (Microsoft Press)
Understanding ActiveX and OLE, by David Chappell (Microsoft Press)
Inside COM, by Dale Rogerson (Microsoft Press)
微软知识库文章

Q223337 信息: 使用Internet Explorer XML 解析器载入/保存XML数据
Q196340 如何: 获得HTML框架的WebBrowser 对象模型
相关主题

Microsoft Visual Studio
The Component Object Model Specification

===============================
遍历html的信息存入一个ini文件

BOOL SaveFormData(CHtmlView* pView,CString DataFileName,CString SectionName)
{
IHTMLDocument2* pDoc = NULL;
IHTMLElementCollection* pAllElem = NULL;
IHTMLElement* pElem = NULL;
IHTMLTextAreaElement* pTextArea=NULL;
IHTMLSelectElement* pSelect=NULL;
IHTMLInputElement* pInput=NULL;
BOOL Result=TRUE;
pDoc = (IHTMLDocument2*)(pView->GetHtmlDocument());
if(pDoc!=NULL)
{
pDoc->get_all(&pAllElem);
if(pAllElem!=NULL)
{
long EleCount;
pAllElem->get_length(&EleCount);
VARIANT vEleName;
BSTR bValue;
for(int i=0; i {
vEleName.vt = VT_I4;
vEleName.lVal=i;
if(pAllElem->item(vEleName,vEleName,(LPDISPATCH*)&pElem)==S_OK)
{
if(pElem!=NULL)
{
pElem->QueryInterface(&pInput);
if(pInput!=NULL)
{
BSTR bType;
pInput->get_type(&bType);
CString Type(bType);
SysFreeString(bType);
if(Type=="text" || Type=="hidden")
{
pInput->get_name(&bValue);
CString name(bValue);
SysFreeString(bValue);
pInput->get_value(&bValue);
CString value(bValue);
SysFreeString(bValue);
WritePrivateProfileString(SectionName,name,value,DataFileName);
}//if(Type=="text"
else if(Type=="checkbox")
{
pInput->get_name(&bValue);
CString name(bValue);
SysFreeString(bValue);
VARIANT_BOOL Check;
pInput->get_checked(&Check);
if(Check)
{
pInput->get_value(&bValue);
CString value(bValue);
SysFreeString(bValue);
WritePrivateProfileString(SectionName,name,value,DataFileName);
}
else
WritePrivateProfileString(SectionName,name,"0",DataFileName);
}
pInput->Release();
}//if(pInput!=NULL)
pElem->QueryInterface(&pTextArea);
if(pTextArea!=NULL)
{
pTextArea->get_name(&bValue);
CString name(bValue);
SysFreeString(bValue);
pTextArea->get_value(&bValue);
CString value(bValue);
SysFreeString(bValue);
WritePrivateProfileString(SectionName,name,value,DataFileName);
pTextArea->Release();
}//if(pTextArea!=NULL)
pElem->QueryInterface(&pSelect);
if(pSelect!=NULL)
{
pSelect->get_name(&bValue);
CString name(bValue);
SysFreeString(bValue);
pSelect->get_value(&bValue);
CString value(bValue);
SysFreeString(bValue);
WritePrivateProfileString(SectionName,name,value,DataFileName);
pSelect->Release();
}//if(pSelect!=NULL)
pElem->Release();
}//if(pElem!=NULL)
}//pAllElem->item(
}//for
pAllElem->Release();
}//if(pAllElem!=NULL)
pDoc->Release();
}//if(pDoc!=NULL)
return Result;
}


=========================
使用MSHTML分析HTML代码

原作者:Asher Kobin

环境:Windows 2000 / Windows ME / IE 5.0+

我有很多在程序中使用MSHTML的经验,并经常涉及到怎样使用MSHTML来分析HTML代码并通过DOM来访问的问题。

这里给出一个例子,我使用了MSHTML提供的IMarkupServices接口。不需要IOleClientSite或其他任何的嵌入式操作。它可以尽可能简单的获得你所需要的东西。

以后的文章,我将集中的介绍在程序中使用另外的MSHTML使用方法,比如使用MSHTML作为一个编辑器。

这段代码只使用了简单的COM调用。它可以很容易的使用在ATL、MFC、VB和其他的一些语言中。请不要向我要其他语言的例子。如果你需要做的话,你需要IE SDK。

/******************************************************************
* ParseHTML.cpp
*
* ParseHTML: Lightweight UI-less HTML parser using MSHTML
*
* Note: This is for accessing the DOM only. No image download,
* script execution, etc...
*
* 8 June 2001 - Asher Kobin (asherk@pobox.com)
*
* THIS CODE AND INFORMATION IS PROVIDED "AS IS" WITHOUT WARRANTY
* OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING BUT NOT
* LIMITED TO THE IMPLIED WARRANTIES OF MERCHANTABILITY AND/OR
* FITNESS FOR A PARTICULAR PURPOSE.
*
*******************************************************************/

#include
#include

OLECHAR szHTML[] = OLESTR("Hello World!");

int __stdcall WinMain(HINSTANCE hInst,
HINSTANCE hPrev,
LPSTR lpCmdLine,
int nShowCmd)
{
IHTMLDocument2 *pDoc = NULL;

CoInitialize(NULL);

CoCreateInstance(CLSID_HTMLDocument,
NULL,
CLSCTX_INPROC_SERVER,
IID_IHTMLDocument2,
(LPVOID *) &pDoc);

if (pDoc)
{
IPersistStreamInit *pPersist = NULL;

pDoc->QueryInterface(IID_IPersistStreamInit,
(LPVOID *) &pPersist);

if (pPersist)
{
IMarkupServices *pMS = NULL;

pPersist->InitNew();
pPersist->Release();

pDoc->QueryInterface(IID_IMarkupServices,
(LPVOID *) &pMS);

if (pMS)
{
IMarkupContainer *pMC = NULL;
IMarkupPointer *pMkStart = NULL;
IMarkupPointer *pMkFinish = NULL;

pMS->CreateMarkupPointer(&pMkStart);
pMS->CreateMarkupPointer(&pMkFinish);

pMS->ParseString(szHTML,
0,
&pMC,
pMkStart,
pMkFinish);

if (pMC)
{
IHTMLDocument2 *pNewDoc = NULL;

pMC->QueryInterface(IID_IHTMLDocument,
(LPVOID *) &pNewDoc);

if (pNewDoc)
{
// do anything with pNewDoc, in this case
// get the body innerText.

IHTMLElement *pBody;
pNewDoc-gt;get_body(&pBody);

if (pBody)
{
BSTR strText;

pBody->get_innerText(&strText);
pBody->Release();

SysFreeString(strText);
}

pNewDoc->Release();
}

pMC->Release();
}

if (pMkStart)
pMkStart->Release();

if (pMkFinish)
pMkFinish->Release();

pMS->Release();
}
}

pDoc->Release();
}

CoUninitialize();

return TRUE;
}
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐