ufunio.pas

一个会议签到系统

unit uFunIO;


interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
{-----------------------------------------------------------------------------}
type
  TUserDef7 = Record
     StrID:array  [0..7] of Char;
  end;

type
  TDMSTATUS = Record
   nYear:integer;
   nMonth:integer;
   nDay:integer;
   nWeek:integer;
   nHour:integer;
   nMinute:integer;
   nSecond:integer;
   nRecordCount:integer;
  end;
//考勤门禁系统刷卡记录结构
type
 TDownData = Record
    tPersonID:TUserDef7; 
     nYear:Integer;
     nMonth:Integer;
     nDay:Integer;
     nHour:Integer;
     nMinute:Integer;
     nSecond:Integer;
     bOnDuty:Boolean;
     bBC:Boolean;
     nAdr:integer;
 end;

 //取考勤门禁记录结构
type
 TRecvData = Record
	 nRecIndex:Integer;
	 nRecCount:Integer;
end;

var
  pDevice,pReturn:Pointer;
  prT:TDMSTATUS;

function FOpenDevice(iAddr:Integer;h:Thandle):Pointer;stdcall;
function FConnectPort(pX:Pointer;CS:PChar):Boolean;stdcall;
function FDisConnectPort(PX:Pointer):Boolean;stdcall;
function FCloseDevice(PX:Pointer):Boolean;stdcall;

{ooooooooooooooooo 设置时间三步 联合 ************}

function FStartICDMCommand(PX:Pointer;iAddr:Integer;ix:integer;py:Pointer;iy:Integer):Pointer;stdcall;
function FGetCmdResult(PX:Pointer):Integer;stdcall;
function FEndICDMCommand(PX:Pointer):Pointer;stdcall;

{*************** 记录数量 *****************}
Procedure PSetWaitTime(PX:Pointer;iX:Integer);stdcall;
function  FGetSizeOfData(PX:Pointer):Integer;stdcall;
Procedure PGetData(PX:Pointer;PY:Pointer;nx:Integer);stdcall;

function  FCharToInt(PX:Pointer):Integer;stdcall;
function  uIntToStr(iX:Integer):String;stdcall; 




{-----------------------------------------------------------------------------}
{oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}
implementation
{oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo}
function FConnectPort;external 'ICDM.dll' name 'ConnectPort';
function FDisConnectPort;external 'ICDM.dll' name 'DisConnectPort';
function FOpenDevice;external 'ICDM.dll' name 'OpenDevice';
function FCloseDevice;external 'ICDM.dll' name 'CloseDevice';

function FStartICDMCommand;external 'ICDM.dll' name 'StartICDMCommand';
function FGetCmdResult;external 'ICDM.dll' name 'GetCmdResult';
function FEndICDMCommand;external 'ICDM.dll' name 'EndICDMCommand';

Procedure PSetWaitTime;external 'ICDM.dll' name 'SetWaitTime';
function FGetSizeOfData;external 'ICDM.dll' name 'GetSizeOfData';
Procedure PGetData;external 'ICDM.dll' name 'GetData';

function FCharToInt;external 'PDLL.dll' name 'FCharToInt';
function uIntToStr;external 'PDLL.dll' name 'uIntToStr';




end.