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

今天小编就为大家分享一篇关于易语言调用百度api识别是否为色情图片的代码，小编觉得内容挺不错的，现在分享给大家，具有很好的参考价值，需要的朋友一起跟随小编来看看吧

调用百度云色情图片识别的代码

此功能需要加载精易模块5.6

				?

									.版本 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)