调用外部Restful接口

1、进入demo – 侧菜单【HTTP接口配置】界面

2、增加或修改接口

3、调用代码

Set p("adminNo")="12345678"
Set MyRtn = ##class(CF.BSP.SYS.SRV.Request).Send("MyCode",.p,.RtnError)
Quit:($g(RtnError)'="") -100_"^InvokeFail."_$p(RtnError,"^",2)

如果需要向请求头中增加信息可以如下编写：

Set p1("access_token")=AccessToken
Set p1("_POST_HEADER")=1
Set p1("_POST_HEADER","Authorization")="Bearer "_AccessToken
Set MyRtn = ##class(CF.BSP.SYS.SRV.Request).Send("MyCode",.p1,RtnError)

如果需要向请求体中增加信息可以如下编写：

Set p1("_POST_JSON_BODY")="{""myAdmNo"":""12345678""}"
Set MyRtn = ##class(CF.BSP.SYS.SRV.Request).Send("MyCode",.p1,RtnError)