用Delphi的TIdHttp控件发起POST请求和Java的Servlet响应

最新推荐文章于 2023-03-04 09:27:42 发布

原创最新推荐文章于 2023-03-04 09:27:42 发布 · 1.1w 阅读

9 ·

CC 4.0 BY-SA版权

编程语言专栏收录该内容

1 篇文章

订阅专栏

本文介绍了如何使用Delphi的TIdHttp控件发起POST请求，并展示了Java Servlet如何处理该请求。在Delphi端，通过TStringList添加参数，发送请求到指定URL。服务端的Java代码通过HttpServletRequest获取参数并返回响应。同时，文章讨论了POST请求中中文参数的编码问题以及处理同名参数的方法。

使用Delphi的TIdHttp控件发起一个POST请求很简单，定义一个TStringList实例，往上面添加参数就行：

procedure TForm1.Button1Click(Sender: TObject);
var
HttpClient: TIdHttp;
ParamList: TStringList;
begin
HttpClient := TIdHttp.Create();
ParamList := TStringList.Create;
ParamList.Add('user=pan');
ShowMessage(HttpClient.Post('http://192.168.0.105:8080/Servlets/Submit', ParamList));
end;

运行代码，使用WireShark抓包工具看到这个POST请求发出来了，Content-Type是application/x-www-form-urlencoded，这种类型的意思是将参数打包成key-value的形式。

然后来看看服务端的Java代码：

public class Submit extends HttpServlet {

...

protected void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException {

response.getWriter().println("Hello Servlet, " + request.getParameter("user") + "!");

}

客户端收到Post的响应，就会把“Hello Servlet, pan!”这段文字显示出来了。

补充：

当post的参数值带中文时，会被编码为UTF8格式，例如POST方法的WIRESHARK抓包：

再看200 OK消息的抓包：

此时不能直接使用TIdHTTP.Post方法返回的字符串，而是要对其正确解码，否则读到的是乱码：

procedure TForm1.Button1Click(Sender: TObject);
var
  HttpClient: TIdHttp;
  ParamList: TStringList;
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.UTF8);
  HttpClient := TIdHttp.Create();
  ParamList := TStringList.Create;
  ParamList.Add('action=测 试');
  ParamList.Add('user=用 户');
  HttpClient.Post('http://192.168.0.102:8080/HelloServlet/Submit', ParamList, SS);
  ShowMessage(SS.DataString);
end;

解决乱码问题的方法在于我们通过TStringStream将返回的字符流按UTF8解码。

补充2：当POST方法中有两个相同的参数名时，例如：

procedure TForm1.Button1Click(Sender: TObject);
var
  HttpClient: TIdHttp;
  ParamList: TStringList;
  SS: TStringStream;
begin
  SS := TStringStream.Create('', TEncoding.UTF8);
  HttpClient := TIdHttp.Create();
  ParamList := TStringList.Create;
  ParamList.Add('action=测 试');
  ParamList.Add('user=用 户1');
  ParamList.Add('user=用 户2');
  HttpClient.Post('http://192.168.0.100:8080/HelloServlet/Submit', ParamList, SS);
  ShowMessage(SS.DataString);
end;

此时在服务器端如果仍然使用getParameter方法，则只能返回第一个值“用户1”，需要使用getParameterValues方法：

	protected void doPost(HttpServletRequest request, HttpServletResponse response) throws ServletException, IOException {
		// TODO Auto-generated method stub
//		response.getWriter().println("Hello Servlet, " + request.getParameter("user") + "!");
		String[] user = request.getParameterValues("user"); 
		response.getWriter().println("Hello Servlet, " + user[0] + " and " + user[1] + "!");
	}

此时客户端收到：