在Delphi里操作网页上的元件 |
|
|
|
pcplayer99
尊榮會員   發表：146 回覆：790 積分：632 註冊：2003-01-21 發送簡訊給我 |
以下这个页面里，有2个输入框和一个按钮。点按钮，JavaScript 第一个输入框里的内容会填入第二个输入框。
=================================== <textarea cols="60" rows="10" class="xml" name="code"> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>无标题文档</title> function HAHA() {a= document.getElementById("AAA").value; b= document.getElementById("BBB").value=a; } <input id="AAA" type="text"> <input id="BBB" type="text"> <input id="Button_1" name="button1" type="button" class="btn" value="计算" /> </body> </html> </textarea> =================================== 在 Delphi 的普通程序里，拖一个 TWebBrowse 到 Form 上，让 WebBrowse 打开网页后，然后可以用以下代码操纵页面上的输入框和按钮： procedure TForm1.Button2Click(Sender: TObject); var Docs, Edit : OleVariant; begin Docs :=WebBrowser1.Document; Edit := Docs.GetElementByID('AAA'); Edit.Value := 'Hello, pcplayer'; WebBrowser1.OleObject.Document.GetElementByID('Button_1').Click; end; ------------------------------------------ procedure TForm1.Button3Click(Sender: TObject); var Docs, Edit1,Edit2 : OleVariant; begin Docs :=WebBrowser1.Document; Edit1 := Docs.GetElementByID('AAA'); Edit2 := Docs.GetElementByID('BBB'); Edit1.Value := ''; Edit2.Value := ''; //清除网页里两个输入框里的文字。 end; 編輯記錄
pcplayer99 重新編輯於 2007-05-22 19:34:55， 註解 無‧
|
發表時間：2007-05-22 19:30:55
IP:59.40.xxx.xxx 訂閱
系統時間：2024-07-03 5:31:40
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |