鼎捷T100关于调用外部接口的方法

【核心代码】 

GET （获取）/ DELETE（删除）：

PUBLIC FUNCTION ccl_webservice_get(p_url) DEFINE l_http_req com.HTTPRequest DEFINE l_http_res com.HTTPResponse DEFINE p_url STRING DEFINE l_succ BOOLEAN DEFINE l_str STRING DEFINE l_body STRING DEFINE p_method LIKE type_t.chr100 # initial parameter LET l_succ = FALSE LET l_str = "" TRY # 設置 HttpRequest START LET l_http_req = com.HttpRequest.Create(p_url) # 建立請求 requesst 物件 CALL l_http_req.setTimeOut(60) # 設定 request timeout CALL l_http_req.setMethod("GET") # 設定Http method CALL l_http_req.setCharset("UTF-8") # 設定編碼 CALL l_http_req.doRequest() # 設定Http method LET l_http_res = l_http_req.getResponse() #取得回傳 response 物件 IF l_http_res.getStatusCode() != 200 THEN # server 回傳報錯 LET l_succ = FALSE LET l_str = "HTTP Error ("||l_http_res.getStatusCode()||") ", l_http_res.getStatusDescription() ELSE # 取得 server 回傳 body content string LET l_succ = TRUE LET l_str = l_http_res.getTextResponse() # 取得 response body字串 END IF CATCH #get error from genero LET l_succ = FALSE LET l_str = "ERROR :",STATUS||" ("||SQLCA.SQLERRM||")" END TRY # 回傳結果 RETURN l_succ,l_str END FUNCTION

POST（新增）/PUT（修改）：

1—参数为URL(带参?a=a&b=b)，JSON(在requestBody里)，此时用doTextRequest传递JSON；

2—参数为URL(不带参)，URL参数(a=a&b=b)，此时用doFormEncodedRequest传递URL参数；