json - 如何在 delphi 中使用 THTTPClient 发布 json？

Question

我知道如何使用 THTTPClient 发送 post 请求，但如何发送 json？我的代码:

 var
      http: THTTPClient;
      params: TStringList;
    begin
      http:= THTTPClient.Create;
      params:= TStringList.Create;
      params.Add('login=admin');
      params.Add('password=123456');
      http.Post('http://localhost/login', params);

我的JSON:

{
    "login": "admin",
    "password": "123456"
}

Answer 1

您必须确保您发布的 URL 接受帖子中的 json，并且您还必须在 header 中指定您要将 JSON 发送到该 URL。

标题是:

Content-Type:application/json