//网上资料只提到获取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.
//@_@ 英文不好,变量名都是乱取的。。。。。编程基础也不是很牢固,路过的朋友请不要笑。。。。