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

步骤一样:获取网页中验证码图片的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;
原图:    美学原理 1
处理后:美学原理 2 

方法二:
代码:

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;
原图:    美学原理 3  
处理后:美学原理 4 
 

 方法三:**应用公式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;
原图:   美学原理 5
处理后:美学原理 6  

步骤四: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;

原图:
  美学原理 7
处理后:美学原理 8
从效果图可以看看,图像二值化就是设定一个阈值,然后判定每点的RGB值美学原理大于还是小于阈值,大于则也255即便黑色,小于阈值则也0就算白。

 

qq:673890989  
 欢迎有趣味的伴儿交流

 

经验