如何在WebBrowser中設定由Button按下Subbmit及同時送出參數 |
|
答題得分者是：Clarinet
|
|
laku0121
一般會員   發表：39 回覆：49 積分：17 註冊：2002-10-30 發送簡訊給我 |
要如何在WebBrowser中按下Submit在範例中，我有查到一些前人作品，但實際引用時不知為何就是不能用，如下的範例：
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.google.com');
end;
//
procedure TForm1.Button2Click(Sender: TObject);
var
hd: IHTMLDocument2;
form: IHTMLFormElement;
a: oleVariant;
begin
hd := WebBrowser1.Document as IHTMLDocument2;
form := hd.forms.item(0, 0) as IHTMLFormElement;
a := form.item('q',0);
a.Value :='delphi';
form.submit;
end;
或者
WebBrowser1.OleObject.Document.GetElementByID('Submit').Click; 均無法使用，不知為何....( 如取得欄位資料同樣是不行，此問題己在http://delphi.ktop.com.tw/link.asp?TOPIC_ID=35496 解決了) 還有若有一值要一併送出要如何使用呢？
|
|
Clarinet
高階會員  發表：9 回覆：97 積分：126 註冊：2002-05-08 發送簡訊給我 |
引言: 要如何在WebBrowser中按下Submit在範例中，我有查到一些前人作品，但實際引用時不知為何就是不能用，如下的範例： procedure TForm1.Button1Click(Sender: TObject); begin WebBrowser1.Navigate('http://www.google.com'); end; // procedure TForm1.Button2Click(Sender: TObject); var hd: IHTMLDocument2; form: IHTMLFormElement; a: oleVariant; begin hd := WebBrowser1.Document as IHTMLDocument2; form := hd.forms.item(0, 0) as IHTMLFormElement; a := form.item('q',0); a.Value :='delphi'; form.submit; end; 或者 WebBrowser1.OleObject.Document.GetElementByID('Submit').Click; 均無法使用，不知為何....( 如取得欄位資料同樣是不行，此問題己在http://delphi.ktop.com.tw/link.asp?TOPIC_ID=35496 解決了) 還有若有一值要一併送出要如何使用呢？最簡便的方法： WebBrowser1.OleObject.Document.Forms.Item(0,0).submit; 不過最簡便的方法，都會有些限制和不適用的！ 若你要用到較複雜的，如IHTMLDocument2之類的用法的話，那你就要對其架構有相當的瞭解，用起來才會比較順手！也較不會出錯！ GPS（全球衛星定位系統） http://www.allgps.com
------
GPS（全球衛星定位系統） http://www.allgps.com |
|
laku0121
一般會員 發表：39 回覆：49 積分：17 註冊：2002-10-30 發送簡訊給我 |
|
|
laku0121
一般會員 發表：39 回覆：49 積分：17 註冊：2002-10-30 發送簡訊給我 |
解決了~~ 哇! procedure TForm1.Button1Click(Sender: TObject);
var
Docs, Edits : OleVariant;
begin
Docs :=WebBrowser1.Document;
Edits :=Docs.GetElementByID('username');
Edits.Value :=edit1.Text;
Edits :=WebBrowser1.OleObject.Document.all.Item('password', 0);
Edits.Value :=edit2.Text; WebBrowser1.OleObject.Document.GetElementByID('imSubmit').Click;
end;
|
|
jasonma168
一般會員 發表：39 回覆：33 積分：14 註冊：2002-05-24 發送簡訊給我 |
發表時間：2003-08-11 23:56:11
IP:202.129.xxx.xxx 未訂閱
系統時間：2024-04-23 23:28:21
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |