如何取得WebBrowser所打开的网页的源码？

2005-01-19 11:42:48 837 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

3.1 计算机视觉的发展和卷积神经网络概要(百度架构师手把手带你零基础实践深度学习原版笔记系列) 3.1 计算机视觉的发展和卷积神经网络(百度架构师手把手带你零基础实践深度学习原版笔记系列) 概要计算机视觉作为一门让机器学会如何去“看”的科学学科，具体的说，就是让机器去识别摄像机拍摄的图片或视频中的物体，检测出物体所在的位置，并对目标物体进行跟踪，从而理解并描述出图片或视频里的场景和故事，以此来模拟人脑视觉系统。因此，计算机视觉也通常被叫做机器视觉，其目的是建立能够从图像或者视频中“感知”信息的人工系统。计算机视觉技术经过几十年的发展，已经在交通（车牌识别、道路违章抓拍）、安防（人脸闸机. 阅读详情

比如将以下html源码保存为一个htm文件，然后用WebBrowser打开，我想得到他的源码，得到的源码要求和使用鼠标右键点击“查看源文件”菜单的一样

<html>
<frameset border=0 frameborder=0 frameSpacing=0 rows=100%>
<frame marginHeight=5 marginWidth=10 name=mainsoft src="http://www.sunroom.com.cn/index.asp?rec=700_32">
</frameset>
</html>

...全文

WRF中使用ERA5再分析数据本人在做一些实例时，需要用到最新的ERA5再分析数据集，其中我下载的是ERA5 hourly data on pressure levels form 1979 to present和ERA5 hourly data on single levels from 1979 to present中的3天数据。 1、注册climate copernicus账号下载ERA5数据前先要注册其账号 2、选择变量 WRF中对于气象数据的字段有具体的要求， ...... 阅读详情

lzf913

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

蒋晟 2005-01-23

打赏
举报

查看源文件会显示当前活动框架的源文件。
参考http://www.euromind.com/iedelphi/embeddedwb/framefunctions.htm

cnhxjtoa 2005-01-19

打赏
举报

思路：
隐藏执行IE中，查看---源文件---将其存为文本文件----复制本文本文件到你指定的地方后---删除这个文件

不知道能不能实现！！！

cnhxjtoa 2005-01-19

打赏
举报

解决了吗

CDSoftwareWj 2005-01-19

打赏
举报

发消息！！

看我这个帖子里的

http://community.csdn.net/Expert/TopicView3.asp?id=3720280

lzf913 2005-01-19

打赏
举报

to aiirii(ari-爱的眼睛)
经测试,这两个方法得到的源码还是和原来一样，
<html>
<frameset border=0 frameborder=0 frameSpacing=0 rows=100%>
<frame marginHeight=5 marginWidth=10 name=mainsoft src="http://www.sunroom.com.cn/index.asp?rec=700_32">
</frameset>
</html>
和“查看源文件”菜单得到的不一样

aiirii 2005-01-19

打赏
举报

get/save the HTML Code from a TWebbrowser?

uses
ActiveX;

function WB_SaveHTMLCode(WebBrowser: TWebBrowser; const FileName: TFileName): Boolean;
var
ps: IPersistStreamInit;
fs: TFileStream;
sa: IStream;
begin
ps := WebBrowser.Document as IPersistStreamInit;
fs := TFileStream.Create(FileName, fmCreate);
try
sa := TStreamAdapter.Create(fs, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
finally
fs.Free;
end;
end;

function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean;
var
ps: IPersistStreamInit;
ss: TStringStream;
sa: IStream;
s: string;
begin
ps := WebBrowser.Document as IPersistStreamInit;
s := '';
ss := TStringStream.Create(s);
try
sa := TStreamAdapter.Create(ss, soReference) as IStream;
Result := Succeeded(ps.Save(sa, True));
if Result then ACode.Add(ss.Datastring);
finally
ss.Free;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
WB_SaveHTMLCode(Webbrowser1, 'c:\test.txt');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
WB_GetHTMLCode(Webbrowser1, Memo1.Lines);
end;

lzf913 2005-01-19

打赏
举报

我要求的是和“查看源文件”菜单得到的完全一样，要不然我也不会上来问了

lxlzq 2005-01-19

打赏
举报

是可能不一样，这样得到的原代码更精确，是网上真正的代码

terrytzq 2005-01-19

打赏
举报

up!

lzf913 2005-01-19

打赏
举报

楼上的，你试过没有呢？用这种方法得到的html源码和“查看源文件”菜单得到的完全不一样

lxlzq 2005-01-19

打赏
举报

web:twebbrowser;
.....
memo1.Lines.Text:=IHtmlDocument2(web.document).body.outerHTML;
....

lzf913 2005-01-19

打赏
举报

to jackie168(花好月圓)
上面提到可以用
SendMessage(vHandle, WM_COMMAND, IDM_VIEWSOURCE, 0);
得到源文件，不知具体如何实现呢？

jackie168 2005-01-19

打赏
举报

还是蛮多人在研究这东东的￣￣￣

http://community.csdn.net/Expert/TopicView3.asp?id=3720280

wegotnothingtolosebu 2005-01-19

打赏
举报

if find (frameset ) then

...

如何取得WebBrowser所打开的网页的源码？

相关推荐