在html的網頁有下列一段: ＜form method="post" action="/scripts/mail.idc"＞＜input type=hidden name="mid" value="0076569"＞＜input type="submit" value="電子郵件"＞    要如何使用Delphi 寫一段程序去抓該按鈕按下後傳回的資料? 發表人 -

Hi, 放一個 TWebBrowser 到 form 上, 然後放兩個 TButton, 之後寫入下面程式碼:    

uses MSHtml ...     procedure TForm1.Button1Click(Sender: TObject);
begin
  WebBrowser1.Navigate('http://xxx.xxx/a.htm');  //該網頁
end;    procedure TForm1.Button2Click(Sender: TObject);
var
  hd:IHtmlDocument2;
  f: IHTMLFormElement;
begin
  hd := WebBrowser1.Document as IHtmlDocument2;
  f := hd.forms.item(0, 0) as IHTMLFormElement;  //看該 form 是此網頁的第幾個 form (index 由 0 開始)
  f.submit;
end;

我的意思是像用 NMHTTP.get('http://www.yahoo.com.tw/index.html'); 可在 NMHTTP.body 得到該網頁的內容 是否有其他的方法,可得到該按鈕按下後所得到的內容. 偶是初協者,有粉多不懂的地方,還是偶的觀念有誤,還煩請指正.

可能是我誤會你的意思了, 你是需要按下按鈕後的結果, 所以就程式操作來看的話, 一樣利用 TWebBrowser 來進行會比較直覺, 你可以看一下弟上面 post 的 code, 其中 button1 為瀏覽到你要的網頁, button2 在 submit 其中的某個 form, 接下來完成後, 要取得該 form submit 後的網頁內容, 可以再加個 button3 寫入如下代碼,    

procedure TForm1.Button3Click(Sender: TObject);
var
  hd: IHtmlDocument2;
begin
  hd := WebBrowser1.Document as IHtmlDocument2;
  Memo1.Lines.Text := hd.body.outerHTML;  //取得 html 碼
  // 若要取得文字的話, 可以用 hd.body.outerText
end;

idHTTP in Indy has implemented the post method, is this what you want?

或許是偶沒問清楚, 主要是下列這段 ＜form method="post" action="/scripts/mail.idc"＞ ＜input type=hidden name="mid" value="0076569"＞ 按下此按鈕後,偶ㄉ電腦立即跑出OUTLOOK準備寄信,而偶要的東西 只是那個EMail地址,若每次按下它都跑出OUTLOOK,偶ㄉ電腦畫面會積滿一堆 寄信ㄉ畫面. 是否有其他ㄉ辦法口以只取它傳回ㄉEMail就好ㄌ.

您好： 參考站長的範例試試http://delphi.ktop.com.tw/topic.php?topic_id=21491 ~~應無所住而生其心~~