栏目分类:
子分类:
返回
名师互学网用户登录
快速导航关闭
当前搜索
当前分类
子分类
实用工具
热门搜索
名师互学网 > IT > 软件开发 > 后端开发 > 易语言

易语言调用dll实现条形码本地离线识别的代码

易语言 更新时间: 发布时间: IT归档 最新发布 模块sitemap 名妆网 法律咨询 聚返吧 英语巴士网 伯小乐 网商动力

易语言调用dll实现条形码本地离线识别的代码

DLL命令表

需要提前下载用到命令对应的库

.版本 2
.DLL命令 OCR, 文本型, "AspriseVB.dll", "OCR"
  .参数 file, 文本型
  .参数 imageType, 整数型
.DLL命令 OCRBarCodes, 文本型, "VBWrapper.dll", "OCRBarCodes"
  .参数 file, 文本型
  .参数 imageType, 整数型
.DLL命令 OCRpart, 文本型, "VBWrapper.dll", "OCRpart"
  .参数 file, 文本型
  .参数 imageType, 整数型
  .参数 startX, 整数型
  .参数 startY, 整数型
  .参数 width, 整数型
  .参数 height, 整数型

条形码本地离线识别的代码

.版本 2
.程序集 窗口程序集1
.子程序 _识别按钮_被单击
.局部变量 文件名, 文本型
.局部变量 识别结果, 文本型
.局部变量 分割, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 二次分割, 文本型, , "0"
.如果 (通用对话框1.打开 ())
  文件名 = 通用对话框1.文件名
  识别结果 = OCR (文件名, -1)
  .如果 (取文本长度 (识别结果) > 3)
    .如果 (寻找文本 (识别结果, “[”, , 假) > -1)
      分割 = 分割文本 (识别结果, “[”, )
      .计次循环首 (取数组成员数 (分割) - 1, i)
 .如果 (寻找文本 (分割 [i + 1], “]”, , 假) > -1)
   二次分割 = 分割文本 (分割 [i + 1], “]”, )
   .如果 (二次分割 [1] ≠ “”)
     .如果 (取文本长度 (二次分割 [1]) > 8)
信息框 (二次分割 [1], 0, )
     .否则
     .如果结束
   .否则
   .如果结束
 .否则
 .如果结束
      .计次循环尾 ()
    .否则
    .如果结束
  .否则
  .如果结束
.否则
.如果结束

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对考高分网的支持。如果你想了解更多相关内容请查看下面相关链接

转载请注明:文章转载自 www.mshxw.com
本文地址:https://www.mshxw.com/it/168097.html
我们一直用心在做
关于我们 文章归档 网站地图 联系我们

版权所有 (c)2021-2022 MSHXW.COM

ICP备案号:晋ICP备2021003244-6号