简单的问题，请教（没分了，呜～～）

Question

请教：如下的方法为什么不能编译通过？
aStrs:=TStringList.Create;
aStrs.add('User=pp');//表单 变量名=变量值
aStrs.add('PassWord=uuu');
Memo1.Text:=IdHttp.Post('http://www.mmm.com/guestbook_write.asp',aStrs); //发送并接收返回的http信息

Answer 1

IdHttp，这个应该是idhttp1吧，组建中应该有个idhttp1控件没用过indy控件，错了别怪

Answer 2

IdHttp.Post()参数类型不匹配吧？？？

Answer 3

Memo1.Text:=IdHttp.Post('http://www.mmm.com/guestbook_write.asp',aStrs); 
这句错了吧？
字符型的变量和消息不匹配

Answer 4

function Post(AURL: string; const ASource: TStrings): string;

Answer 5

我放了个IdHttp1控件，aStrs:TStringlist;
编译时提示：there is no overloaded version of 'Post' that can be called with these arguments'
还有Memo1.Text:=IdHttp当我在后面打'.'时没有post出现，哪里出错了？

Answer 6

aStrs:=TStringList.Create;
aStrs.add('User=pp');//表单 变量名=变量值
aStrs.add('PassWord=uuu');
Memo1.Text:=IdHttp.Post('http://www.mmm.com/guestbook_write.asp',aStrs); 
哪里不配？请详细说一下好吗？谢谢

Answer 7

已经可以POST了
var
  Form1: TForm1;
  PostURL,PostCMD:string;
  ReturnErr:string;
  Var1,Var2:string ;implementation{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
  Url,s : string;
  Response : TStringStream;
  Request : TStrings;
begin
    Response := TStringStream.Create('');
    url:='http://localhost/login.asp';
    try
      Request := TStringList.Create ;
      try
        s := 'logname=admin&password=admin';
        Request.Append(s);
        IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
        IdHTTP1.Post(Url,Request,Response);
        Memo1.Lines.Text := Trim(Response.DataString);
      finally
        Request.Free ;
      end;
    finally
      Response.Free ;
    end;end;
现在的问题是：它返回的是输入用户名及密码的页面，而不是输入后点击确定而返回的页面，请帮，谢谢