社区
C++ Builder
帖子详情
如何使用IHTMLDocument直接分析由idhttp下载回来的源码?
meCAD
2006-08-17 10:48:44
如何使用IHTMLDocument直接分析由idhttp下载回来的源码?
...全文
333
3
打赏
收藏
如何使用IHTMLDocument直接分析由idhttp下载回来的源码?
如何使用IHTMLDocument直接分析由idhttp下载回来的源码?
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
meCAD
2006-08-17
打赏
举报
回复
要直接分析html代码,求速度
ly_liuyang
2006-08-17
打赏
举报
回复
例子很多的
用TInternetExplorer对象读取文本,分析即可
ccrun.com
2006-08-17
打赏
举报
回复
给你个例子,将取回来的HTML内容代替szHTML就可以了。
利用IHTMLDocument2分析HTML文本内容
#include <mshtml.h>
void __fastcall Tfrm::Button1Click(TObject *Sender)
{
OLECHAR szHTML[] = OLESTR("<HTML><BODY>Hello World!</BODY></HTML>");
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 *pMarkSvr = NULL;
pPersist->InitNew();
pPersist->Release();
pDoc->QueryInterface(IID_IMarkupServices, (LPVOID *)&pMarkSvr);
if(pMarkSvr)
{
IMarkupContainer *pMkContainer = NULL;
IMarkupPointer *pMkStart = NULL;
IMarkupPointer *pMkFinish = NULL;
pMarkSvr->CreateMarkupPointer(&pMkStart);
pMarkSvr->CreateMarkupPointer(&pMkFinish);
pMarkSvr->ParseString(szHTML, 0, &pMkContainer, pMkStart, pMkFinish);
if(pMkContainer)
{
IHTMLDocument2 *pNewDoc = NULL;
pMkContainer->QueryInterface(IID_IHTMLDocument, (LPVOID *)&pNewDoc);
if(pNewDoc)
{
// do anything with pNewDoc, in this case
// get the body innerText.
IHTMLElement *pBody;
pNewDoc->get_body(&pBody);
if(pBody)
{
BSTR strText;
pBody->get_innerText(&strText);
ShowMessage(strText);
pBody->Release();
SysFreeString(strText);
}
pNewDoc->Release();
}
pMkContainer->Release();
}
if(pMkStart)
pMkStart->Release();
if(pMkFinish)
pMkFinish->Release();
pMarkSvr->Release();
}
}
pDoc->Release();
}
CoUninitialize();
}
Delphi 3种获取网页源代码实例。
获取网页源代码有几种方式,现在就我所知道的办法进行整理。鉴于方便关系,我这里就不写函数...1.不打开网页获取网页
源码
var
Id
HTTP
1: T
Id
HTTP
; begin
Id
HTTP
1:=T
Id
HTTP
.Create; memo1.Text:=
id
http
1.
delphi
分析
抓取
html
,delphi网页数据抓取
简单:
Id
Http
:T
Id
Http
;Params:TStrings;BeginParams:=TStrinList.Create;
Id
Http
:=T
Id
Http
.Create(Nil);//提交网页的参数Params.Add('参数1=XXX');Params.Add('参数2=YYY');Try
Id
Http
.Get('你要的网址',Params);Memo1....
delphi
html
转为图片,delphi 从一个
HTML
返回所有的图片链接
uses ms
html
, ActiveX, COMObj,
Id
HTTP
,
id
URI;{ .... }procedure GetImageLinks(AURL: string; AList: TStrings);var
ID
oc: I
HTML
Document
2;str
HTML
: string;v: Variant;x: Integer;ovLinks: OleVariant;DocURL: str...
读淘宝商品描述页
源码
delphi版
淘宝的宝贝描述页是ajax异步载入的,所以
直接
id
http
读一下是弄不到它的
源码
的。用下面的方法就可以。 代码如下: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, ...
html
如何获得网址,已知一个网址,如何获得该网址对应的
html
源代码?在del 找人事管理软件...
在delphi中如何实现?今天不解决,没饭吃了。。。2楼: 用WebBrowser控件,先把网址传给WebBrowser,然后在想办法。因为浏览网页时,在本地缓存中都...或者
直接
在WebBrowser上想办法,因为WebBrowser本来就是为浏览h...
C++ Builder
13,870
社区成员
102,693
社区内容
发帖
与我相关
我的任务
C++ Builder
C++ Builder相关内容讨论区
复制链接
扫一扫
分享
社区描述
C++ Builder相关内容讨论区
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章