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和3个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; 
注意:
① 、在程序的uses中必须先投入ActiveX,Clipbrd单元,在这之中Clipbrd不参与会招致 clipboard未定义
2、img_validatecode 为网页验证码图片的id号,
三 、上面代码为delphi WebBrowser中的通用代码,使用时只需修改id号和uses中
添加单元即可使用

 步骤三:image图片的灰度处理   首先大家需求通晓图片的灰度处理是将一部分绚丽多姿的验证码图片变成橄榄棕图片方便图片的接续处理,这里有二种方法对图纸展开海水绿处理。
 方法一:求出奇骏GB那四个像素点的平均值,然后把平均值分给多少个像素点;
 方法二:求每种像素点TucsonGB五个轻重的最大值,然后把最大值分给三个像素点;
 方法三:依据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; //设为2四个人之彩色位图,PixelFormat 为位图的内部存款和储蓄器格式和颜料深浅,总共九个值

  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; //设为23人之彩色位图,PixelFormat
为位图的内存格式和颜料深浅,总共几个值

  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.299纳瓦拉+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; //设为二十几个人之彩色位图,PixelFormat
为位图的内部存款和储蓄器格式和颜色深浅,总共8个值

  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; //设为2三人之彩色位图,PixelFormat
为位图的内部存款和储蓄器格式和颜色深浅,总共几个值

  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
从效益图能够看到,图像二值化正是设定3个阈值,然后判定每点的福特ExplorerGB值大于如故小于阈值,大于则为255即天灰,小于阈值则为0即高粱红。

 

qq:673890989  
 欢迎有趣味的同伙调换

 

经验