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;
最新文章
- windows下的c语言和linux 下的c语言以及C标准库和系统API
- 【线段树】bzoj1756 Vijos1083 小白逛公园
- C语言 给字符数组赋值的方法
- 【转】Xamarin.Android 入门之:Xamarin+vs2015 环境搭建
- 神奇彩带KMP
- Android 注解的一些应用以及原理
- 开始ubuntu 14.04 的装X模式---终端模式下中文输入,听歌,上irc 开启framebuffer看电影 截图
- linux下拷贝整个目录
- Apose 套打
- 为什么用linear regression可以做classification
- abstract修饰符,具体类与抽象类的区别
- POJ 1065 Wooden Sticks / hdu 1257 最少拦截系统 DP 贪心
- iOS开发-OC语言 (七)继承、多态、类别
- Asp.Net Core 项目实战之权限管理系统(8) 功能菜单的动态加载
- Swift字符串可变性
- scrapy_移除内容中html标签
- Java大世界
- spring cloud之坑,访问服务时找不到报404
- IIS7.5修改asp的文件上传限制方法
- Eclipse中Java build path的使用
热门文章
- java.util下有一个Comparator(比较器)
- 【BZOJ】1676: [Usaco2005 Feb]Feed Accounting 饲料计算(差分)
- sdut 2159:Ivan comes again!(第一届山东省省赛原题,STL之set使用)
- 【NLP】course
- 隐马尔可夫树(HMT模型)
- PHP正则表达式 /i, /s, /x,/u, /U, /A, /D, /S等模式修饰符
- 三角剖分算法(delaunay)
- 160428、JavaScript知识总结—cookie及其应用
- 160317(一)、在非action中获取request
- GNU Libtool