Delphi中使用IXMLHTTPRequest如何用POST方式提交带参

说明：服务器端为JAVA，编码UTF-8，返回数据编码UTF-8；数据交换格式JSON。
procedure TloginForm.loginBtnClick(Sender: TObject);
var
jo: ISuperObject; //JSON接口
req: IXMLHTTPRequest;
url: WideString; //要访问的url
params : string; //要提交的数据
begin
//要访问的url
url := 'http://localhost/wuliu/servlet/Login';
{req := CoXMLHTTP.Create; //Delphi2010用此名称}
//实例化IXMLHTTPRequest
req := CoXMLHTTPRequest.Create;
//调用open方法
req.open('Post', url, False, EmptyParam, EmptyParam);
//设置post必要参数
req.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
//req.SetRequestHeader('Content-Length', intToStr(length(sParams)));
//提交数据
params := 'account=大家好&password=好了';
//发送请求
req.send(params);
showMessage(req.responseText);
//jo := SO(req.responseText);
end;
以上