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;
Delphi EmbeddedWB 遍历Frames并执行子frame的js脚本
最新推荐文章于 2014-01-12 23:03:00 发布