Delphi Idhttp的post方法

POST

var
  Sendmessage:TStringList;//发送内容
  Receivemessage:TStringStream;//返回内容
begin
  Sendmessage:=TStringList.Create;
  Receivemessage:=TStringStream.Create('');
  
  Param.Add('ID=1001');//必须要有Add('字段=值')这种模式，否则传递过去PHP接收的是空值
  Param.Add('name=jack');//还可以用Param.Add(head+middle+Edit1.text)的方式连接成有效的数组
  Param.Add('sex=male');


  IdHTTP1.ReadTimeout:=10000//设置十秒后超时
  IdHTTP1.Post('Http://URL',Sendmessage,Receivemessage);
  memo1.Text:=Receivemessage.DataString;//显示返回的值
end;