TWebBrowser访问IFrame

//网上资料只提到获取Frames的内容，IFrame就没有提及到了。

 

unit Unit1;

interface

uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, OleCtrls, SHDocVw, MSHTML;

type  TForm1 = class(TForm)    WebBrowser: TWebBrowser;    Button: TButton;    mmo1: TMemo;    procedure ButtonClick(Sender: TObject);    procedure FormCreate(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;

var  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonClick(Sender: TObject);    var    Tabi:Integer;    doc:IHTMLDocument2;    Collection:IHTMLElementCollection;    Element:IHTMLElement;    frames:IDispatch;    framew:IHTMLWindow2;    i:OleVariant;    s:string;    ii,divi:Integer;    input:IHTMLInputElement;    docii:HTMLDocument;    iframe:IWebBrowser;begin    doc:=Webbrowser.document as IHTMLDocument2;  i:=4;  frames:=doc.frames.item(i);  framew:=frames as IHTMLWindow2;  docii:=framew.document as HTMLDocument;

  collection:=docii.all.tags('iframe') as IHTMLElementCollection;  //ShowMessage(IntToStr(Collection.length));  for ii:= 0 to collection.length -1 do  begin    iframe:= Collection.item(ii,varEmpty) as IWebBrowser; //在网上查过不少文章，最后自己尝试成功，关键就是这里。

    doc:=iframe.document as IHTMLDocument2;    Element:=doc.body as IHTMLElement;     Element.innerHTML:=mmo1.Text;  end;   //总结:获取Webbrowser的iframe的内容，需要把iframe元索强制转换为iwebbrowser接口，   //之后，还要强制转换为ihtmlelement接口才可以成功访问iframe里面的元素，否则程序运行出错；end;

procedure TForm1.FormCreate(Sender: TObject);begin  WebBrowser.Navigate('http://******************');end;

end.

 

//@_@ 英文不好，变量名都是乱取的。。。。。编程基础也不是很牢固，路过的朋友请不要笑。。。。