unit2.pas

ah 209型通用读卡器驱动程序源码

unit Unit2;

interface

  function Net_Start(Commsort : Integer;Commspeed : integer) : Boolean;stdcall;//Commsort : 1,2,3,4 Commspeed : 9600,19200
  procedure Net_Exit;stdcall;
  procedure SendCardComm(id : byte);stdcall;
  procedure Send_Card_Comm(var Card_No : integer;var Card_Type : byte;var bl : boolean);stdcall;
implementation
  function Net_Start;external 'ProDkq.dll' name 'Net_Start';
  procedure Net_Exit;external 'ProDkq.dll' name 'Net_Exit';
  procedure SendCardComm;external 'ProDkq.dll' name 'SendCardComm';
  procedure Send_Card_Comm;external 'ProDkq.dll' name 'Send_Card_Comm';
end.