Delphi OCR图像文字解析函数解析

function identity(libName: pchar; mRound, bone, maxNoise, limit, spn, spx0, spy0, spuw, spuh, sppw, rlL, rlH, ruW, imgH: Integer; var imgAry: TBArray): string;

var ary: TAAIArray; unitAry: TBArray; n, n1, x1, y1, x2, y2, unitW, unitH: Integer; rt: string;

begin

  1. 处理图像切割区域:根据提供的参数,首先判断切割区域的起始坐标和宽高,若符合条件,则使用 cutArea 函数处理图像区域,移除噪声。

  2. 噪声清理:调用 clearNoise 清除图像中的杂点。

  3. 单元格区域处理:根据 spn 参数处理每个单元格区域,进行单独的噪声去除操作。

  4. 图像分割:调用 splitArea 函数对图像进行分割,获取单元格区域的坐标数据。

  5. 区域识别:对于每个区域,根据计算得到的坐标进行图像单元识别,计算出最终的 unitIdentity,并通过 libName 调用相应的库进行识别处理。

最终返回解析结果 rt

注意:对于每个区域,计算出对应的宽度和高度,并设置好相关数组,进一步进行OCR处理。

rar 文件大小:210.52KB