idhttp提交post

var
Param:TStringList;
RStream:TMemoryStream;
begin
Param:=TStringList.Create;
RStream:=TMemoryStream.Create;

Param.Add(‘waybills=‘+edtshippingsn.Text);
Param.Add(‘verifycode=‘+edtcode.Text);

try
IdHTTP1.Post(‘http://www.jinyuanbao.cn‘, Param,RStream);
RStream.SaveToFile(‘Cache\result.html‘);
finally
RStream.Free;
end;

end;