使用MSHTML解析HTML代码

从国外站点转过来的：

C++版本：

I have a lot of experience in programming low-level MSHTML and I always see questions on how one can use MSHTML to parse HTML and then access elements via the DOM.

Well, here it is. I use IMarkupServices provided by MSHTML. There is no need for an IOleClientSite or any sort of embedding. I think is is just about as light as anyone can get.

In future articles, I will be concentrating on the reuse of MSHTML in other aspects of programming. Such as using MSHTML as an editor, for example.

This code makes use of simple COM calls and nothing more. It can be easily adapted for ATL, MFC and VB, among other languages. Please don't ask me to provide samples in other languages. In order to build this you need the 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 <windows.h> #include <mshtml.h> OLECHAR szHTML[] = OLESTR("<HTML><BODY>Hello World!</BODY></HTML>"); 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; }

Delphi版本1：

( add to uses clause, MSHTML, ActiveX, ComObj ) const IID_IPersistStreamInit : TGUID = '{7FD52380-4E07-101B-AE2D-08002B2EC713}'; procedure TFormMain.FormCreate(Sender: TObject); var pDoc : IHTMLDocument2; pNewDoc : IHTMLDocument2; pPersist : IPersistStreamInit; pMS : IMarkupServices; pMC : IMarkupContainer; pMkStart : IMarkupPointer; pMkFinish : IMarkupPointer; pBody : IHTMLElement; strText : string; szHTML : widestring; didInit : boolean; begin didInit :=Succeeded(CoInitialize(nil)); szHTML :='<HTML><BODY>Hello World!</BODY></HTML>'; CoCreateInstance(CLASS_HTMLDocument, nil, CLSCTX_INPROC_SERVER, IID_IHTMLDocument2, pDoc); if pDoc <> nil then begin pDoc.QueryInterface(IID_IPersistStreamInit, pPersist); if (pPersist <> nil) then begin pPersist.InitNew; pPersist._Release; pDoc.QueryInterface(IID_IMarkupServices, pMS); if (pMS <> nil) then begin pMS.CreateMarkupPointer(pMkStart); pMS.CreateMarkupPointer(pMkFinish); pMS.ParseString(word(szHTML[1]), 0, pMC, pMkStart, pMkFinish); if (pMC <> nil) then begin pMC.QueryInterface(IID_IHTMLDocument, pNewDoc); if (pNewDoc <> nil) then begin // do anything with pNewDoc, in this case // get the body innerText. pBody :=pNewDoc.Get_body; if (pBody <> nil) then begin strText :=pBody.Get_innerText; m.Text :=strText; pBody._Release; end; pNewDoc._Release; end; pMC._Release; end; if (pMkStart <> nil) then pMkStart._Release; if (pMkFinish <> nil) then pMkFinish._Release; pMS._Release; end; pPersist._Release; end; pDoc._Release; end; if didInit then CoUninitialize(); end;

Delphi版本2：

( add to uses clause, MSHTML, ActiveX, ComObj ) const IID_IPersistStreamInit : TGUID = '{7FD52380-4E07-101B-AE2D-08002B2EC713}'; procedure TFormMain.FormCreate(Sender: TObject); var pDoc : IHTMLDocument2; pBody : IHTMLElement; strText : string; szHTML : widestring; didInit : boolean; begin didInit :=Succeeded(CoInitialize(nil)); szHTML :='<HTML><BODY>Hello World!</BODY></HTML>'; CoCreateInstance(CLASS_HTMLDocument, nil, CLSCTX_INPROC_SERVER, IID_IHTMLDocument2, pDoc); if pDoc <> nil then begin pDoc.Set_designMode('On'); //no script execution while not (pDoc.readyState = 'complete') do Application.ProcessMessages; pDoc.body.innerHTML :=szHTML; pBody :=pDoc.Get_body; if pBody <> nil then strText :=pBody.Get_innerText else strText :=''; m.Text :=strText; pDoc._Release; end; if didInit then CoUninitialize(); end; ============== Other Useful Routines =============== ============== Other Useful Routines =============== ============== Other Useful Routines =============== function GetHTMLSource(Document: IDispatch) : string; var pStream : IStream; pPersist : IPersistStreamInit; li,lo : int64; stat : STATSTG; str : string; BytesRead : longint; begin result :=''; if SUCCEEDED(CreateStreamOnHGlobal(0, TRUE, pStream)) then begin if (SUCCEEDED(Document.QueryInterface(IID_IPersistStreamInit, pPersist))) then begin pPersist.Save(pStream, FALSE); li :=0; pStream.Seek(li, STREAM_SEEK_SET, lo); pStream.Stat(stat, 0); SetLength(str,stat.cbSize + 1); pStream.Read(@str[1], stat.cbSize, @BytesRead); result :=str; end; end; end; procedure SetHTMLSource(Document: IDispatch; value: string); var stm : TMemoryStream; psi : IPersistStreamInit; sa : TStreamAdapter; begin stm :=TMemoryStream.Create; stm.SetSize(Length(value)); stm.Seek(0,0); stm.Write(value[1],Length(value)); stm.Seek(0,0); sa :=TStreamAdapter.Create(stm, soReference); //if you pass soOwned instead, the stream will be freed for you if (SUCCEEDED(Document.QueryInterface(IID_IPersistStreamInit,psi))) then psi.Load(sa); end;

使用MSHTML解析HTML代码相关推荐

使用 markdown-it 解析 markdown 代码（读 VuePress 三）
前言在此系列文章的第一篇,我们介绍了 Vuepress 如何让 Markdown 支持 Vue 组件的,但没有提到非 Vue 组件的其他部分如何被解析. 今天,我们就来看看 Vuepress 是如何 ...
【深度学习】梯度和方向导数概念解析（代码基于Pytorch实现）
[深度学习]梯度和方向导数概念解析(代码基于Pytorch实现) 文章目录 1 方向导数 2 梯度 3 自动求导实现 4 梯度下降4.1 概述4.2 小批量梯度下降 5 总结 1 方向导数方向导数的 ...
分析和解析PHP代码的7大工具
PHP已成为时下最热门的编程语言之一,然而却有许多PHP程序员苦恼找不到合适的工具来帮助自己分析和解析PHP代码.今天小编就为大家介绍几个非常不错的工具,来帮助程序员们提高自己的工作效率,一起来看看吧 ...
编程笔试(解析及代码实现)：国内各大银行(招商银行/浦发银行等)在线笔试常见题目(猴子吃桃/字符串逆序输出/一段话输出字的个数/单词大小转换等)及其代码实现(Java/Python/C#等)之详细攻略
编程笔试(解析及代码实现):国内各大银行(招商银行/浦发银行等)在线笔试常见题目(猴子吃桃/字符串逆序输出/一段话输出字的个数/单词大小转换等)及其代码实现(Java/Python/C#等)之详细攻略 ...
编程笔试(解析及代码实现)：字符串反转(字符串逆序输出)代码实现十多种方法对比(解析思路及其耗费时间)详细攻略
编程笔试(解析及代码实现):字符串反转(字符串逆序输出)代码实现十多种方法对比(解析思路及其耗费时间)详细攻略目录字符串反转(字符串逆序输出)代码实现十多种方法对比(解析思路及其耗费时间)详细攻略 ...
编程笔试(解析及代码实现)：猴子吃桃。猴子第一天吃了若干个桃子，当即吃了一半，还不解馋，又多吃了一个…的C++、Java、Python、C#等语言代码实现
编程笔试(解析及代码实现):猴子吃桃.猴子第一天吃了若干个桃子,当即吃了一半,还不解馋,又多吃了一个. 第二天早上又将剩下的桃子吃了一半,还是不过瘾,又多吃了一个.以后每天都吃前一天剩下的一半再加一个 ...
编程笔试(解析及代码实现)：从矩阵中寻找和最大的子矩阵(首先需要将一个列表转为一个方矩阵)
编程笔试(解析及代码实现):从矩阵中寻找和最大的子矩阵(首先需要将一个列表转为一个方矩阵) 目录题目描述代码实现题目描述从矩阵中寻找和最大的子矩阵(首先需要将一个列表转为一个方矩阵) 样例输入 ...
编程笔试(解析及代码实现)：求出一个整数中各位数上所包含全部质数之和
编程笔试(解析及代码实现):求出一个整数中各位数上所包含全部质数之和目录题目描述代码实现题目描述求出一个整数中各位数上所包含全部质数之和一家电子商务公司计划在圣诞节给客户提供特别折扣,他们 ...
编程笔试(解析及代码实现)：序列重排之给一个长度为n的序列A，求找出某种排列方式使得相邻两个数的差值之和最大并求出该最大值
编程笔试(解析及代码实现):序列重排之给一个长度为n的序列A,求找出某种排列方式使得相邻两个数的差值之和最大并求出该最大值目录题目描述代码实现题目描述序列重排:给一个长度为n的序列A,求找出 ...

使用MSHTML解析HTML代码

使用MSHTML解析HTML代码相关推荐

最新文章

热门文章