易语言调用百度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)