delphi 获取网页框架内容DIV

时间:2011-7-5来源:yang 作者: peng点击: 34次

USER  MSHTML

procedure TForm1.Button2Click(Sender: TObject);
var
 Doc:IHTMLDocument2;
 Fdiv:IHTMLElement;

begin
 Doc:=WebBrowser1.Document as IHTMLDocument2;

  Fdiv:=Doc.all.item(‘missionList‘,varEmpty) as IHTMLElement;

memo1.Text:=  Fdiv.innerText

 

end;