WebBrowser控件
配置与IE的配置相同
方法一 使用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;