請教一下 我現在想要一個功能 是 當我按下delphi作成的程式上面一個按鈕 他就會把資料送到ie上某個網頁內的Form 並且自動按下submit 送出 請問 我該如何找這方面的資料呢 謝謝

請看這一篇 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=18695 ～～～Delphi K.Top討論區站長～～～

------
～～～Delphi K.Top討論區站長～～～

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

請教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 裡的變數名稱...這裡的變數 是指?! 謝謝

請教一下 如果不用WebBrowser 元件呢?! 我現在的想法是 如果我想要的 是按下delphi的button 然後就會開啟IE 開啟該網頁 並且把資料送進該網頁的Form內 且自動按下submit 那這樣可行嗎?! 謝謝

引言: 這裡的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

不好意思 再麻煩各位大大 請教一下 那網路上或是市面上 是否有 delphi與ie之間的書籍呢 謝謝

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.