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;