TWebBrowser控制元件與MSHTML庫連線 (轉)

TWebBrowser控制元件與MSHTML庫連線 (轉)[@more@]

Browser
與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;