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

时间:2022-09-24 16:07:47
步骤一:获取网页中验证码图片的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;
原图:    delphi WebBrowser控件上网页验证码图片识别教程(一)
处理后:delphi WebBrowser控件上网页验证码图片识别教程(一)

方法二:
代码:

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;
原图:    delphi WebBrowser控件上网页验证码图片识别教程(一)  
处理后:delphi WebBrowser控件上网页验证码图片识别教程(一) 
 

 方法三:运用公式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;
原图:   delphi WebBrowser控件上网页验证码图片识别教程(一)
处理后:delphi WebBrowser控件上网页验证码图片识别教程(一)

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

原图:   delphi WebBrowser控件上网页验证码图片识别教程(一)
处理后:delphi WebBrowser控件上网页验证码图片识别教程(一)
从效果图可以看出,图像二值化就是设定一个阈值,然后判定每点的RGB值大于还是小于阈值,大于则为255即黑色,小于阈值则为0即白色。

 
qq:673890989    欢迎有兴趣的伙伴交流
 
经验
 

delphi WebBrowser控件上网页验证码图片识别教程(一)的更多相关文章

  1. Delphi WebBrowser控件的使用(大全 good)

    Delphi WebBrowser控件的使用 WebBrowser控件属性:1.Application      如果该对象有效,则返回掌管WebBrowser控件的应用程序实现的自动化对象(IDis ...

  2. <总结>delphi WebBrowser控件的使用中出现的bug

    Delphi WebBrowser控件的使用中出现的bug:  1.WebBrowser.Visible=false:Visible属性不能使WebBrowser控件不可见,暂时用 WebBrowse ...

  3. Webbrowser控件判断网页加载完毕的简单方法 (转)

    摘自:http://blog.csdn.net/cometnet/article/details/5261192 一般情况下,当ReadyState属性变成READYSTATE_COMPLETE时,W ...

  4. Webbrowser控件判断网页加载完毕的简单方法

    一般情况下,当ReadyState属性变成READYSTATE_COMPLETE时,Webbrowser控件会通过触发DocumentCompleted事件来指示网页加载完毕.但当加载的网页包含fra ...

  5. delphi image控件上画矩形的问题

    画的时候发现鼠标点的位置和矩形的位置有偏移 后来查看发现是由于image控件时stretch属性设置为true,这样在画的时候是缩放了的 也就是画到image显示的图片上去了 所以如果要画矩形,要按照 ...

  6. jquery如何获取input(file)控件上传的图片名称,即"11111.jpg"

    html代码:<input name=file" type="file" id="file"/> Jquery代码:var file;$( ...

  7. 通过webbrowser控件获取验证码

    1.首先介绍下基本控件(拖控件大家都会,我就不一一介绍了),看下图: 2.添加MSHTML引用,步骤如下: 解决方案—右键“引用”—​添加引用—在.NET下找到Microsoft.mshtml组件—点 ...

  8. VC-基础-WebBrowser控件中弹出新网页窗口

    用webbrowser控件浏览网页时,常弹出新的网页窗口,若不做任何控制的话,会在默认浏览器(一般是IE)中打开,这样就在新的窗口打开了,原程序就很难控制了,且存在webbrowser控件和IE的se ...

  9. C&num;通过webbrowser控件与javascript交互

    1.C#里调用控件里面网页的js函数     //调用JavaScript的messageBox方法,并传入参数     object[] objects = new object[1];     o ...

随机推荐

  1. mysql connection refused

    mysql数据库认证的时候和别的服务器不一样,即使mysqld数据库服务器没有启动,使用mysql这种客户端程序去连接,也要先输入密码,从而使人有一种错觉,以会服务器已经正常启动了.是不是密码或是主机 ...

  2. Java 基本语法(1)

    关键字 关键字的定义和特点 定义:被Java语言赋予了特殊含义,用做专门用途的字符串(单词) 特点:关键字中所有字母都为小写 Java保留字:现有Java版本尚未使用,但以后版本可能会作为关键字使用. ...

  3. LeetCode4 Median of Two Sorted Arrays

    题目: There are two sorted arrays nums1 and nums2 of size m and n respectively. Find the median of the ...

  4. static函数与普通函数

    转自http://blog.163.com/sunshine_linting/blog/static/44893323201191294825184/ 全局变量(外部变量)的说明之前再冠以static ...

  5. 《第一行代码》学习笔记1-Android系统架构

    1. 2003.10,Andy Rubin创办Android公司.2005.8,Google收购之,并于2008年推出Android系统第一个版本. 2. ①Linux Kernel:基于Linux ...

  6. Continuity of arithmetic operations

    Arithmetic operations taught in elementary schools are continuous in the high level topological poin ...

  7. &lbrack;转帖&rsqb;Go中的下划线

    Go中的下划线 https://blog.csdn.net/wanglei9876/article/details/50475864 下划线的作用: 在import 时 是仅引入 init 函数 在正 ...

  8. Scala编程基础

    Scala与Java的关系... 4 安装Scala. 4 Scala解释器的使用... 4 声明变量... 5 数据类型与操作符... 5 函数调用与apply()函数... 5 if表达式... ...

  9. day21 二十一、垃圾回收机制、re正则

    一.内存管理 1.垃圾回收机制:不能被程序访问到的数据称之为垃圾 2.引用计数:引用计数是用来记录值的内存地址被记录的次数 每一次对值地址的引用都可以使该值的引用计数 +1 每一次对值地址的释放都可以 ...

  10. Ios中checkBox

    //使用tableview来进行布局checkBox.便于全选,全不选//radiobutton 适合用RadioButton #import <UIKit/UIKit.h> @inter ...