如何讓delphi送資料到form並且按下submit呢 |
尚未結案
|
jiannrong
一般會員 發表:58 回覆:36 積分:18 註冊:2002-05-09 發送簡訊給我 |
|
領航天使
站長 發表:12216 回覆:4186 積分:4084 註冊:2001-07-25 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
Hi, 先參考完前面的文章後, 這裡寫一個簡單的範例給你參考:
放一個 webbrowser 及兩個 button 於 form 上面
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; // hd.forms.item(n,0) as IHTMLFormElement.. 其中 n 代表是第 n 個 form 由 0 開始, 後面的參數沒有用 a := form.item('q',0); // form.item('name_tag', n) 這裡的 name_tag 就是 form 裡的變數名稱, n 代表同名稱的第 n 個一樣是由 0 開始的 a.Value :='delphi'; form.submit; end;發表人 - timhuang 於 2003/05/04 16:24:02 |
jiannrong
一般會員 發表:58 回覆:36 積分:18 註冊:2002-05-09 發送簡訊給我 |
請教timhuang hd := WebBrowser1.Document as IHTMLDocument2; form := hd.forms.item(0, 0) as IHTMLFormElement;
// hd.forms.item(n,0) as IHTMLFormElement.. 其中 n 代表是第 n 個 form 由 0 開始, 後面的參數沒有用
a := form.item('q',0);
// form.item('name_tag', n) 這裡的 name_tag 就是 form 裡的變數名稱, n 代表同名稱的第 n 個一樣是由 0 開始的
a.Value :='delphi';
form.submit; 這裡的form.item('q',0); q是代表什麼呢?!
name_tag 就是 form 裡的變數名稱...這裡的變數 是指?!
謝謝
|
jiannrong
一般會員 發表:58 回覆:36 積分:18 註冊:2002-05-09 發送簡訊給我 |
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
引言: 這裡的form.item('q',0); q是代表什麼呢?! name_tag 就是 form 裡的變數名稱...這裡的變數 是指?! 謝謝 請教一下 如果不用WebBrowser 元件呢?! 我現在的想法是 如果我想要的 是按下delphi的button 然後就會開啟IE 開啟該網頁 並且把資料送進該網頁的Form內 且自動按下submit 那這樣可行嗎?! 謝謝1. q 就是在檢視原始檔中的 <input type=text name='q'> 的這個 q 2. 這個部分沒有試過, 可能要看是否可以對該 IE 操作才行, 不過我想用 webbrowser 來操作是比較單純的. 發表人 - timhuang 於 2003/05/09 17:41:50 |
jiannrong
一般會員 發表:58 回覆:36 積分:18 註冊:2002-05-09 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |