嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300
本次赞助数额为： 2 元微信扫码支付：2 元
请留下您的邮箱，我们将在2小时内将文件发到您的邮箱
这段4gl代码是关于鼎捷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参数；
PUBLIC FUNCTION ccl_webservice_post(p_url,p_str) DEFINE l_http_req com.HTTPRequest DEFINE l_http_res com.HTTPResponse DEFINE p_url STRING #URL（可带参，不带json） DEFINE l_succ BOOLEAN DEFINE l_str STRING DEFINE l_body STRING DEFINE p_str STRING #JSON数据，放requestbody里 # 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("POST") CALL l_http_req.setCharset("UTF-8") # 設定編碼 CALL l_http_req.setHeader("Content-Type", "application/json") CALL l_http_req.doTextRequest(p_str) 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