Delphi EmbeddedWB 遍历Frames并执行子frame的js脚本


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;
联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678