步骤一:获取网页中验证码图片的url地址
在delphi中加入一个BitBtn和一个memo以及WebBrowser控件实现网页中验证码图片的url地址的获取
程序如下:
procedure TForm1.BitBtn1Click(Sender: TObject);
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中
在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);