請教各位高手 我先前參考了這篇文章http://delphi.ktop.com.tw/topic.php?topic_id=18695 Clarinet提供一個方法可以自動填值 procedure TForm1.ToolButton2Click(Sender: TObject); var Docs, Edits : OleVariant; begin Docs :=WebBrowser1.Document; //此處只適用於http://webhd.yam.com/Login.htm該網頁的輸入 Edits :=Docs.GetElementByID('id'); Edits.Value :='您的帳號'; Edits :=WebBrowser1.OleObject.Document.all.Item('pwd', 0); Edits.Value :='您的密碼'; //登入 WebBrowser1.OleObject.Document.GetElementByID('Submit').Click; end; 但不管是用Edits :=Docs.GetElementByID('id'); 或 Edits :=WebBrowser1.OleObject.Document.all.Item('pwd', 0);的方式 都必需要先知道網頁裡這欄位的名字 有沒有什麼方法可以找出這網頁所以要填的欄位所有的名字 並丟入一個memo之中 謝謝各位

看這兩篇是不是？ http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=2bc11a4cf2a2faf4&rnum=1 http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=4146b85c0783e3d&rnum=2

var
  Document: IHTMLDocument2;
  Form1: IHTMLElement;
  FormElem: OleVariant;
  FormElements: IHTMLElementCollection;
  i: integer;
begin
  Document := WebBrowser1.Document as IHTMLDocument2;
  FormElements := 
    (Document.Forms.Item('Form1', 0) as IHTMLElement).All  
     as IHTMLElementCollection;
  for i := 0 to FormElements.Length - 1 do begin
    FormElem := FormElements.Item(i, 0);
    if not VarIsEmpty(FormElem) 
       and FormElem.isTextEdit then
    begin
      Memo1.Lines.Add(FormElem.TagName);
      Memo1.Lines.Add(FormElem.Name);
      Memo1.Lines.Add(FormElem.Value);
    end;
  end;

-- 發表人 - hagar 於 2004/03/25 17:58:23

謝謝站長 看來是我要的 但現在我還不在明白OleObject.Document的用法與 宣告成IHTMLDocument2的用法有什麼差別 不知道那裡有提到詳細的資料

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=35819    --

.(幫我刪掉) 發表人 - japhenchen 於 2005/03/07 14:30:52

提問者您好:


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


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


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

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