如何用Twebbrowser获得网页里面textfield输入的值?(100)

W

warket

Unregistered / Unconfirmed
GUEST, unregistred user!
内容如题!
 
在Navigate完成之后,使用HTML的DOM结构获取。
 
var s: string;beginWebBrowser1.Navigate('http://www......'); s := WebBrowser1.OleObject.document.getElementByID('textfield的ID').innerText; ShowMessage(s); //或者: s := WebBrowser1.OleObject.document.parentWindow.textfield的ID.innerText; ShowMessage(s); end;
 
Webbrowser1.OleObject.Document.all.item('textfield').value
 
贴一段给你参考一下:procedure TForm1.Button3Click(Sender: TObject);var Getdoc: IHTMLDocument2; Getall: IHTMLElementCollection; Getitem: IHTMLElement; i, stime, etime: integer;begin while (WebBrowser1.ReadyState < 4) do Application.ProcessMessages; Getdoc := IHTMLDocument2(WebBrowser1.Document); Getall := IHTMLElementCollection(Getdoc.Get_all); for i := 0 to Getall.Length - 1 do begin Getitem := Getall.Item(i, null) as IHTMLElement; if Getitem.id = 'start_score' then ShowMessage(Getitem.OuterText); end;end;
 
多人接受答案了。
 
奇怪,我都看不到大家的回复.
 
顶部