• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号
登陆 注册

delphiWebBrowser控件上网页验证码图片识别教程(一)

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
步骤一：获取网页中验证码图片的url地址
在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取
程序如下：
procedure TForm1.BitBtn1Click(Sender: TObject);
var
  I:Integer;
begin
  for I:=0 to WebBrowser1.OleObject.document.images.length-1 do
    Memo1.Lines.Add(WebBrowser1.OleObject.document.images.item(i).href);
end;

 步骤二：下载网页中验证码图片到image中 
在delphi中加入一个BitBtn和一个image以及WebBrowser控件，image用来显示下载的图片
代码：
procedure TForm1.BitBtn5Click(Sender: TObject);
var
  i:Integer;
  rang:IHTMLControlRange;
  s:string;
begin
try
  s := (IHTMLDocument2(WebBrowser.Document).images.item('img_validatecode',EmptyParam) as IHTMLElement).getAttribute('src',0);
  rang:=((IHTMLDocument2(WebBrowser.Document).body as HTMLBody).createControlRange)as IHTMLControlRange;
  rang.add(IHTMLDocument2(WebBrowser.Document).images.item('img_validatecode',EmptyParam)as IHTMLControlElement);
  rang.execCommand('Copy',False,0);
  Image1.Picture.Assign(clipboard);//若为加入Clipbrd单元，编译时会提示clipboard为定义
except
end;
end; 
注意：
1、在程序的uses中必须先加入ActiveX，Clipbrd单元，其中Clipbrd不加入会造成 clipboard未定义
2、img_validatecode 为网页验证码图片的id号，
3、上面代码为delphi WebBrowser中的通用代码，使用时只需修改id号和uses中 添加单元即可使用

 步骤三：image图片的灰度处理 
 首先我们需要知道图片的灰度处理是将一些彩色的验证码图片变成灰色图片方便图片的后续处理，这里有三种方法对图片进行灰色处理。
 方法一：求出RGB这三个像素点的平均值，然后把平均值分给三个像素点；
 方法二：求每个像素点RGB三个分量的最大值，然后把最大值分给三个像素点；
 方法三：根据YUV的颜色空间，求出Y的值；
 方法一：
 代码： 
 procedure TForm1.BitBtn4Click(Sender: TObject);
var
  p: pbyteArray;  //位指针
  x,y: integer;//x宽，y高
  Bmp: TBitmap;//位图组件（TBitMap）
  Gray: integer;//灰度值
begin
  Bmp := TBitmap.Create;//建立一个TBitmap
  Bmp.Assign(Form1.Image1.Picture.Bitmap);//将image图片转为位图模式
  Bmp.PixelFormat := pf24bit; //设为24位之彩色位图，PixelFormat 为位图的内存格式和颜色深度，总共9个值
  for y := 0 to Bmp.Height-1 do
  begin
    p :=Bmp.ScanLine[y];//ScanLine方法用于获取像素颜色值
    for x:=0 to Bmp.Width-1 do
    begin
      Gray:=(p[3*x+2]+p[3*x+1]+p[3*x]) div 3;//3处像素点的平均值
      p[3*x+2]:=byte(Gray);
      p[3*x+1]:=byte(Gray);
      p[3*x]:=byte(Gray);
    end;
  end;
  image4.Picture.Bitmap := Bmp;
  Bmp.Free;//释放TBitmap
end;
原图：    
处理后： 

方法二：
代码：
procedure TForm1.BitBtn4Click(Sender: TObject);
var
  p: pbyteArray;  //位指针
  x,y: integer;//x宽，y高
  Bmp: TBitmap;//位图组件（TBitMap）
  Gray: integer;//灰度值
begin
  Bmp := TBitmap.Create;//建立一个TBitmap
  Bmp.Assign(Form1.Image1.Picture.Bitmap);//将image图片转为位图模式
  Bmp.PixelFormat := pf24bit; //设为24位之彩色位图，PixelFormat 为位图的内存格式和颜色深度，总共9个值
  for y := 0 to Bmp.Height-1 do
  begin
    p :=Bmp.ScanLine[y];//ScanLine方法用于获取像素颜色值
    for x:=0 to Bmp.Width-1 do
    begin
      Gray:=Max(p[3*x+2],p[3*x+1]);  //使用max函数旭定义Math单元
      Gray:=Max(Gray,p[3*x]);
      p[3*x+2]:=byte(Gray);
      p[3*x+1]:=byte(Gray);
      p[3*x]:=byte(Gray);
    end;
  end;
  image4.Picture.Bitmap := Bmp;
  Bmp.Free;//释放TBitmap
end;
原图：      
处理后： 
 
 方法三：运用公式Y=0.299R+0.857G+0.113B
procedure TForm1.BitBtn4Click(Sender: TObject);
var
  p: pbyteArray;  //位指针
  x,y: integer;//x宽，y高
  Bmp: TBitmap;//位图组件（TBitMap）
  Gray: integer;//灰度值
begin
  Bmp := TBitmap.Create;//建立一个TBitmap
  Bmp.Assign(Form1.Image1.Picture.Bitmap);//将image图片转为位图模式
  Bmp.PixelFormat := pf24bit; //设为24位之彩色位图，PixelFormat 为位图的内存格式和颜色深度，总共9个值
  for y := 0 to Bmp.Height-1 do
  begin
    p :=Bmp.ScanLine[y];//ScanLine方法用于获取像素颜色值
    for x:=0 to Bmp.Width-1 do
    begin
      Gray:=round(p[3*x+2]*0.3+p[3*x+1]*0.59+p[3*x]*0.11);//公式Y=0.299R+0.857G+0.113B
      p[3*x+2]:=byte(Gray);
      p[3*x+1]:=byte(Gray);
      p[3*x]:=byte(Gray);
    end;
  end;
  image4.Picture.Bitmap := Bmp;
  Bmp.Free;//释放TBitmap
end;
原图：   
处理后：  

步骤四：image图片的二值化
 
      在对图像二值化之前需要对图像进行灰度处理，二值化原理：通过设定阈值（threshold），把灰度图像变成仅用0或1来表示图像目标和背景，其中图像目标大多为数字，字母，设为1,；背景设为0。在位图中0对应0,1对应255，二值化方法很多，但是重点是在于对阈值的选择。
     阈值的选择主要分为两类：全局阈值和局部阈值。
     全局阈值是对整个图像采用一个阈值进行划分，例如固定阈值法二值化、判断分析化二值化等；
     局部阈值是将图像分为几块，每个子块采用不同的阈值；（具体局部阈值法可以自行百度，这里不必过多解释）
代码：
procedure TForm1.BitBtn4Click(Sender: TObject);
var
  p: pbyteArray;  //位指针
  x,y: integer;//x宽，y高
  Bmp: TBitmap;//位图组件（TBitMap）
  Gray: integer;//灰度值
begin
  Bmp := TBitmap.Create;//建立一个TBitmap
  Bmp.Assign(Form1.Image1.Picture.Bitmap);//将image图片转为位图模式
  Bmp.PixelFormat := pf24bit; //设为24位之彩色位图，PixelFormat 为位图的内存格式和颜色深度，总共9个值
  for y := 0 to Bmp.Height-1 do
  begin
    p :=Bmp.ScanLine[y];//ScanLine方法用于获取像素颜色值
    for x:=0 to Bmp.Width-1 do
    begin
      Gray:=round(p[3*x+2]*0.3+p[3*x+1]*0.59+p[3*x]*0.11);//公式Y=0.299R+0.857G+0.113B
      //图像二值化
      if Gray > 120 then//阈值为120
      begin
        p[3*x+2]:=255;
        p[3*x+1]:=255;
        p[3*x]:=255;
      end
      else
      begin
        p[3*x+2]:=0;
        p[3*x+1]:=0;
        p[3*x]:=0;
      end; 
//分割线------------------------------------- 
    end;
  end;
  image4.Picture.Bitmap := Bmp;
  Bmp.Free;//释放TBitmap
end;
原图：   
处理后：
从效果图可以看出，图像二值化就是设定一个阈值，然后判定每点的RGB值大于还是小于阈值，大于则为255即黑色，小于阈值则为0即白色。
 
qq：673890989    欢迎有兴趣的伙伴交流
 
经验
 

鲜花
握手
雷人
路过
鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
More+
上一篇：
Delphi的Win32的API调用简单介绍发布时间：2022-07-18
下一篇：
如何安装unidac6.2.8到delphi7发布时间：2022-07-18
热门推荐
More+
热门话题
More+
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服（服务时间 9:00～18:00）

在线QQ客服
地址：深圳市南山区西丽大学城创智工业园
电邮：jeky_zhao#qq.com
移动电话：139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap