请问：如何在程序中向某个网站提交表单？ 谢谢！！

Question

我做了一个程序，想把一个表单提交到某个网站（这个表单中包含了诸如‘姓名’，‘年龄’，‘性别’等信息），而我又不想登录到这个网站的信息发布的页面中，
所以，请问：如何在程序中提交这个表单？盼回复，谢谢！！

Answer 1

看看这个例子，对你可能有帮助。在Form中添加一个TWebBrowser，然后在程序中访问http://mail.yahoo.com.cn/,最后再运行下面的程序，就会登录到yahoo邮箱了。
var Form :  IHTMLFormElement  ;
    D:IHTMLDocument2  ;begin
  with WebBrowser1 do begin
     D := Document as IHTMLDocument2;
     Form := D.Forms.item('login_form',0) as IHTMLFormElement;
     (form.item('login',0) as IHTMLElement).setAttribute('value',edit1.Text,0);
     (form.item('passwd',0) as IHTMLElement).setAttribute('value',edit2.Text,0);
     //form.submit; // this line work too
     (form.item('.save',0) as IHTMLElement).click;
  end;
end;

Answer 2

恩， seav() 的方法我找了很久了，今天终于看到了，谢谢
这个方法是利用IHTMLFormElement接口（IHTMLForm）获得页面的表单元素进行操作。
你也可以试试在网页中登陆一次，用工具得到表单的post信息。

Answer 3

有post()函数试试：
HTTP: TIdHTTP;
var
  User,Password,Url: string;
  Ts:tstringlist;
  mess:string;
begin
   ts:=tstringlist.Create;
   User:='guest';
   Password:='12345';
   ts.Add('username='+User);//假如该页面的post信息是username和password
   ts.Add('&password='+Password);   Url:='http://****/CheckUser.php?';
   mess:=http.Post(Url,Ts);//返回的post信息
   memo1.Lines.Add(mess);
end;

Answer 4

嗯，我也用的(seav() )的方法，还不错。

Answer 5

seav() 的方法是不错 可是对于这样的jsp表单 好像就不行！
<form name="LoginForm" action="/app/mem/login.php" method="post" target="_self"  onsubmit="return false">
<input type=HIDDEN name="uid" value="2786de437b04382c">
<input type=HIDDEN name="langx" value="tw">
<TABLE BORDER=1 CELLSPACING=0 CELLPADDING=0 NOF=LY STYLE="background-color: rgb(240,240,240);">
<TR VALIGN=TOP ALIGN=LEFT>
<TD WIDTH=222>
<TABLE ID="Table1" BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH="100%">
<TR>
<TD WIDTH=222>
<P><IMG ID="Picture1" HEIGHT=12 WIDTH=222 SRC="../../../images/mem/tw/left-img01.gif" VSPACE=0 HSPACE=0 ALIGN="TOP" BORDER=0></P></TD></TR>
<TR>
<TD WIDTH=222 HEIGHT=25>
<P><IMG ID="Picture2" HEIGHT=14 WIDTH=96 SRC="../../../images/mem/tw/left-login01.gif" VSPACE=0 HSPACE=0 ALIGN="TOP" BORDER=0></P></TD></TR>
<TR>
<TD WIDTH=222 STYLE="padding: 3px;">
<P>&nbsp;&nbsp; &nbsp;<IMG ID="Picture3" HEIGHT=13 WIDTH=29 SRC="../../../images/mem/tw/left-login02.gif" VSPACE=0 HSPACE=0 ALIGN="TOP" BORDER=0>
<INPUT ID="FormsEditField1" TYPE=TEXT NAME="username" VALUE="" SIZE=15 MAXLENGTH=15></P></TD></TR>
<TR>
<TD WIDTH=222 STYLE="padding: 3px;">
<P>&nbsp;&nbsp; &nbsp;<IMG HEIGHT=12 WIDTH=30 SRC="../../../images/mem/tw/left-login03.gif" VSPACE=0 HSPACE=0 ALIGN="TOP" BORDER=0>
<INPUT ID="FormsEditField2" TYPE=PASSWORD NAME="passwd" VALUE="" SIZE=15 MAXLENGTH=15></P></TD></TR>