zql277 2023-03-20 12:02 采纳率: 62.5%
浏览 145
已结题

delphi7 idhttp post json


datastr:='{"name":"蜂窝纸70克30宽50米-中强",
"product_no":"CN.01.0700308888001",
"cn_name":"蜂窝纸70克30宽50米-中强",
"category_ids":[23,190003341,190003350],
"group_id":"纸垫类成品",
"6076727299027":"HP-Z-30-70-50",
"cost_currency":"USD",
"cost":"0",
"cost_unit":""}';
IdHTTP1.Request.Accept:='application/json';
IdHTTP1.HandleRedirects :=True;
IdHTTP1.Request.ContentType:='application/x-www-form-urlencoded';
IdHTTP1.Request.CustomHeaders.Text:='Authorization:'+crmtoken ;
sGetTokenURL:='https://xxxxx.cn' ;
jsonToSend := TStringStream.Create(datastr);
jsonToSend.Position := 0;
sResult:=Utf8ToAnsi(IdHTTP1.Post(sGetTokenURL,jsonToSend)) ; 

运行提示 HTTP/1.1 400 bad Request ,跟踪发现
"category_ids":[23,190003341,190003350] 数组变成了字符 "category_ids":“[23,190003341,190003350]“ ,请问要如何调整?

  • 写回答

11条回答 默认 最新

  • 「已注销」 2023-03-20 13:47
    关注

    参考GPT和自己的思路:在进行 HTTP POST 请求时,根据指定的 Content-Type,需要对请求体数据进行相应的编码处理。如果使用了 application/x-www-form-urlencoded 编码方式,那么需要将数据编码成类似 key1=value1&key2=value2 的格式;如果使用 application/json 编码方式,则需要将数据编码成 JSON 字符串。

    在你的代码中,请求头中设置的 Content-Type 为 application/x-www-form-urlencoded,但请求体数据却是一个 JSON 字符串。这种情况下,请求体数据需要先被编码成类似 key1=value1&key2=value2 的格式,然后再通过 IdHTTP1.Post 方法发送。

    另外,在数据编码成 application/x-www-form-urlencoded 格式时,数组需要使用多个相同的键名进行编码。因此,你需要将 JSON 数据中的 category_ids 字段转换成类似 category_ids[]=23&category_ids[]=190003341&category_ids[]=190003350 的格式。可以使用 Delphi 内置的 TJSON 单元解析 JSON 数据,然后使用循环遍历数组元素,将其拼接成正确的格式。

    以下是示例代码:

    var
      datastr: string;
      jsonToSend: TStringStream;
      sResult: string;
      sGetTokenURL: string;
    begin
      datastr := '{"name":"蜂窝纸70克30宽50米-中强",
      "product_no":"CN.01.0700308888001",
      "cn_name":"蜂窝纸70克30宽50米-中强",
      "category_ids":[23,190003341,190003350],
      "group_id":"纸垫类成品",
      "6076727299027":"HP-Z-30-70-50",
      "cost_currency":"USD",
      "cost":"0",
      "cost_unit":""}';
    
      IdHTTP1.Request.Accept := 'application/json';
      IdHTTP1.HandleRedirects := True;
      IdHTTP1.Request.ContentType := 'application/json';
      IdHTTP1.Request.CustomHeaders.Text := 'Authorization:' + crmtoken;
      sGetTokenURL := 'https://xxxxx.cn';
    
      jsonToSend := TStringStream.Create(datastr, TEncoding.UTF8);
      try
        sResult := IdHTTP1.Post(sGetTokenURL, jsonToSend);
      finally
        jsonToSend.Free;
      end;
    
      // 处理响应
    end;
    
    
    

    在上述代码中,我们使用了 TStringStream 将 datastr 包装成一个 JSON 格式的数据流,然后将其作为 POST 请求的正文发送给服务器。同时,我们指定了请求的 Content-Type 为 application/json,这样服务器就可以正确解析我们发送的 JSON 数据。如果服务器返回的响应也是 JSON 格式的数据,您可以使用 Delphi 内置的 TJSONObject 或第三方库(如 SuperObject)来解析响应。

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(10条)

报告相同问题?

问题事件

  • 系统已结题 3月31日
  • 已采纳回答 3月23日
  • 创建了问题 3月20日

悬赏问题

  • ¥66 换电脑后应用程序报错
  • ¥50 array数据同步问题
  • ¥15 pic16F877a单片机的外部触发中断程序仿真失效
  • ¥15 Matlab插值拟合差分微分规划图论
  • ¥15 keil5 target not created
  • ¥15 C/C++数据与算法请教
  • ¥15 怎么找志同道合的伙伴
  • ¥20 如何让程序ab.eXe自已删除干净硬盘里的本文件自己的ab.eXe文件
  • ¥50 爬虫预算充足,跪巨佬
  • ¥15 滑块验证码拖动问题悬赏