delphi webbrowser 跨域访问

本文整理自网络，侵删。

 
procedure IterateFrames(const AWB: IWebBrowser2);
var
Doc: IHTMLDocument2;
Container: IOleContainer;
Enumerator: ActiveX.IEnumUnknown;
Unknown: IUnknown;
Browser: IWebBrowser2;
Fetched: Longint;
NewDoc: IHTMLDocument2;
begin
if (Assigned(AWB.Document)) and (Supports(AWB.Document, IHTMLDocument2, Doc)) then
begin
// Recursive searching.
// ACHTUNG! We cannot use the document's frames collection here, because
// it does not work in every case (i.e. Documents from a foreign domain).
// From: support.microsoft.com/support/kb/articles/Q196/3/40.ASP
if (Supports(Doc, IOleContainer, Container)) and (Container.EnumObjects(OLECONTF_EMBEDDINGS, Enumerator) = S_OK) then
begin
while Enumerator.Next(1, Unknown, @Fetched) = S_OK do
if (Supports(Unknown, IWebBrowser2, Browser)) and (Supports(Browser.Document, IHTMLDocument2, NewDoc)) then
begin
//DoSomethingWithNewDoc;
IterateFrames(AWB);
end;
end;
end;
end;

来源：https://www.cnblogs.com/honeynm/p/4653651.html
 

相关阅读 >>

Delphi 无法打不开读取文件名有逗号的文件

Delphi 10 seattle中使用本地通知，请使用tnotificationcenter组件

Delphi最简单的多线程网页采集

Delphi一句话复制整个文件夹(当然包括嵌套文件夹)

Delphi 之 tpagecontrol组件

Delphi delete 删除字符串中指定的字符串

Delphi 检查父进程

Delphi httpresponsestrings

Delphi comparestr 这个函数可以模糊匹配，且不区分大小写

Delphi 在firemonkey应用程序中设置application.title

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi webbrowser 跨域访问