Delphi 使用tnethtprequest.Post（）发送JSON对象数组

我需要发送一个包含JSON的post请求，如下所示：

[{“sku”：“AS12AS11S”，“estoque”：3}，{“sku”：“ASKD123F4”，“estoque”：10}]

我发现了插入单个JSON对象的示例。如何设置参数以发送多个JSON对象

这是我拥有的实际代码

var
NetHTTPClient:TNetHTTPClient；
参数：Tstringlist；
开始
参数：=tstringlist.Create；
NetHTTPClient:=TNetHTTPClient.Create（nil）；
参数Add（'nom_logiciel='+UTF8Encode（'è'）；
参数Add（'emposition='+EncodeURIComponent（'è'））；
parametres.Add（'version='+'cfè'）；
NetHTTPClient.ContentType:=“应用程序/json”；
NetHTTPClient.AcceptEncoding:=“UTF-8”；
NetHTTPClient.post（'http://metaclients.xxx.fr/xxx，参数，nil，TEncoding.UTF8）；
自由参数；
NetHTTPClient.Free；
结束；

使用重载版本的

TNetHTTPClient.Post（）

将

TStream

作为输入，而不是

TStrings

。然后，您可以根据需要将JSON存储到合适的

TStream

，例如

TStringStream

var
NetHTTPClient:TNetHTTPClient；
参数：TStringStream；
开始
NetHTTPClient:=TNetHTTPClient.Create（nil）；
尝试
NetHTTPClient.ContentType:=“应用程序/json”；
NetHTTPClient.AcceptEncoding:=“UTF-8”；
参数：=TStringStream.Create（'[{“sku”：“AS12AS11S”，“estoque”：3}，{“sku”：“ASKD123F4”，“estoque”：10}]'，TEncoding.UTF8）；
尝试
结果：=NetHTTPClient.Post（'http://metaclients.xxx.fr/xxxContentAsString（TEncoding.UTF8）；
最后
自由参数；
结束；
最后
NetHTTPClient.Free；
结束；
结束；

使用重载版本的

TNetHTTPClient.Post（）

将

TStream

作为输入，而不是

TStrings

。然后，您可以根据需要将JSON存储到合适的

TStream

，例如

TStringStream

var
NetHTTPClient:TNetHTTPClient；
参数：TStringStream；
开始
NetHTTPClient:=TNetHTTPClient.Create（nil）；
尝试
NetHTTPClient.ContentType:=“应用程序/json”；
NetHTTPClient.AcceptEncoding:=“UTF-8”；
参数：=TStringStream.Create（'[{“sku”：“AS12AS11S”，“estoque”：3}，{“sku”：“ASKD123F4”，“estoque”：10}]'，TEncoding.UTF8）；
尝试
结果：=NetHTTPClient.Post（'http://metaclients.xxx.fr/xxxContentAsString（TEncoding.UTF8）；
最后
自由参数；
结束；
最后
NetHTTPClient.Free；
结束；
结束；