PB里post提交

PB 通过 PostRul

一、 创建Standard Class对象 type为"internetresult" n_ir

二、 界面中，增加按钮。点击测试post提交。

Blob lblb_args
String ls_header
String ls_url
String ls_args
Long ll_length
Integer li_rc

inet iinet_base,iinet
n_ir ir
iinet_base = Create inet
iinet = Create inet

li_rc = GetContextService( "Internet", iinet_base )
IF li_rc = 1 THEN
    ir = Create n_ir
    ls_url = "http://127.0.0.1/DrugstorePresc/user/login"
    //ls_url = "http://www.baidu.com"
    ls_args = '{ &
        "password": "",&
        "username": ""&
        }'
    lblb_args = Blob( ls_args )    
    ll_length = Len( lblb_args )    
    ls_header = "Content-Type: " + &
        "application/json;charset=UTF-8~n"