Delphi EmbeddedWB组件遍历Frames并执行子frame的js 博客分类： Delphi
.var
wDoc:IHTMLDocument2;
wc:IHTMLWindow2;
Dispatch:IDispatch;
begin
//遍历emWb:TEmbeddedWB的Frames
if emWb <> nil then
begin
wDoc := ((emWb.Document as IHTMLDocument2));
if Assigned(wDoc) then
begin
for i=0 to wDoc.frams.length -1 do //遍历
begin
Dispatch:= wd.frames.item(0);
Dispatch.QueryInterface(IHTMLWindow2,wc); //获得子frame的IHTMLWindow2对象
wc.execScript('logout()','JavaScript');//执行js
end;
end;
end;
end;