大家一起研究一下。我把身份证扫描出来后，能不能从该图片中把上面的文字信息读取出来？比如把姓名、性别、出生、住址等信息都读出来，显

xiaoqlj 2003-09-25 10:22:07
大家一起研究一下。我把身份证扫描出来后，能不能从该图片中把上面的文字信息读取出来？比如把姓名、性别、出生、住址等信息都读出来，显示到Edit中？请大家一起研究一下，有没有相关的控件，或者手段。
如果能解决这个问题，真是感激不尽，高分相送。
...全文
1553 32 打赏 收藏 转发到动态 举报
写回复
用AI写文章
32 条回复
切换为时间正序
请发表友善的回复…
发表回复
vzw113340 2010-06-04
  • 打赏
  • 举报
 回复
我不会~~~谁教我啊~~~谢谢咯~~
xzhifei 2003-09-25
  • 打赏
  • 举报
 回复
嘿嘿，超难
zleeway 2003-09-25
  • 打赏
  • 举报
 回复
我认为任何软件都达不到所需要的准确度的.
所以不如不要浪費时间去搞这些玩意.
留给科学家们去搞吧.
DelphiBoy2003 2003-09-25
  • 打赏
  • 举报
 回复
不会
myling 2003-09-25
  • 打赏
  • 举报
 回复
从该图片中把上面的文字信息读取出来……


身份证……


难、难、难！
IORILI 2003-09-25
  • 打赏
  • 举报
 回复
{上面的代码中多次出现如下代码：
if (Width mod 2)=1 then
begin
Position := Position + 1;
end;
这是因为每行的数据都要按字对齐，既每行的数据都要用偶数的字节记录。当每个像素的颜色信息用1字节(8位)或3字节(24位)记录且每行像素数为奇数时，要补齐一个字节。所以这里跳过一个字节。
后面代码中的
if (Width mod 2) = 1 then
begin
FillByte:=0;
Stream.Write(FillByte,1);
end;
也是基于同一道理。}
procedure TRASGraphic.SaveToStream(Stream: TStream);
var
Header: TRASHeader;
Row8: PByte;
Row24: PRGBTriple;
Row32: PRGBQuad;
FillByte: Byte;
Y: Integer;
I: Integer;
Pal: TMaxLogPalette;
R,G,B:array[0..255] of Byte;
begin
Header.Magic := $956AA659;
Header.Width := SwapLong(Width);
Header.Height := SwapLong(Height);
Header.RasType := SwapLong(RT_STANDARD);
if (PixelFormat = pf1bit) or (PixelFormat = pf4bit) then
PixelFormat:=pf8bit
else if (PixelFormat <> pf8bit) and (PixelFormat <> pf24bit) and (PixelFormat <> pf32bit) then
PixelFormat:=pf24bit;
case PixelFormat of
pf8bit:
begin
Header.Length := SwapLong(Height*(Width+(Width mod 2)));
Header.Depth := SwapLong(8);
Header.MapType := SwapLong(RMT_EQUAL_RGB);
Header.MapLength := SwapLong(3*256);
Stream.WriteBuffer(Header,SizeOf(Header));
GetPaletteEntries(Palette, 0, 256, Pal.palPalEntry);
for I := 0 to 255 do
begin
R[I]:=Pal.palPalEntry[I].peRed;
G[I]:=Pal.palPalEntry[I].peGreen;
B[I]:=Pal.palPalEntry[I].peBlue;
end;
//相关调色板操作的API请查询MSDN
Stream.WriteBuffer(R,256);
Stream.WriteBuffer(G,256);
Stream.WriteBuffer(B,256);
for Y := 0 to Height-1 do
begin
Row8 := ScanLine[Y];
Stream.WriteBuffer(Row8^,Width);
if (Width mod 2) = 1 then
begin
FillByte:=0;
Stream.Write(FillByte,1);
end;
end;
end;
pf32bit:
begin
Header.Length := SwapLong(Height*Width*4);
Header.Depth := SwapLong(32);
Header.MapType := SwapLong(RMT_NONE);
Header.MapLength := 0;
Stream.WriteBuffer(Header,SizeOf(Header));
for Y := 0 to Height-1 do
begin
Row32 := ScanLine[Y];
for I := 0 to Width-1 do
begin
Stream.WriteBuffer(Row32.rgbReserved,1);
Stream.WriteBuffer(Row32^,3);
Inc(Row32);
end;
end;
end;
else
begin
Header.Length := SwapLong(Height*Width*3);
Header.Depth := SwapLong(24);
Header.MapType := SwapLong(RMT_NONE);
Header.MapLength := 0;
Stream.WriteBuffer(Header,SizeOf(Header));
for Y := 0 to Height-1 do
begin
Row24 := ScanLine[Y];
Stream.WriteBuffer(Row24^,Width*3);
if (Width mod 2) = 1 then
begin
FillByte:=0;
Stream.Write(FillByte,1);
end;
end;
end;
end;
//SaveToStream基本上就是LoadFromStream的逆过程。
end;
initialization
TPicture.RegisterFileFormat('RAS', 'Sun RAS', TRASGraphic);
finalization
TPicture.UnregisterGraphicClass(TRASGraphic);
加上这几句代码，一个完整的图像解析组件就完成了。
IORILI 2003-09-25
  • 打赏
  • 举报
 回复
case Header.Depth of
1:PixelFormat := pf1Bit;
8:
begin
PixelFormat := pf8Bit;
case Header.MapType of
RMT_NONE:
begin
Pal.palVersion:=$300;
Pal.palNumEntries:=256;
for I := 0 to 255 do
begin
Pal.palPalEntry[I].peRed:=I;
Pal.palPalEntry[I].peGreen:=I;
Pal.palPalEntry[I].peBlue:=I;
Pal.palPalEntry[I].peFlags:=0;
end;
Palette := CreatePalette(PLogPalette(@Pal)^);
//当图像色深为8位，而又不存在调色板信息时，创建一个8位的灰度调色板
end;
RMT_EQUAL_RGB:
begin
if (Header.MapLength = 3*256) then
begin
Pal.palVersion:=$300;
Pal.palNumEntries:=256;
ReadBuffer(R,256);
ReadBuffer(G,256);
ReadBuffer(B,256);
for I := 0 to 255 do
begin
Pal.palPalEntry[I].peRed:=R[I];
Pal.palPalEntry[I].peGreen:=G[I];
Pal.palPalEntry[I].peBlue:=B[I];
Pal.palPalEntry[I].peFlags:=0;
end;
Palette := CreatePalette(PLogPalette(@Pal)^);
//读取文件中的调色板信息
//相关调色板操作的API请查询MSDN
end
else
RasError('调色板长度错误！');
MapReaded := True;
end;
RMT_RAW:
begin
RasError('不支持的文件格式！');
end;
end;
end;
24:PixelFormat := pf24Bit;
32:
begin
PixelFormat := pf32Bit;
//
end;
end;
if (not MapReaded) and (Header.MapLength>0) then
begin
Position := Position + Header.MapLength;
end;
//如果调色板长度不为0，而又未正确读取相关信息时，跳过这一段数据
case Header.Depth of
8:
begin
if Header.RasType = RT_BYTE_ENCODED then
begin
//ENCODE
//关于RLE压缩的编码解码请自行查阅资料
RasError('不支持压缩格式！');
end
else
begin
for Y := 0 to Height-1 do
begin
Row8:=ScanLine[Y];
ReadBuffer(Row8^,Width);
if (Width mod 2)=1 then
begin
Position := Position + 1;
end;
end;
end;
end;{end of 8Bit}
24:
begin
case Header.RasType of
RT_OLD,
RT_STANDARD:
begin
for Y := 0 to Height-1 do
begin
Row24:=ScanLine[Y];
ReadBuffer(Row24^,Width*3);
if (Width mod 2)=1 then
begin
Position := Position + 1;
end;
end;
end;
RT_BYTE_ENCODED:
begin
//ENCODE
//关于RLE压缩的编码解码请自行查阅资料
RasError('不支持压缩格式！');
end;
RT_FORMAT_RGB:
begin
for Y := 0 to Height-1 do
begin
Row24:=ScanLine[Y];
ReadBuffer(Row24^,Width*3);
for I := 0 to Width-1 do
begin
ColorByte := Row24^.rgbtRed;
Row24^.rgbtRed := Row24^.rgbtBlue;
Row24^.rgbtBlue := ColorByte;
Inc(Row24);
end;
//当为RT_FORMAT_RGB格式时，按RGB获取数据，这里需要交换R和B的值
if (Width mod 2)=1 then
begin
Position := Position + 1;
end;
end;
end;{end of RT_FORMAT_RGB}
else
RasError('不支持的文件格式！');
end;
end;{end of 24Bit}
32:
begin
case Header.RasType of
RT_OLD,
RT_STANDARD:
begin
for Y := 0 to Height-1 do
begin
Row32:=ScanLine[Y];
ReadBuffer(Row32^,Width*4);
for I := 0 to Width-1 do
begin
ColorByte := Row32^.rgbReserved;
Row32^.rgbReserved := Row32^.rgbBlue;
Row32^.rgbBlue := Row32^.rgbGreen;
Row32^.rgbGreen := Row32^.rgbRed;
Row32^.rgbRed := ColorByte;
Inc(Row32);
end;
//32位色时，需要调整读取后数据的顺序
end;
end;
RT_BYTE_ENCODED:
begin
//ENCODE
//关于RLE压缩的编码解码请自行查阅资料
RasError('不支持压缩格式！');
end;
RT_FORMAT_RGB:
begin
For Y := 0 to Height-1 do
begin
Row32:=ScanLine[Y];
ReadBuffer(Row32^,Width*4);
for I := 0 to Width-1 do
begin
ColorByte := Row32^.rgbBlue;
Row32^.rgbBlue := Row32^.rgbReserved;
Row32^.rgbReserved := ColorByte;
ColorByte := Row32^.rgbGreen;
Row32^.rgbGreen := Row32^.rgbRed;
Row32^.rgbRed := ColorByte;
Inc(Row32);
end;
//这里将顺序调整和R和B值的交换的代码进行了合并
end;
end;{end of RT_FORMAT_RGB}
else
RasError('不支持的文件格式！');
end;{end of 32Bit}
end;
else
begin
FreeImage;
RasError('不支持的文件格式！');
end;
end;
end
else
RasError('不支持的文件格式！');
end;{end with}
end;
IORILI 2003-09-25
  • 打赏
  • 举报
 回复
Delphi中如何编写图像解析组件

Delphi作为一个强大的RAD开发工具，在应用软件的开发方面一直有着它的独特优势。这种优势同样体现在图像相关软件的开发上。如果你要在桌面上放置一张图像，只需要简单的在桌面上放置一个Image控件，然后就可以通过其Image属性任意的加载BMP、WMF、EMF等格式的图像。如果还想增加对JPEG的支持，只需要添加一个JPEG单元即可。甚至在Image中加载一张JPEG后，Delphi会自动添加一个JPEG单元。一切做起来就是这么的简单。基本格式都已经封装在了VCL中，那么Delphi对类似JPEG这样图像格式的支持是如何实现的呢？

其实从TPicture中很容易看出其中的实现过程，它可以理解为所有图像对象的容器。

如JPEG.pas中有如下两句代码:

TPicture.RegisterFileFormat('jpeg', sJPEGImageFile, TJPEGImage);
TPicture.RegisterFileFormat('jpg', sJPEGImageFile, TJPEGImage);

(sJPEGImageFile = 'JPEG Image File'，见JConsts.pas)

什么意思呢？可以理解为将TJPEGImage注册为jpeg、jpg两种后缀图像文件的类。

其实质就是将后缀，图像描述，具体图像解析类等信息保存到了FileFormats。

具体见如下代码：

var FileFormats: TFileFormatsList = nil;

class procedure TPicture.RegisterFileFormat(const AExtension,
ADescription: string; AGraphicClass: TGraphicClass);
begin
GetFileFormats.Add(AExtension, ADescription, 0, AGraphicClass);
end;

function GetFileFormats: TFileFormatsList;
begin
if FileFormats = nil then FileFormats := TFileFormatsList.Create;
Result := FileFormats;
end;

而TPicture默认支持四种图像格式是因为TFileFormatsList的构造函数中已进行了添加。

constructor TFileFormatsList.Create;
begin
inherited Create;
Add('wmf', SVMetafiles, 0, TMetafile);
Add('emf', SVEnhMetafiles, 0, TMetafile);
Add('ico', SVIcons, 0, TIcon);
Add('bmp', SVBitmaps, 0, TBitmap);
end;

也正是通过FileFormats中保存的信息，控件OpenPictureDialog中自动生成了所支持文件类型的列表。

那么该如何编写这些图像解析类呢？

TGraphic是TBitmap、TIcon、TMetafile对象的基类。同样这里的图像解析类也应该从TGraphic派生，利用很多VCL中已经封装了的代码，可以省去很多工作。

实现基本功能一般只需要重载三个成员：

TXXXImage = class(TGraphic)
protected
procedure Draw(ACanvas: TCanvas; const Rect: TRect); override;//绘制图像到画布
public
procedure LoadFromStream(Stream: TStream); override; //从流中获取图像数据
procedure SaveToStream(Stream: TStream); override; //将图像数据写入流中
end;

因为TGraphic.LoadFromFileTGraphic.SaveToFile中已经实现了由文件名读取数据到流的将流中的数据写入到对应文件的功能，无特殊需要这里可以不用重载。而成员Draw自然就是用于实现将图像绘制到画布，由于TCanvas对GDI的完善封装，这里不需要考虑如何将图像利用GDI绘制到窗体的这个过程。剩下的就只是编写图像解析部分的代码啦。

下面就以RAS格式为例做进一步的探讨。

这里没有用TGraphic作为基类，而是用了TBitmap，这样进一步把Draw的实现过程都省了，只需要在LoadFromStream中实现转化为位图的过程就可以了。

type

TRASGraphic = class(TBitmap)
public
procedure LoadFromStream(Stream: TStream); override;
procedure SaveToStream(Stream: TStream); override;
end;

//定义描述RAS文件头的记录类型
TRASHeader = packed record
Magic, //标记
Width, //宽
Height, //高
Depth, //色深
Length, //图像数据长度，可能会等于0
RasType, //格式类型
MapType, //调色板类型
MapLength: Cardinal; //调色板数据长度
end;

//定义一个用来描述RAS文件头的记录类型是非常必要的

const

//定义代表RAS所有类型的常量
RT_OLD = 0;
RT_STANDARD = 1;
RT_BYTE_ENCODED = 2;
RT_FORMAT_RGB = 3;
RT_FORMAT_TIFF = 4;
RT_FORMAT_IFF = 5;
RT_EXPERIMENTAL = $FFFF;

//定义代表调色板类型的常量
RMT_NONE = 0;//无调色板数据
RMT_EQUAL_RGB = 1;
RMT_RAW = 2;

{如果RAS的格式为RT_OLD，数据长度可能为0}


function SwapLong(const Value: Cardinal): Cardinal;
asm
BSWAP EAX//调用字节交换指令
end;

//抛出异常，参数为具体的异常信息
procedure RasError(const ErrorString: String);
begin
raise EInvalidGraphic.Create(ErrorString);
end;

{下面是实现部分的代码。}

procedure TRASGraphic.LoadFromStream(Stream: TStream);
var
Header: TRASHeader;
Row8: PByte;
Row24: PRGBTriple;
Row32: PRGBQuad;
PMap: PByte;
Y: Integer;
I: Integer;
MapReaded: Boolean;
Pal: TMaxLogPalette;
R,G,B:array[0..255] of Byte;
ColorByte: Byte;
begin
with Stream do
begin
ReadBuffer(Header, SizeOf(Header)); //将文件头数据读取到记录Header中
with Header do
begin
Width := SwapLong(Width);
Height := SwapLong(Height);
Depth := SwapLong(Depth);
Length := SwapLong(Length);
RASType := SwapLong(RASType);
MapType := SwapLong(MapType);
MapLength := SwapLong(MapLength);
end;
//由于读取数据的顺序问题，这里需要调用上面的SwapLong改变顺序。
if (Header.Magic = $956AA659) and
(Header.Width<>0) and (Header.Height<>0) and
(Header.Depth in [1,8,24,32]) and (Header.RasType in [RT_OLD,RT_STANDARD,RT_BYTE_ENCODED,RT_FORMAT_RGB]) then
begin
Width := Header.Width;
Height := Header.Height;
MapReaded := False;
FSU 2003-09-25
  • 打赏
  • 举报
 回复
现在早已有现成的扫描技术（装个扫描软件），我用过，只不过识别率在90％左右，在自己编写代码倒不会！关注！
szchi 2003-09-25
  • 打赏
  • 举报
 回复
算了吧。身份证的复印效果都不好，识别准确率是个大难题，对于身份证识别来说，准确率可是个关键问题。我的身份证因为进了水，肉眼都看不清了，看你怎么机器识别？歇歇吧，还是等着身份证改成IC卡吧。
soaringsouth 2003-09-25
  • 打赏
  • 举报
 回复
那就是图形识别系统了。学！！！！
duxin 2003-09-25
  • 打赏
  • 举报
 回复
虽然 各个图片格式不一样

但是都是以二进制存储 OCR 就是找出与你想要的特定字符相近的 存储段

不是很容易实现的
cdsun 2003-09-25
  • 打赏
  • 举报
 回复
挺实用的，不会，帮你顶
猛禽 2003-09-25
  • 打赏
  • 举报
 回复
这就是OCR嘛
猛禽 2003-09-25
  • 打赏
  • 举报
 回复
这就是OCR嘛
firetoucher 2003-09-25
  • 打赏
  • 举报
 回复
控件？不知道，不过你可以用图象识别的算法自己写，由于身份证上的信息位置一般很固定，所以工作量还小了一点。你可以上北邮的人工智能研究所的网站，那里有一些资料，可以看看先。
nyf1220 2003-09-25
  • 打赏
  • 举报
 回复
挺实用的，不会，帮你顶
FrameSniper 2003-09-25
  • 打赏
  • 举报
 回复
偶正在看这个，最近比较忙，不好意思！
wzds2000 2003-09-25
  • 打赏
  • 举报
 回复
存成图片也许更方便一些。。。
顶。。。
baisha178 2003-09-25
  • 打赏
  • 举报
 回复
这个虽然很早就有人研究，但也是近年来的新技术成果，不容易！下面是我搜索到的有关OCR的资料：
http://www.cybersky.com.cn/skill/ocr.htm
身份证既然格式固定，而且扫描后只有黑白二色，不妨先将扫描后的图片统一处理成同样大小的规格，然后按照点阵读取上面的资料，再COPY这些点阵到WINDOWS的TRUETYPE造字程序中（或者copy到一个专用的剪切板里），最后再放到EDIT里~~~~~
不懂真正的OCR技术怎么搞，你的这么样可以，当然做起来可没这么简单！
加载更多回复（12）
OpenGL专题课程-模型与骨骼动画精讲
课程简介：本课程详细讲解基于Assimp C++库的模型读取模块，并且做了关于动画理论、关键帧插值、骨骼动画矩阵原理、骨骼动画读取与播放等知识的详细讲解，对于游戏行业或者三维可视化从业人员会有比较大的帮助。目前很多公司已经开始构建自己的底层图形引擎，其中动画就是重要的一个版块，本课程可以让学员从原理层面以及底层代码层面了解FBX、OBJ模型的读取本质，并且梳理程序架构，编写骨骼动画。2 课程解决优势：很多同学学习骨骼动画苦于无法找到详细的资料，其中卡主的问题点也比比皆是，比如FBX内嵌材质的读取，骨骼动画各类矩阵的应用，理论结合模型读取库读出来的数据如何一一对应等。我们的课程可以带领大家从原理+实践的角度进行学习，每一个知识点都会：a 推导基础公式及原理 b 一行一行进行代码实践从而能够保证每位同学都学有所得，能够看得懂，学得会，用得上，并且能够培养自主研究的能力。3 学习课程所得：学习本课程完毕之后，学员可以全方位的完全了解基于Assimp库的模型读取结构，了解每一个变量背后的含义，并且课程拥有随堂附赠的源代码，保证同学可以随时根据老师的代码纠正自己的错误。跟随课程一行一行写完代码的同学，可以获得自己的模型读取代码库，并且深度理解骨骼动画的原理与模型读取原理 本课程含有全源代码
js如何实现扫描身份证识别_通过node.js来调取baidu-aip-SDK实现身份证识别的功能...
这篇文章主要介绍了关于通过node.js来调取baidu-aip-SDK实现身份证识别的功能，有着一定的参考价值，现在分享给大家，有需要的朋友可以参考一下最近项目中客户需要实现身份证识别功能，合理计划了之后决定使用百度ai的身份证识别。身份证识别是文字识别的一种，类似的功能有很多比如驾驶证识别等等，原理都是相同的。对于前端初学者来说，如果要实现这种功能靠页面，js是实现不了的，可以确定地说就是让后...
JAVA识别身份证号码，H5识别身份证号码，tesseract-ocr识别（一）
背景介绍：这段时间正在做一个流动人口管理项目，其中要求使用H5网页拍照识别身份证，当时就蒙圈了，这不是APP的功能吗？产品为了快速迭代一直把APP的功能往H5上堆砌，没办法只有想办法解决了。 查了一些资料，发现除了收费的OCR（百度、云脉等等）比较好的并支持中文的就只有tesseract了，当然我收费的OCR我也没测试。 暂时决定使用tesseract了。思路介绍我的思路是这样的： 由H5调用
什么是身份证ocr识别？身份证ocr识别接口API能干什么？
如今智能终端和各种APP中具备移动OCR文字识别、身份证识别等功能已经成为当下社会发展的必备了，对于各类app来说，只要将ocr身份证识别数据接口集成到app中，即可通过手机摄像头扫描识别身份证信息。将这些流程拼接在一起，就构成了完整的 OCR 身份认证服务，如果还有特殊需要就再加上人脸识别比对。而身份证ocr识别则是通过手机摄像头来拍摄身份证照片，再通过 OCR 技术来提取身份证表面上印刷的文字信息，最终再通过中心化的政府数据库来验证这些信息是否正确，若成功则留存用户的身份证影印件以作后续审计使用。...
一文读懂身份证ocr识别
如今智能终端和各种APP中具备移动OCR文字识别、身份证识别等功能已经成为当下社会发展的必备了，对于各类app来说，只要将ocr身份证识别数据接口集成到app中，即可通过手机摄像头扫描识别身份证信息。将这些流程拼接在一起，就构成了完整的OCR身份认证服务，如果还有特殊需要就再加上人脸识别比对。而身份证ocr识别则是通过手机摄像头来拍摄身份证照片，再通过OCR技术来提取身份证表面上印刷的文字信息，最终再通过中心化的政府数据库来验证这些信息是否正确，若成功则留存用户的身份证影印件以作后续审计使用。...
Delphi

5,388

社区成员

262,730

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章