车牌识别问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好，我们买了个车牌识别一体机，想通过http协议将车牌识别数据存入服务器，还没有搞通，请教老师，怎么弄？相关说明截图到文档中，请老师帮忙指导！

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

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

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

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

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

老师，我按照说明做了如下工作：

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

服务发布后，车牌第一次识别，有弹框，后来就没有了，不知道怎么回事？我要提取车号的话，应该怎么写，谢谢老师

把这个说明文档压缩打包发上来看看

老师，开发说明文档有点大，传不上去，相关叶我都发帖子上了

上传到云盘，然后提供下载链接

链接：https://pan.baidu.com/s/1Tl0GQleO387WXCGchooRJQ

提取码：ne9i

复制这段内容后打开百度网盘手机App，操作更方便哦

文档说有提供.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

链接：https://pan.baidu.com/s/12jvR3bBC8MFCHMn4I9amLw

提取码：tpn6

复制这段内容后打开百度网盘手机App，操作更方便哦

8楼代码测试有没有问题？

主题：车牌识别问题