易語言調(diào)用dll實現(xiàn)條形碼本地離線識別的代碼

更新時間：2018年11月28日 16:03:55 作者：易語言源碼教程

今天小編就為大家分享一篇關于易語言實現(xiàn)條形碼本地離線識別的代碼，小編覺得內(nèi)容挺不錯的，現(xiàn)在分享給大家，具有很好的參考價值，需要的朋友一起跟隨小編來看看吧

DLL命令表

需要提前下載用到命令對應的庫

.版本 2
.DLL命令 OCR, 文本型, "AspriseVB.dll", "OCR"
  .參數(shù) file, 文本型
  .參數(shù) imageType, 整數(shù)型
.DLL命令 OCRBarCodes, 文本型, "VBWrapper.dll", "OCRBarCodes"
  .參數(shù) file, 文本型
  .參數(shù) imageType, 整數(shù)型
.DLL命令 OCRpart, 文本型, "VBWrapper.dll", "OCRpart"
  .參數(shù) file, 文本型
  .參數(shù) imageType, 整數(shù)型
  .參數(shù) startX, 整數(shù)型
  .參數(shù) startY, 整數(shù)型
  .參數(shù) width, 整數(shù)型
  .參數(shù) height, 整數(shù)型

條形碼本地離線識別的代碼

.版本 2
.程序集 窗口程序集1
.子程序 _識別按鈕_被單擊
.局部變量 文件名, 文本型
.局部變量 識別結(jié)果, 文本型
.局部變量 分割, 文本型, , "0"
.局部變量 i, 整數(shù)型
.局部變量 二次分割, 文本型, , "0"
.如果 (通用對話框1.打開 ())
  文件名 ＝ 通用對話框1.文件名
  識別結(jié)果 ＝ OCR (文件名, -1)
  .如果 (取文本長度 (識別結(jié)果) ＞ 3)
    .如果 (尋找文本 (識別結(jié)果, “[”, , 假) ＞ -1)
      分割 ＝ 分割文本 (識別結(jié)果, “[”, )
      .計次循環(huán)首 (取數(shù)組成員數(shù) (分割) － 1, i)
        .如果 (尋找文本 (分割 [i ＋ 1], “]”, , 假) ＞ -1)
          二次分割 ＝ 分割文本 (分割 [i ＋ 1], “]”, )
          .如果 (二次分割 [1] ≠ “”)
            .如果 (取文本長度 (二次分割 [1]) ＞ 8)
              信息框 (二次分割 [1], 0, )
            .否則
            .如果結(jié)束
          .否則
          .如果結(jié)束
        .否則
        .如果結(jié)束
      .計次循環(huán)尾 ()
    .否則
    .如果結(jié)束
  .否則
  .如果結(jié)束
.否則
.如果結(jié)束

運行結(jié)果：