idhttp问题，不懂的搞啊！

不懂的搞啊！一动手就难了。
在delphi中输入用户名和密码，然后把它提交给 index.htm,并根据值，来判断是否成功
   如果成功就返回给delphi一个'success',否则就返回一个'fail'
<html>
<head>
<title>New Page 1</title>
</head>
<body>
<form method="POST" action="123.asp">
  <p>accno:<input type="text" name="T1" size="20"></p>
  <p>pass:<input type="text" name="T2" size="20"></p>
  <p><input type="Submit" value="OK" name="B1"><input type="reset" value="Repeat" name="B2"></p>
</form>
</body>
</html>这个html提交的asp是
<!--#include file="ProgramConn.asp"-->
<%
  id=replace(request("textid"),"'","''")
  pass=replace(request("textpass"),"'","''")
  sqlcmd="select * from table where ID='"&id&"' and Pass='"&pass&"'"
  set rs=conn.execute(sqlcmd)
  if rs.eof then        
     response.write "fail"
  else 
    response.write "success"
  end if  
%>

解决方案 »

  1.   

    与其使用idhttp去提交浏览器提交的表单，不如使用webbrowser控件。
    使用idhttp去提交数据，当然数据中可以包括用户名和密码。至于数据格式可以使用xml。网站那边的asp程序没有问题，它发出的内容idhttp组件会原样收到。
      

  2.   

    建议用IDHTTP.我做过这方面的应用,IDHTTP是可以胜任的.如果用webbrowser的话,相对来说速度会慢一些,而且应用程序耗费的资源也要多一些．
      

  3.   

    function GetResult(const ret: TStringStream): Integer;
    var
      FIdHttp: TIdHttp;
    begin
      FIdHttp := TIdHTTP.Create(nil);
      FIdHTTP.Request.ContentType :='application/x-www-form-urlencoded';
      FIdHTTP.HTTPOptions:=[hoForceEncodeParams];
      try
        with FmyParams do
        begin
          Clear;
          Add('textid=pa');
          Add('textpass=pa');
        end;
        try
           FIdHTTP.Post('http://192.168.0.2/123.asp',FmyParams,ret);
        except
          On E: Exception do
          begin
          
          end;
        end;
        Result := FIdHttp.ResponseCode;
      finally
        FIdHTTP.Disconnect;
        FIdHttp.Free;
      end;
    end;
    --
    如果返回值=200则表示页面数据正常返回，可以分析其返回数据中的内容
      

  4.   

    忘了声明并创建 FmyParams: TStringList;
      

  5.   

    FIdHTTP.HTTPOptions 我的怎么没这个属性呢?我用的D6