我需要一个idhttp1 post 访问网页的代码

Question

我需要一个idhttp1 post 访问网页的代码不需要 登陆什么的  就是简单的访问 网页 
但必须是post 
这样才有数据发出去 
求 

Answer 1

好像有方法，参数是：url，data字符串，返回字符串
或者：url，data流，返回流

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringList;
begin
    sl:=TStringList.Create ;
    sl.Add('user=aaa');
    sl.Add('pws=bbb');
memo1.Text :=IdHTTP1.Post('http://www.163.com',sl);
end;
D7中使用,类似这样

Answer 3

function TFrmMain.GetHtml(Url: string; Source: TStringList): integer;
var
  IdHTTP: TIdHTTP;
  Ans: string;
begin
  Result := 0;
  IdHTTP := TIdHTTP.Create(nil);
  try
    try
      Ans := IdHTTP.Post(Url, Source);
      Result := Length(Ans);
      ShowMessage(Ans);
    except
      on E: Exception do
      begin
        //
      end;
    end;
  finally
    IdHTTP.Free;
  end;
end;