答题卡阅读Delphi源码.docVIP

答题卡阅读Delphi源码 前段时间写的识别代替卡的源码，基于图像上的颜色块实现，后来采用OMR来做，方便多了，把这个代码公布出来，只是一种想法而已。下面代码只是实现了读取学号的功能，读取客观题的方法差不多。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; OpenDialog1: TOpenDialog; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; //基准线的X、Y值结构体 type TLineXY=record x:Integer; y:Integer; end; //准考证号x,对应的数字 type TNumberX=record x:Integer; No:Integer; end; var Form1: TForm1; ImgFile:String; AreaCount:Integer; AreaXY:array[1..30] of TLineXY; NoArray:array[1..6] of TNumberX; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin OpenDialog1.Filter:=Image files(*.bmp)|*.bmp; if OpenDialog1.Execute then ImgFile:=OpenDialog1.FileName; end; //递归查找基准线 function GetColorArea(Img:TBitmap;x,y:Integer):Integer; begin if (img.Canvas.Pixels[x,y]=clBlack) and (img.Canvas.Pixels[x,y+14]=clBlack) and (img.Canvas.Pixels[x+56,y]=clBlack) and (img.Canvas.Pixels[x+56,y+14]=clBlack) and//上半部分判断的是指定黑色框大小 (img.Canvas.Pixels[x-1,y]=clWhite) and (img.Canvas.Pixels[x,y-1]=clWhite) and (img.Canvas.Pixels[x,y+15]=clWhite) and (img.Canvas.Pixels[x+57,y]=clWhite) then//下半部分判断的是指定框大小外面是否为白色 begin AreaCount:=AreaCount+1; //记录每个黑色块的x值 AreaXY[AreaCount].x:=x; AreaXY[AreaCount].y:=y; GetColorArea(Img,x,y+5+15); end; Result:=AreaCount; end; //冒泡排序学号 procedure NoList(var Arr:array of TNumberX); var i,j,tempx,tempNo:integer; begin for i:=High(Arr) downto Low(Arr) do begin for j:=Low(Arr) to High(Arr)-1 do begin if Arr[j].xArr[j+1].x then begin tempx:=Arr[j].x; tempNo:=Arr[j].No; Arr[j].x:=Arr[j+1].x; Arr[j].No:=Arr[j+1].No; Arr[j+1].x