电表识别的delphi程序代码

delphi 图像

图像图像

图像识别

识别识别

识别技术（逐行扫描识别

识别识别

识别）

unit bmp2number;

{将传递进来的图像

图像图像

图像进行对比，识别

识别识别

识别出图片中的数字。

本程序使用的是模式识别

识别识别

识别的方式，需要照片标准，数字无反光。

识别识别

的进行排序组合后返回

对于本模板的重要方法说明:

Function GetNumber:string

功能:返回识别

按照对 TBmp2Number 对象的下列属性:

SoruceBitmap:需要被识别

Temp_Index:模板编号

interface

uses windows,math,classes,controls,graphics,jpeg,sysutils,dialogs,extctrls,forms,

stdctrls,ComCtrls;

Type

pRGBTripleArray = ^TRGBTripleArray;

TRGBTripleArray = array [0 .. 65535] of TRGBTriple;

Ptemplate=^Ttemplate; //被识别

Ttemplate=record

private

FSourceBitMap:Tbitmap;

FTempl_index:integer;

Ftempl_Path:String;

Fdiscern_rate:Double;

FNumber:string;

FNumberList:TList;

tmeplate:Ptemplate;

fStop:Boolean;

FShowDemo:Boolean;

protected

procedure SetTempl_index(value:Integer);

procedure SetTempl_path(Value:String);

pb_Count,pb_deta:TProgressbar;

constructor Create;

published

property SourceBitMap:Tbitmap read FSourceBitMap write FSourceBitmap;

property Templ_index:integer read Ftempl_index write SetTempl_index;

Property Templ_Path:String read Ftempl_Path write SetTempl_path;

property ShowDemo:Boolean read FShowDemo write FShowDemo;

end;

//SourceBitmap:电表图片,template_index:调用的模板号 template_path；模板存放的目录

Function Pic2Bmp(PicFileName:String):TBitmap;

//将图片转换成 BMP 格式，以便比较，主要是因为数码相机采集的图片基本上是 JPEG 格

式的。

var

Str:String;

Icon: TIcon;

Jpeg1:TJPEGIMAGE;

MetaFile:TMetafile;

begin

result:=TBitMap.create;

result.PixelFormat:=pf24bit;

Str := ExtractFileExt(PicFileName);

Str :=Uppercase(Copy(Str,2,3));

if (Str='BMP') then

result.LoadFromFile(PicFileName)

else //Jpeg 转换成 BMP

end

else //ICO 转换成 BMP

if (Str='ICO') or (Str='ico') then

begin

Icon := TIcon.Create;

Icon.LoadFromFile(PicFileName);

result := TBitmap.Create;

Icon.Free;

end

else //WMF 转换成 BMP

if Str='WMF' then

begin

Metafile:=TMetaFile.create;

MetaFile.LoadFromFile(PicFileName);

end;

MetaFile.Free;

end;

end;

constructor TBmp2Number.Create;