如何用 IDHTTP 的  post 方法提交 http://www.mirdy.cn/add.asp?action=sfadd   这个页面里的  action=save.asp 这个表单  请帮我写下 好吗   分都给你  

解决方案 »

  1.   

         Params := TStringList.Create;
      try
        Params.Add('参数名=参数值');
        with IdHTTP do
        begin
          Request.Accept := 'text/html, */*';
          Request.ContentLength := 0;
          Request.ContentRangeEnd := 0;
          Request.ContentRangeStart := 0;
          Request.UserAgent := 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; .NET CLR 1.1.4322)';
          Request.ContentType := 'application/x-www-form-urlencoded';
          HandleRedirects := true;
        end;    HTML := IdHTTP2.Post('http://www.mirdy.cn/add.asp?action=save.asp   ', Params);
      

  2.   

    //模拟http的post方法提交一个网页
    function PostMethod(URL, Data: String; max: Integer): String;
    var
      PostData, RespData: TStringStream;
    begin
      RespData := TStringStream.Create('');
      PostData := TStringStream.Create(Data);
      try
        try
          if http = nil then Exit;
          Http.Post(URL, PostData, RespData);
          Result := RespData.DataString;
          http.Request.Referer := URL;
        except
          Dec(Max);
          if Max = 0 then
          begin
            Result := '';
            Exit;
          end;
          Result := PostMethod(URL, Data, Max);
        end;
      finally
        http.Disconnect;
        FreeAndNil(RespData);
        FreeAndNil(PostData);
      end;
    end;