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;
delphi 获取网页框架内容DIV时间:2011-7-5来源:yang 作者: peng点击: 34次
USER MSHTML procedure TForm1.Button2Click(Sender: TObject); begin Fdiv:=Doc.all.item(‘missionList‘,varEmpty) as IHTMLElement; memo1.Text:= Fdiv.innerText
end; |
|
|
