人脸识别眼镜试戴代码_百度云人脸识别API

.版本 2
.支持库 spec
.支持库 iext

.程序集 窗口程序集_窗口1
.程序集变量 阿信, 类_人脸识别

.子程序 _按钮_注册用户_被单击
.局部变量 Return, 文本型

' 阿信.GetAcc_token  ()
Return ＝ 阿信.API_人脸注册 (编辑框_用户ID.内容, 编辑框_用户信息.内容, 组合框1.取项目文本 (组合框1.现行选中项), 图片框1.图片)
.如果 (寻找文本 (Return, “error_code”, , 假) ＝ -1)
    信息框 (“注册成功,35S后生效”, 0 ＋ #信息图标, “注册成功”, )
.否则
    信息框 (“注册失败,错误代码为” ＋ #换行符 ＋ Return, 0 ＋ #信息图标, “注册失败”, )
.如果结束


.子程序 _标签_打开_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

' 自行优化细节
通用对话框1.打开 ()
图片框1.图片 ＝ 读入文件 (通用对话框1.文件名)

.子程序 _组合框1_列表被关闭
.局部变量 新建组名称, 文本型
.局部变量 索引, 整数型

调试输出 (组合框1.取项目文本 (组合框1.现行选中项))
.如果真 (组合框1.现行选中项 ＝ 0)
    .如果真 (输入框 (“自定义创建并选择一个组名称” ＋ #换行符 ＋ “支持字母数字下划线 最大不超过120B”, “请输入一个新的组名称”, “text”, 新建组名称, 1, ))
        索引 ＝ 组合框1.插入项目 (组合框1.取项目数 (), 新建组名称, )
        组合框1.现行选中项 ＝ 索引
    .如果真结束

.如果真结束


.子程序 _标签_刷新_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
.局部变量 组列表, 文本型
.局部变量 json, 类_json
.局部变量 i, 整数型
.局部变量 用户组, 文本型
.局部变量 x, 整数型

.循环判断首 ()
    .计次循环首 (组合框1.取项目数 (), x)
        组合框1.删除项目 (x － 1)
    .计次循环尾 ()
.循环判断尾 (组合框1.取项目数 () ≠ 0)
组合框1.插入项目 (0, “创建一个新组名称”, )

组列表 ＝ 阿信.API_组列表查询 ()
' 调试输出 (组列表)
json.解析 (组列表)
.计次循环首 (json.成员数 (“result”), i)
    用户组 ＝ json.取通用属性 (“result[” ＋ 到文本 (i － 1) ＋ “]”)
    组合框1.插入项目 (i, 用户组, )
.计次循环尾 ()
json.清除 ()

.子程序 _按钮1_被单击
.局部变量 Retunrn, 文本型
.局部变量 json, 类_json
.局部变量 i, 整数型
.局部变量 uid, 文本型
.局部变量 group_id, 文本型
.局部变量 user_info, 文本型
.局部变量 索引, 整数型

Retunrn ＝ 阿信.API_用户信息查询 (编辑框_用户ID查询.内容)
调试输出 (Retunrn)
.如果真 (寻找文本 (Retunrn, “user not exist”, , 假) ≠ -1)
    信息框 (“查找失败,用户不存在”, 0 ＋ #警告图标, “查找失败”, )
    返回 ()
.如果真结束

json.解析 (Retunrn)
.计次循环首 (json.成员数 (“result”), i)
    uid ＝ json.取通用属性 (“result[” ＋ 到文本 (i － 1) ＋ “].uid”)
    group_id ＝ json.取通用属性 (“result[” ＋ 到文本 (i － 1) ＋ “].group_id”)
    user_info ＝ json.取通用属性 (“result[” ＋ 到文本 (i － 1) ＋ “].user_info”)
    索引 ＝ 超级列表框1.插入表项 (-1, , , , , )
    超级列表框1.置标题 (索引, 0, uid)
    超级列表框1.置标题 (索引, 1, user_info)
    超级列表框1.置标题 (索引, 2, group_id)
.计次循环尾 ()


.子程序 _标签_人脸识别_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

通用对话框1.打开 ()
图片框2.图片 ＝ 读入文件 (通用对话框1.文件名)


.子程序 _按钮_人脸识别_被单击
.局部变量 组列表, 文本型
.局部变量 json, 类_json
.局部变量 用户组, 文本型
.局部变量 i, 整数型
.局部变量 Group_id, 文本型
.局部变量 Return, 文本型
.局部变量 x, 整数型
.局部变量 uid, 文本型
.局部变量 scores, 文本型
.局部变量 user_info, 文本型
.局部变量 索引, 整数型

组列表 ＝ 阿信.API_组列表查询 ()
' 调试输出 (组列表)
json.解析 (组列表)
.计次循环首 (json.成员数 (“result”), i)
    用户组 ＝ json.取通用属性 (“result[” ＋ 到文本 (i － 1) ＋ “]”)
    Group_id ＝ Group_id ＋ “,” ＋ 用户组
.计次循环尾 ()
Group_id ＝ 子文本替换 (Group_id, “,”, , , 1, 真)
' 调试输出 (Group_id)
json.清除 ()

Return ＝ 阿信.API_人脸识别 (Group_id, 编码_URL编码 (到文本 (编码_BASE64编码A (图片框2.图片))))
调试输出 (Return)
.如果真 (寻找文本 (Return, “error_code”, , 假) ≠ -1)
    信息框 (“参数错误或用户不存在,如刚注册用户需等35s”, 0 ＋ #警告图标, “失败”, )
    返回 ()
.如果真结束

json.解析 (Return)
.计次循环首 (json.成员数 (“result”), x)
    uid ＝ json.取通用属性 (“result[” ＋ 到文本 (x － 1) ＋ “].uid”)
    scores ＝ json.取通用属性 (“result[” ＋ 到文本 (x － 1) ＋ “].scores”)
    Group_id ＝ json.取通用属性 (“result[” ＋ 到文本 (x － 1) ＋ “].group_id”)
    user_info ＝ json.取通用属性 (“result[” ＋ 到文本 (x － 1) ＋ “].user_info”)
    调试输出 (uid, scores, Group_id, user_info)
    索引 ＝ 超级列表框2.插入表项 (-1, , , , , )
    超级列表框2.置标题 (索引, 0, uid)
    超级列表框2.置标题 (索引, 1, scores)
    超级列表框2.置标题 (索引, 2, Group_id)
    超级列表框2.置标题 (索引, 3, user_info)
.计次循环尾 ()
json.清除 ()


.子程序 _按钮2_被单击
.局部变量 Return, 文本型
.局部变量 json, 类_json
.局部变量 age, 文本型
.局部变量 beauty, 文本型
.局部变量 expression, 文本型
.局部变量 glasses, 文本型
.局部变量 索引, 整数型

Return ＝ 阿信.API_人脸检测 (编码_URL编码 (到文本 (编码_BASE64编码A (图片框2.图片))), )
调试输出 (Return)
json.解析 (Return)
age ＝ json.取通用属性 (“result[0].age”)
beauty ＝ json.取通用属性 (“result[0].beauty”)
expression ＝ json.取通用属性 (“result[0].expression”)
glasses ＝ json.取通用属性 (“result[0].glasses”)
json.清除 ()
索引 ＝ 超级列表框3.插入表项 (-1, , , , , )
超级列表框3.置标题 (索引, 0, age)
超级列表框3.置标题 (索引, 1, beauty)
.如果真 (expression ＝ “0”)
    超级列表框3.置标题 (索引, 2, “没笑”)
.如果真结束
.如果真 (expression ＝ “1”)
    超级列表框3.置标题 (索引, 2, “微笑”)
.如果真结束
.如果真 (expression ＝ “2”)
    超级列表框3.置标题 (索引, 2, “大笑”)
.如果真结束
.如果真 (glasses ＝ “0”)
    超级列表框3.置标题 (索引, 3, “无眼镜”)
.如果真结束
.如果真 (glasses ＝ “1”)
    超级列表框3.置标题 (索引, 3, “普通眼镜”)
.如果真结束
.如果真 (glasses ＝ “2”)
    超级列表框3.置标题 (索引, 3, “墨镜”)
.如果真结束




.子程序 _窗口1_创建完毕

输出调试文本 (“百度云人脸识别API - 第二人生”)
输出调试文本 (“-----------------------------”)
输出调试文本 (“是免费的 老铁 自行申请个帐号在GetAcc_token替换你的ID和key”)
输出调试文本 (“是免费的 老铁 自行申请个帐号在GetAcc_token替换你的ID和key”)
输出调试文本 (“是免费的 老铁 自行申请个帐号在GetAcc_token替换你的ID和key”)