在线等 哭求啊、、delphi控制跨域iframe里面的内容 真的很急啊。

Question

页面里面的  <iframe frameborder="0" src="http://www.163.com" width="1000px" height="1000px" scrolling="no"></iframe>     要控制里面的www.163.com 因为是跨域，而且我试了很多办法了，说明一点是用delphi 怎么都不行，一般报错为拒绝访问，这个也许不算问题，但是本人新手，诚心的像大家请教了，跨域在网上的质料真的好少啊。。
          谢谢 大牛看见了，来指点迷津~
                   谢谢大家，我分不多，当然希望会的朋友加我QQ指导，我也许会以其他方式感谢您~~
                                                            1198102132 
                                

Answer 1

<iframe name="frame163" id="frame163" frameborder="0" src="http://www.163.com" width="1000px" height="1000px" scrolling="no"></iframe>把frame163的文档取出来

Answer 2

我这边的程序也是用iframe的，用模拟键盘Keybd_event函数可以控制。
你程序怎么会把163放iframe里？

Answer 3

从C++翻译过来的HtmlWindowToHtmlWebBrowser函数,获取跨域的iframe的Document接口  function HtmlWindowToHtmlWebBrowser(const ADsp : IDispatch) : IWebBrowser2;
  var
    isp : IServiceProvider;
  begin
    Result  :=  nil;
    if not Assigned(ADsp) then Exit;
    isp :=  ADsp as IServiceProvider;    isp.QueryService(IID_IWebBrowserApp, IID_IWebBrowser2, Result);
  end;var
  doc : IHTMLDocument2;
  wd : IHTMLWindow2;
  bw : IWebBrowser2;
begin
.....
        //处理frame中的情况 frame=...
        vframe  :=  doc.frames.item(v);
        if Assigned(vframe) then
        begin
          vframe.QueryInterface(IID_IHTMLWindow2, wd);
          if Assigned(wd) then
          try
            bw  :=  HtmlWindowToHtmlWebBrowser(wd);
            if Assigned(bw) then
              doc :=  bw.Document as IHTMLDocument2;
            wd  :=  nil;
          except
          end;
          vframe  :=  nil;
        end;
.....
end;

Answer 4

ysai提供的内容太好了，谢谢了