文字、图片自动审核（鉴别色情|恶心|政治|等等），该怎么做？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 文字、图片自动审核（鉴别色情|恶心|政治|等等），该怎么做？

共有9450人关注过本帖树形打印复制链接主题：文字、图片自动审核（鉴别色情\|恶心\|政治\|等等），该怎么做？

有点甜

小大 21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/10/20 15:35:00 [只看该作者]

以下是引用baoxyang在2017/10/20 15:23:00的发言：
楼主，你好！请问下文字视别效果如何？

识别率，绝对靠谱。可以自行测试。

zhangjian222200

小大 22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1521 积分：10733 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/11/18 22:49:00 [只看该作者]

Dim body As String = "{""image"":""" & strbase64 & """,""scenes"":[""ocr"",""politician"",""antiporn"",""terror"",""disgust"",""quality""]}"

4楼代码，设置上述body代码可以正常返回一般审核结果

问题1：百度云能否通过照片，判断照片是幼儿或老年人么（若是，将返回错误信息）？能判断照片上人员数量和性别？

阿里云控制台界面，有一个内容审核:

此主题相关图片如下：qq图片2018111821432111100.png

问题2：文本审核功能怎么使用？

图片点击可在新窗口打开查看

此主题相关图片如下：qq图片2018111822413722200.png

[此贴子已经被作者于2018/11/18 22:50:38编辑过]

有点甜

小大 23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 0:28:00 [只看该作者]

1、应该没有这样的api，你去百度和阿里云那里找找。

2、 http://www.foxtable.com/mobilehelp/scr/0163.htm

请求说明

请求示例

HTTP方法: POST
请求URL: https://aip.baidubce.com/rest/2.0/antispam/v2/spam
URL参数：

参数	值
access_token	通过API Key和Secret Key获取的access_token,参考“Access Token获取”

Header如下：

参数	值
Content-Type	application/x-www-form-urlencoded

body请求示例: content=苟利国家生死以

请求参数

参数名称	类型	是否必须	详细说明
content	string	是	待审核文本，UTF-8，不可为空，不超过20000字节

zhangjian222200

小大 24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1521 积分：10733 威望：0 精华：0 注册：2016/9/12 11:18:00

Post By：2018/11/19 11:36:00 [只看该作者]

楼上第2个问题

尝试了好几个小时，也没有弄出来，若能给个例子，那就太感谢了！

Dim text = "狗蛋"

Dim hc A s New HttpC lient("https://aip.baidubce.com/rpc/2.0/nlp/v1/lexer")

hc.Con tentType = "applica tion/x-w ww-fo rm-url encoded"

Dim token As String = "24.ee769b8e9b4df4450143b25069981892.2592000.1508637775.282335-10174353"

hc.Con tent = "acces s_token=" & token

msgbox("获取数据完毕")

Dim stm As Sys tem.IO.Str eam = pos.GetResponseStream()

Dim reader As New Sy stem.I O.Strea mReader(stm)

Dim str As String = read er.Rea dToEnd

po s.Close

st m.Close

rea der.close

Dim jo As JOb ject = Jobje ct.Par se(str)

msgbox("3:" & jo.ToString)

[此贴子已经被作者于2018/11/19 11:43:48编辑过]

有点甜

小大 25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/11/19 12:09:00 [只看该作者]

Dim text = "content=狗蛋"
Dim token As String = "24.abb0af926867cfe101fd34cfae1b57ce.2592000.1545191692.282335-10146214"
Dim hc As New HttpClient("https://aip.baidubce.com/rest/2.0/antispam/v2/spam?access_token=" & Token)
hc.Headers.Add("Content-Type","application/x-www-form-urlencoded")
hc.content = text
Dim result = hc.GetData
msgbox(result)