Is_url='https://mobl-test.chinaums.com/fapiao-api-test/'

Ls_head="content-type: application/json. ~ ncharset=utf-8; ~ n
"Ls_head="content-type: application/x - form - WWW - urlencoded; ~ ncharset=utf-8; ~ n
"
{as_data="https://bbs.csdn.net/topics/" msgId ":" 2021030288406 "} '

STRING as_outparm
LONG ll_ret
BLOB lb_data
INET linet_base, linet
Nvo_internetdata lir_msgbox

Lb_data=https://bbs.csdn.net/topics/BLOB (as_data EncodingUTF8!)

Linet_base=CREATE INET
Linet=CREATE INET
Lir_msgbox=CREATE nvo_internetdata

TRY
If GetContextService (" Internet ", linet_base)=1 THEN
Ll_ret=linet. PostURL (is_url lb_data, ls_head, lir_msgbox)