- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 车牌识别问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=162965)
-- 发布时间：2021/4/19 2:27:00
-- 车牌识别问题
老师好，我们买了个车牌识别一体机，想通过http协议将车牌识别数据存入服务器，还没有搞通，请教老师，怎么弄？相关说明截图到文档中，请老师帮忙指导！
此主题相关图片如下：1.png
此主题相关图片如下：2.png
此主题相关图片如下：3.png
-- 发布时间：2021/4/19 2:27:00
--
此主题相关图片如下：5.png
此主题相关图片如下：4.png
-- 发布时间：2021/4/19 2:47:00
--
老师，我按照说明做了如下工作：
1、将相机http配置为我的服务器地址：192.168.1.80:9091/ch.htm
2、用ft做了个服务器：
打开项目事件：
HttpServer.Close
HttpServer.Prefixes.Add("http://*:9091/")
HttpServer.WebPath = "d:\\web" \'指定静态文件存储位置
HttpServer.Start()
网络监视器httprequest事件：
Select Case e.Path
Case "addnew.htm"
Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
wb.AddForm("","form1","addnew.htm")
With wb.AddInputGroup("form1","ipg1","新增订单")
.AddSelect("cp","产品","PD01|PD02|PD03|PD04|PD05")
.AddInput("gy","雇员","text")
.AddInput("kh","客户","text")
.AddInput("dj","单价","number")
.AddInput("zk","折扣","number")
.AddInput("sl","数量","number")
.AddInput("rq","日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btnok","确定")
End With
e.WriteString(wb.Build) \'生成网页
Case "ch.htm"
MessageBox.Show(e.PlainText)
End Select
服务发布后，车牌第一次识别，有弹框，后来就没有了，不知道怎么回事？我要提取车号的话，应该怎么写，谢谢老师
-- 发布时间：2021/4/19 8:37:00
--
把这个说明文档压缩打包发上来看看
-- 发布时间：2021/4/20 8:39:00
--
老师，开发说明文档有点大，传不上去，相关叶我都发帖子上了
-- 发布时间：2021/4/20 9:00:00
--
上传到云盘，然后提供下载链接
-- 发布时间：2021/4/21 1:43:00
--
链接：https://pan.baidu.com/s/1Tl0GQleO387WXCGchooRJQ
提取码：ne9i
复制这段内容后打开百度网盘手机App，操作更方便哦
-- 发布时间：2021/4/21 9:06:00
--
文档说有提供.net的开发实例，打包发上来看看。
试试回复一条数据
msgbox(e.Path) \'第二次之后这里能不能弹出，弹出什么内容？
Select Case e.Path
Case "addnew.htm"
‘……’
Case "ch.htm"
Dim jo As New JObject
jo("Response") = New JObject
jo("Response")("barrier_control") = New JObject
jo("Response")("barrier_control")("action") = "open"
e.WriteString(jo.ToString)
End Select
-- 发布时间：2021/4/21 11:40:00
--
链接：https://pan.baidu.com/s/12jvR3bBC8MFCHMn4I9amLw
提取码：tpn6
复制这段内容后打开百度网盘手机App，操作更方便哦
-- 发布时间：2021/4/21 11:53:00
--
8楼代码测试有没有问题？