光标阅读机OMRAPI
{
功能描述:T40S
作者:天地狂虫
日期:2007年11月23日
}
unit OMRAPI;
interface
uses SysUtils,Windows;
type
//光标阅读机通讯端口类型
TOmrPortType=(OPTCOM,OPTUSB);
//光标阅读机接口函数声明
TOmrOpenUSB=function():Integer;stdcall;
TOmrOpenComm=function(Port:Integer):Integer;stdcall;
TOmrClose=function():Integer;stdcall;
TOmrS=function(buf:pchar):Integer;stdcall;
TOmrG=function(buf:PChar):Integer;stdcall;
TOmrGetError=function(buf:PChar):Integer;stdcall;
TOmrGetErrorStr=function(buf:PChar):Integer;stdcall;
TOmrLoadFormtFile=function(buf:pchar):Integer;stdcall;
//光标阅读机功能封装类
TOmrReader=class
private
{$IFNDEF simulate}
fOmrDllHandle:HMODULE;
fErrorBuffer:array[0..1] of Char;
fDataBuffer:array[0..256] of Char;
fPortType:TOmrPortType;//端口类型
fOmrOpenUSB:TOmrOpenUSB;
fOmrOpenCOM:TOmrOpenComm;
fOmrClose:TOmrClose;
fOmrS:TOmrS;
fOmrG:TOmrG;
fOmrGetError:TOmrGetError;
fOmrGetErrorStr:TOmrGetErrorStr;
fOmrLoadFormatFile:TOmrLoadFormtFile;
{$ENDIF}
//
fConnected:Boolean;
fDataFormated:Boolean;
private
{$IFNDEF simulate}
procedure OmrGetError;
{$ENDIF}
function Get_ErrorCode:Byte;
function Get_ErrorMessage:string;
function Get_Data:string;
public
constructor Create(PortType:TOmrPortType);
destructor Destroy;override;
public
function Open(PortNumber:Byte):Boolean;
procedure Close;
function LoadFormatFile(FilePath:string):Boolean;
function PassOneCard:Boolean;
function ReadOneCard:Boolean;
public
property Connected:Boolean read fConnected;
property DataFormated:Boolean read fDataFormated;
property ErrorCode:Byte read Get_ErrorCode;
property ErrorMessage:string read Get_ErrorMessage;
property Data:string read Get_Data;
end;
implementation
{ TOmrReader }
procedure TOmrReader.Close;
begin
{$IFNDEF simulate}
fOmrClose;
{$ENDIF}
fConnected:=False;
end;
constructor TOmrReader.Create(PortType: TOmrPortType);
{$IFNDEF simulate}
const
COMDLL='OmrComm.dll';
USBDLL='OmrUSB.dll';
var
LoadFailed:Boolean;
{$ENDIF}
begin
{$IFNDEF simulate}
fPortType:=PortType;
case PortType of
OPTUSB:
fOmrDllHandle:=LoadLibrary(USBDLL);
else
fOmrDllHandle:=LoadLibrary(COMDLL);
end;
if fOmrDllHandle<=0 then raise(Exception.Create('光标阅读机驱动初始化失败'));
//
LoadFailed:=False;
case fPortType of
OPTUSB:
begin
fOmrOpenUSB:=GetProcAddress(fOmrDllHandle,'OmrInit');
if Addr(fOmrOpenUSB)=nil then LoadFailed:=True;
end;
OPTCOM:
begin
fOmrOpenCOM:=GetProcAddress(fOmrDllHandle,'OmrInit');
if Addr(fOmrOpenCOM)=nil then LoadFailed:=True;
end;
else raise(Exception.Create('光标阅读机驱动初始化失败'));
end;
fOmrClose:=GetProcAddress(fOmrDllHandle,'OmrClose');
if Addr(fOmrClose)=nil then LoadFailed:=True;
fOmrS:=GetProcAddress(fOmrDllHandle,'OmrS');
if Addr(fOmrS)=nil then LoadFailed:=True;
fOmrG:=GetProcAddress(fOmrDllHandle,'OmrG');
if Addr(fOmrG)=nil then LoadFailed:=True;
fOmrGetError:=GetProcAddress(fOmrDllHandle,'OmrGetError');
if Addr(fOmrGetError)=nil then LoadFailed:=True;
fOmrGetErrorStr:=GetProcAddress(fOmrDllHandle,'OmrGetErrorStr');
if Addr(fOmrGetErrorStr)=nil then LoadFailed:=True;
fOmrLoadFormatFile:=GetProcAddress(fOmrDllHandle,'DownLoadFormatFile');
if Addr(fOmrLoadFormatFile)=nil then LoadFailed:=True;
//
if LoadFailed then raise(Exception.Create('光标阅读机驱动初始化失败'));
{$ENDIF}
//
fConnected:=False;
fDataFormated:=False;
end;
destructor TOmrReader.Destroy;
begin
{$IFNDEF simulate}
FreeLibrary(fOmrDllHandle);
{$ENDIF}
inherited;
end;
function TOmrReader.Get_Data: string;
begin
{$IFNDEF simulate}
Result:=string(fDataBuffer);
{$ELSE}
Result:='';
{$ENDIF}
end;
function TOmrReader.Get_ErrorCode: Byte;
begin
{$IFNDEF simulate}
Result:=StrToInt(fErrorBuffer);
{$ELSE}
Result:=0;
{$ENDIF}
end;
function TOmrReader.Get_ErrorMessage: string;
begin
case ErrorCode of
0:Result:='无法通信(未联机)';
1:Result:='没有加载数据格式';
2:Result:='A传感器数据溢出';
3:Result:='双张';
4:Result:='未检测到A传感器格式标志';
5:Result:='未检测到A传感器检测点线';
6:Result:='错误的命令参数';
7:Result:='A传感器卡纸(同步信号出错)';
8:Result:='无法通信(未联机)';
9:Result:='A传感器同步框计数值超界';
11:Result:='A,B传感器匹配阅读错';
12:Result:='B传感器数据溢出';
13:Result:='未检测到B传感器格式标志';
15:Result:='未检测到B传感器检测点线';
16:Result:='无纸';
17:Result:='B传感器卡纸(同步信号出错)';
19:Result:='B传感器同步框计数值超界';
else Result:='错误号='+IntToStr(ERROR);
end;
end;
function TOmrReader.LoadFormatFile(FilePath: string): Boolean;
{$IFNDEF simulate}
var
RC:Integer;
{$ENDIF}
begin
{$IFNDEF simulate}
Result:=False;
if not Connected then Exit;
RC:=fOmrLoadFormatFile(PChar(FilePath));
if RC>0 then
begin
Result:=True;
fDataFormated:=True;
end
else
begin
fDataFormated:=False;
OmrGetError;
end;
{$ELSE}
fDataFormated:=True;
Result:=True;
{$ENDIF}
end;
{$IFNDEF simulate}
procedure TOmrReader.OmrGetError;
begin
fOmrGetError(fErrorBuffer)
end;
{$ENDIF}
function TOmrReader.Open(PortNumber:Byte): Boolean;
{$IFNDEF simulate}
var
RC:Integer;
{$ENDIF}
begin
{$IFNDEF simulate}
Result:=False;
case fPortType of
OPTCOM:RC:=fOmrOpenCOM(PortNumber);
else RC:=fOmrOpenUSB;
end;
if RC>0 then
begin
Sleep(2000);
fConnected:=True;
Result:=True
end
else OmrGetError;
{$ELSE}
fConnected:=True;
Result:=True;
{$ENDIF}
end;
function TOmrReader.PassOneCard: Boolean;
{$IFNDEF simulate}
var
RC:Integer;
{$ENDIF}
begin
{$IFNDEF simulate}
Result:=False;
if not Connected then Exit;
RC:=fOmrS('R/');
if RC>0 then Result:=True
else
begin
OmrGetError;
case ErrorCode of
0,3,5,8,16:Result:=False
else Result:=True;
end;
end;
{$ELSE}
Result:=True;
{$ENDIF}
end;
function TOmrReader.ReadOneCard: Boolean;
{$IFNDEF simulate}
var
RC:Integer;
{$ENDIF}
begin
{$IFNDEF simulate}
Result:=False;
if not Connected then Exit;
RC:=fOmrS('R/');
if RC>0 then
begin
RC:=fOmrS('r A 0001 0256');
if RC>0 then
begin
RC:=fOmrG(@fDataBuffer);
if RC>0 then Result:=True
else OmrGetError;
end
else OmrGetError;
end
else OmrGetError;
{$ELSE}
Result:=True;
{$ENDIF}
end;
end.
