unit1.pas

来自「识别动网asp论坛的验证码 程序语言：delphi 7.0 作者：n」· PAS 代码 · 共 65 行

{
NdOcr.pas 入口
comm.pas 数据定义
func.pas 函数定义
kind1.pas 具体识别过程
}

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, NdOcr;

type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Edit1: TEdit;
    od: TOpenDialog;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;  
  code: Array[0..9] of char;
  pCode: pchar;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('img\1.bmp');
  pCode := code;
  loadLib('1','code.lib');
  pGetCodeFromFile('img\1.bmp','','1','dv',pCode,Length(code),'');
  Edit1.Text := code;  
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  if od.Execute() then
  begin
    Image1.Picture.LoadFromFile(od.FileName);
    pGetCodeFromFile(pchar(od.FileName),'','1','dv',pCode,Length(code),'');
    Edit1.Text := code;
  end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  freeLib();
end;

end.