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

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

sdio wifi 移植介绍简单来说，sdio起源自sd标准，顾名思义就是sd的IO接口（interface）的意思，更具体的说明，sd本来是记忆卡的标准，但是现在也可以把SD卡拿来插上一些外围设备接口使用，这个就是就叫做sdio。而且sdio本身是一种相当单纯的技术，通过sd的IO引脚来连接外部外围，并且通过sd的IO数据接位与外围传输数据，而且sd协会也推出很完整的sdio stack 驱动程序，使得sdio外围得开发与应用变得非常热门这里我们要移植的是RTL8822cs的sdio WiFi 模块，将其移植到rk3 阅读详情

比如将以下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>

...全文

深入解析Android14应用安装权限：从声明到授予的完整适配指南本文深入解析Android14应用安装权限的适配方法，重点介绍了从权限声明到授予的完整流程。与Android13相比，Android14在权限管理机制上进行了重要调整，特别是通过AppOpsManager实现权限的对象化封装。文章详细讲解了权限声明的基础配置、Framework层适配方案、运行时权限授予方法以及常见问题排查指南，帮助开发者高效完成Android14权限适配。阅读详情

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所打开的网页的源码？

相关推荐