pb9发送json数据问题

[motocmotoc]

inet linet_base
string ls_cab, ls_box
Integer li_box
String ls_url, ls_UserName, ls_pass, ls_tel, ls_pass64, ls_smstype, ls_Return , ls_Id, ls_content
String ls_data, ls_signname, ls_headers, ls_args, ls_err
integer li_Pos, li_i, li_value
Blob lblb_utf8,lblb_args
Long ll_length

ls_id = '1'
ls_cab = sle_cab.text
ls_box = sle_box.text
li_box = Integer(ls_box)

iir_msgbox = CREATE n_ir_msgbox
linet_base = Create inet

if GetContextService("Internet", linet_base) = 1 THEN
ls_url = sle_url.text
ls_url = "http://"+ls_url+":8080/api/openbox"
ls_args = "id='"+ls_id + "'&cabinet_code='" + ls_cab + "'&box_position="+ls_box + "&delay_time=0"


messagebox(string(li_value),ls_url)
lblb_args = blob(ls_args)
ll_length = Len(lblb_args)
ls_headers = "Content-Length: " + String(ll_length) + "~n~n"

li_value = linet_base.PostURL(ls_url, lblb_args, ls_headers, 8080, iir_msgbox)
Choose Case li_value
Case 1
//正常
Case -1
ls_err = 'General error'
case -2
ls_err = 'Invalid URL'
Case -4
ls_err = 'Cannot connect to the Internet'
Case -5
ls_err = 'Unsupported secure (HTTPS) connection attempted'
Case -6
ls_err = 'Internet request failed'
End Choose
IF li_value <> 1 then
Messagebox("",ls_err)
End IF
mle_msg.text = iir_msgbox.is_data
is_Return = uf_ReturnMsg(iir_msgbox.is_data)
END IF

DESTROY iir_msgbox
Destroy linet_base

执行li_value = linet_base.PostURL(ls_url, lblb_args, ls_headers, 8080, iir_msgbox)命令时，返回错误-6

[heijj]

ls_header = "Content-Type: " + &
"text/json~n" + &
"Content-Length: " + String( ll_length ) + "~n~n"

少了Content-Type，建议用postman调试一下，看看Content-Type是啥，我这写的是比较通用的，你的服务器未必是这个