易语言调用百度云色情图片识别 易语言调用百度api识别是否为色情图片的代码

.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 _识别按钮_被单击
百度云色情识别 ()
.子程序 百度云色情识别
.局部变量 类_XMLHTTP, 类_XMLHTTP
.局部变量 Accesss_token, 文本型
.局部变量 str, 文本型
Accesss_token ＝ GetAccesss_token ()
类_XMLHTTP.打开 (“POST”, “https://aip.baidubce.com/rest/2.0/antiporn/v1/detect?” ＋ Accesss_token)
类_XMLHTTP.发送请求 (“image=” ＋ 编码_URL编码 (编码_BASE64编码 (图片框1.图片)))
str ＝ 类_XMLHTTP.取responseText ()
调试输出 (str)
.子程序 GetAccesss_token, 文本型
.局部变量 类_XMLHTTP, 类_XMLHTTP
.局部变量 client_id, 文本型
.局部变量 client_secret, 文本型
.局部变量 str, 文本型
.局部变量 access_token, 文本型
' 免费的 都去申请看看吧
client_id ＝ “rrqIhjN6eHyNcVzSt1domPPo”
client_secret ＝ “kYjPv4j8qcuhnR4xs6PMjj1xylvgogj1”
类_XMLHTTP.打开 (“POST”, “https://aip.baidubce.com/oauth/2.0/token”)
类_XMLHTTP.发送请求 (“grant_type=client_credentials&client_id=” ＋ client_id ＋ “&client_secret=” ＋ client_secret)
str ＝ 类_XMLHTTP.取responseText ()
调试输出 (str)
access_token ＝ 文本_取出中间文本 (str, “{” ＋ #引号, #引号 ＋ “,”, )
access_token ＝ 子文本替换 (access_token, #引号 ＋ “:” ＋ #引号, “=”, , , 真)
调试输出 (access_token)
返回 (access_token)