自动识别车牌号(200分)

我们单位要从图片中 取出车牌号的文本信息<br>谁有这方面的技术<br>我们可以购买<br><br>UP 有分

帮顶~~~~~~~

ding

这个有点难度呀！

这很容易实现的。API函数中在图像中抓取字的函数

问友源码那里有演示，去联系看看

问友源码:http://www.winu.cn/viewthread.php?tid=109004&amp;extra=page%3D2<br>图像处理软件完整代码<br>这个源程序可以参考.

我这有车牌识别的软件，<br>效果图如下:<br>http://www.sintrun.com/image/4.jpg

有难度啊，顶一个。帮你找了点儿资料，希望对你有帮助。[]<br><br>要把图像转换为文本，这其中有一个很大的困难，就是文本没有颜色，所以我们特别引进了一个概念：文本灰度，就是把不同字母在屏幕上显示的大小排序，得到一张灰度表，用这个灰度表来转换图片，可以达到比较好的效果。<br>下面的函数可以把一个位图转换成文本，ABit 是位图，AGray 是灰度<br>function ImageToText(ABit:TBitmap;const AGray:string):string;<br>var<br>&nbsp; &nbsp; x,y &nbsp; &nbsp; &nbsp; &nbsp; :integer;<br>&nbsp; &nbsp; s &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; :string;<br>&nbsp; &nbsp; pColor &nbsp; &nbsp; &nbsp;:Longint;<br>&nbsp; &nbsp; R,G,B &nbsp; &nbsp; &nbsp; :byte;<br>&nbsp; &nbsp; iGray &nbsp; &nbsp; &nbsp; :integer;<br><br>&nbsp; &nbsp; sGrayPer &nbsp; &nbsp;:string; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br>&nbsp; &nbsp; iGrayLen &nbsp; &nbsp;:integer; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br>&nbsp; &nbsp; iIndex &nbsp; &nbsp; &nbsp;:integer; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; <br>begin<br>&nbsp; &nbsp; s:='';<br>&nbsp; &nbsp; sGrayPer:=AGray;<br>&nbsp; &nbsp; iGrayLen:=Length(sGrayPer);<br>&nbsp; &nbsp; for y:=0 to ABit.Height-1 do<br>&nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; for x:=0 to ABit.Width-1 do<br>&nbsp; &nbsp; &nbsp; &nbsp; begin<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; pColor:=ABit.Canvas.Pixels[x,y];<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; R:=pColor and $FF;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; G:=(pColor shr 8) and $FF;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; B:=(pColor shr 16) and $FF;<br><br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; iGray:=HiByte(R*77+G*151+B*28); &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; iIndex:=(iGray*iGrayLen div 255);<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if iIndex&lt;1 then iIndex:=1;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if iIndex&gt;iGrayLen then iIndex:=iGrayLen;<br>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; s:=s+sGrayPer[iIndex];<br>&nbsp; &nbsp; &nbsp; &nbsp; end;<br>&nbsp; &nbsp; &nbsp; &nbsp; s:=s+Crlf;<br>&nbsp; &nbsp; end;<br>&nbsp; &nbsp; result:=s;<br>end;<br>这是一个常用且效果比较好的灰度：“MNHQ$OC?7&gt;!":-';. ”

瀛︿範ING,鍔?姏楂樻墜

我们公司有，要不要联系我们公司