blocks|key|5335629|text|我以为这会很容易，但它似乎已经被遗忘了。不过，您可以使用TidHTTP控件轻松完成此操作。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|5335630|MyPage+:=+IdHTTP1.Get('www.google.com');|code-block|syntax|javascript|5335631|我知道这不是你想要的，但可能会有所帮助。|5335632|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

I thought this would be easy but it seems it might have been forgotten. You can easily do it with a TidHTTP control though.

<pre><code>MyPage := IdHTTP1.Get('www.google.com');
</code></pre>

I know its not what you want but might help.

blocks|key|5335654|text|在DocumentCompleted事件中，查看WebBrowser控件的DocumentText属性。它应该有加载页面的完整文本。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|5335655|entityMap^0|11|C|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|K|8|@]|D|@]|E|$]]]|G|$]]

In the DocumentCompleted event, look at the <code>DocumentText</code> property of the WebBrowser control. It should have the complete text of the loaded page.

blocks|key|318310|text|IHTMLDocument2(Web.Document).Body.InnerHTML;|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|318311|这应该会返回页面的源代码。|unstyled|318312|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>IHTMLDocument2(Web.Document).Body.InnerHTML;
</code></pre>

This should return the source of the page.

blocks|key|5335688|text|另一种运行良好的方法是使用Synapse。使用synapse调用HttpGet来检索初始资源(它为您提供源代码)，然后根据需要进行操作。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|5335689|另一种选择是使用EmbeddedWB组件，它比标准的Delphi组件公开了更多的web浏览器的属性和功能，并且仍然符合您在web浏览器中执行此操作的要求。|5335690|entityMap|0|LINK|mutability|MUTABLE|url|http://www.ararat.cz/synapse/doku.php|1|http://www.bsalsa.com/product.html^0|D|7|0|0|8|A|1|0^^$0|@$1|2|3|4|5|6|7|P|8|@]|9|@$A|Q|B|R|1|S]]|C|$]]|$1|D|3|E|5|6|7|T|8|@]|9|@$A|U|B|V|1|W]]|C|$]]|$1|F|3|-4|5|6|7|X|8|@]|9|@]|C|$]]]|G|$H|$5|I|J|K|C|$L|M]]|N|$5|I|J|K|C|$L|O]]]]

Another method which works well is to use <a href="http://www.ararat.cz/synapse/doku.php" rel="nofollow noreferrer">Synapse</a>. Use the synapse call HttpGet to retrieve your initial resource (which gives you the source code) then manipulate as needed.

Another option would be to use the <a href="http://www.bsalsa.com/product.html" rel="nofollow noreferrer">EmbeddedWB</a> component which exposes MANY more properties and features of the web browser than the standard Delphi component does and still fits your requirement of doing it within the web browser.

blocks|key|2232395|text|要通过WebBrowser控件访问页面的整个超文本标记语言，请使用：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2232396|Web.Document.All[0].OutterHtml;|code-block|syntax|javascript|2232397|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

To access the entire HTML of the page through your WebBrowser control use:

<pre><code>Web.Document.All[0].OutterHtml;
</code></pre>

blocks|key|3223158|text|private+void+btnTest_Click(object+sender,+EventArgs+e)
++++++++{
++++++++++++wbMain.Navigate("foo.xml");
++++++++++++wbMain.DocumentCompleted+%2B=+new+WebBrowserDocumentCompletedEventHandler(testing);
++++++++}

++++++++private+void+testing(Object+sender,+WebBrowserDocumentCompletedEventArgs+e)
++++++++{
++++++++++++test+=+wbMain.DocumentText;
++++++++}|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|3223159|我知道这有点晚了，但这对我很有效。wbMain是WebBrowser对象。|unstyled|3223160|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

<pre><code>private void btnTest_Click(object sender, EventArgs e)
 {
 wbMain.Navigate("foo.xml");
 wbMain.DocumentCompleted += new WebBrowserDocumentCompletedEventHandler(testing);
 }

 private void testing(Object sender, WebBrowserDocumentCompletedEventArgs e)
 {
 test = wbMain.DocumentText;
 }
</code></pre>

I know this is a little late but this works for me. wbMain is the WebBrowser Object.

blocks|key|3223207|text|WebBrowser1.Navigate()使用Windows操作系统中内置的IE组件将其加载到RAD组件窗口中。您要做的是响应一个回调(对于browser组件，双击OnDownloadComplete事件)并将其保存到该函数中的文件中。来自工作代码的代码片段：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3223208|procedure+TMainForm.WB_SaveAs_HTML(WB+:+TWebBrowser;+const+FileName+:+string)+;
var
+++PersistStream:+IPersistStreamInit;
+++Stream:+IStream;
+++FileStream:+TFileStream;
begin
+++if+not+Assigned(WB.Document)+then
+++begin
+++++Logg('Document+not+loaded!')+;+//'Logg'+adds+a+line+to+a+log+file.
+++++Exit;
+++end;

+++PersistStream+:=+WB.Document+as+IPersistStreamInit;
+++FileStream+:=+TFileStream.Create(FileName,+fmCreate)+;
+++try
+++++Stream+:=+TStreamAdapter.Create(FileStream,+soReference)+as+IStream;
+++++if+Failed(PersistStream.Save(Stream,+True))+then+ShowMessage('SaveAs+HTML+fail!')+;
+++finally
+++++FileStream.Free;
+++end;

end;+(*+WB_SaveAs_HTML+*)

procedure+TMainForm.WebBrowser1DownloadComplete(Sender:+TObject);
begin
+++if+(WebBrowser1.Document<>nil)AND+NOT(WebBrowser1.busy)+then+begin
+++++++WB_SaveAs_HTML(WebBrowser1,'test.html');
+++++++//myStringList.loadFromFile('test.html');+++//process+it.
+++end;
end;|code-block|syntax|javascript|3223209|请注意，一些MIME+(“文件”)类型，如JSON，给出了一个“另存为...”IE中的对话框，它会停止您的阅读并需要手动干预。|3223210|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

WebBrowser1.Navigate() loads it into the RAD component window using the built in IE component in the Windows OS. What you do is respond to a callback (for the browser component, double-click the OnDownloadComplete event) and save it to file in that function. Snippets from working code:

<pre><code>procedure TMainForm.WB_SaveAs_HTML(WB : TWebBrowser; const FileName : string) ;
var
 PersistStream: IPersistStreamInit;
 Stream: IStream;
 FileStream: TFileStream;
begin
 if not Assigned(WB.Document) then
 begin
 Logg('Document not loaded!') ; //'Logg' adds a line to a log file.
 Exit;
 end;

 PersistStream := WB.Document as IPersistStreamInit;
 FileStream := TFileStream.Create(FileName, fmCreate) ;
 try
 Stream := TStreamAdapter.Create(FileStream, soReference) as IStream;
 if Failed(PersistStream.Save(Stream, True)) then ShowMessage('SaveAs HTML fail!') ;
 finally
 FileStream.Free;
 end;

end; (* WB_SaveAs_HTML *)

procedure TMainForm.WebBrowser1DownloadComplete(Sender: TObject);
begin
 if (WebBrowser1.Document&lt;&gt;nil)AND NOT(WebBrowser1.busy) then begin
 WB_SaveAs_HTML(WebBrowser1,'test.html');
 //myStringList.loadFromFile('test.html'); //process it.
 end;
end;
</code></pre>

Note that some MIME ("file") types such as JSON give a 'Save As...' dialog in IE, which stops your reading and requires manual intervention.

How can I get source code of page thru WebBrowser Control (ActiveX InternetExplorer)?

I have an xml document "foo.xml".

<pre><code>var
 Web: TWebBrowser;
begin
 ...
 Web.Navigate("foo.xml");
 // How can I get source code thru WebBrower control&lt;----
 ...
end;
</code></pre>

How can I get source code of page thru WebBrowser-Control (ActiveX InternetExplorer)?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

教程

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云智能顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云AI代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

功能1上新10个字符

功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符功能2描述100个字符。

功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符功能2上新100个字符。

功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符功能5描述100个字符

功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符功能5上新100个字符

功能4上新

文章&问答评论现已支持表情

全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验

社区富文本编辑器全新改版！诚邀体验～ 

精选全网热门MCP server，让你的AI更好用 🚀

💥开发者 MCP广场重磅上线！

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

聚焦“写作效率、视觉美观与运行性能”三方面进行全面升级，为您提供更高效、稳定的创作环境

社区富文本&Markdown编辑器全新改版上线，欢迎大家体验!

诚挚邀请您参与本次调研，分享您的真实使用感受与建议。您的反馈至关重要，感谢您的支持与参与！

社区新版编辑器体验调研

如何通过WebBrowser控件(ActiveX InternetExplorer)获取页面源代码？我有一个xml文档"foo.xml“。var Web: TWebBrowser;begin ... Web.Navigate("foo.xml"); // How can I get source code thru WebBrower control<---- ...end;

问如何通过WebBrowser-Control (ActiveX InternetExplorer)获取页面源代码？
EN

回答 7

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何通过WebBrowser-Control (ActiveX InternetExplorer)获取页面源代码？EN

回答 7

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何通过WebBrowser-Control (ActiveX InternetExplorer)获取页面源代码？
EN