方法一 使用Document属性得到 Document 层
WebBrowser.Document:IDispatch //是IDispatch接口
Var Doc: IHTMLDocument2;
begin
...
try //注意:使用 As 时必须加try...except...end保护
Doc:= (WebBrowser1.Document) as IHTMLDocument2;
if Assigned(Doc) then begin //判断是否为空
...//具体操作
end;
except
...
end;
...
end;
方法二 使用QueryInterface接口得到 Window 层
WebBrowser.QueryInterface(IID_IHTMLWindow2, Out Win: IHTMLWindow2);//返回WebBrowser控件的IHTMLWindow2接口
Var Win: IHTMLWindow2;
Begin
...
try
WebBrowser1.QueryInterface(IID_IHTMLWindow2, Win);
if Assigned(Win) then begin //判断是否为空
...//具体操作
end;
except
...
end;
...
end;
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10790690/viewspace-951510/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/10790690/viewspace-951510/