www.pudn.com > try2LPR-1.0.rar > LPR_h.pas

(* 
* Copyright (c) 2003, try2it.com 
* All rights reserved. 
* 
* This program is free software; you can redistribute it and/or modify it under 
* the terms of the GNU General Public License as published by the Free Software 
* Foundation; either version 2 of the License, or (at your option) any later 
* version. 
*  
* This program is distributed in the hope that it will be useful, but WITHOUT 
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS 
* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more 
* details. 
*  
* You should have received a copy of the GNU General Public License along with 
* this program; if not, write to the Free Software Foundation, Inc., 59 Temple 
* Place - Suite 330, Boston, MA 02111-1307, USA. 
 
* 文件名称：LPR_h.pas 
* 文件标识：LPR-02-02 
* 摘要：牌照识别车牌识别调用头文件 
 
* 当前版本：1.0 
* 作者：王正平 
* 完成日期：2003年09月16日 
*) 
 
unit LPR_h; 
 
{$X+}{$Z2}{$A4} 
 
interface 
  uses windows; 
 
{$IFNDEF _LPR_H_PAS_} 
{$DEFINE _LPR_H_PAS_} 
 
  const LPRDLL = 'LPR.dll'; 
 
  // 车牌颜色索引 
  type TColorID = (LP_BLACK=0, LP_BLUE, LP_YELLOW, LP_WHITE); 
 
  // 车牌位置 
  type TMyRect = record 
    left: Integer; 
    right: Integer; 
    top: Integer; 
    bottom: Integer; 
  end; 
 
  // 返回结果结构 
  type TLPInfo = record 
    LPNum: array[0..15] of char;        // 车牌号码 
    LPColor: TColorID;                  // 车牌颜色 
    LPRect: TMyRect;                    // 车牌在图像中的位置 
  end; 
  type PLPInfo = ^TLPInfo; 
 
  // 初始化 
  function InitLPRDll(hwnd: HWND; var version: WORD): Integer;stdcall;external LPRDLL; 
  // 识别主函数 
  function GetLPR(var LPInfo: TLPInfo; pBuf: PChar): Integer;stdcall;external LPRDLL; 
 
{$ENDIF}(* _LPR_H_PAS_ *) 
implementation 
 
end.