dkq.pas

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

unit DKQ;

interface
uses DataComm232, CommandWord, CRCMAC_unit, DataType, packet_unit, Ucomm,ComDrv32,Windows;

var
  TempData : Rec_Send_Message;

  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 SendCard_Comm(id : byte);
implementation

function Net_Start(Commsort : Integer;Commspeed : integer) : Boolean;
begin
   try
       DllDataModule := TDllDataModule.Create(Nil);
       if((Commsort = 1) or (Commsort = 2) or (Commsort = 3) or (Commsort = 4)) then
       begin
          Case Commsort of
             1 : begin
                    DllDataModule.Comm232.ComPort := pnCOM1;
                 end;
             2 : begin
                    DllDataModule.Comm232.ComPort := pnCOM2;
                 end;
             3 : begin
                    DllDataModule.Comm232.ComPort := pnCOM3;
                 end;
             4 : begin
                    DllDataModule.Comm232.ComPort := pnCOM4;
                 end;
          end;
          if((Commspeed = 9600) or (Commspeed = 19200)) then
          begin
             Case Commspeed of
                 9600 : begin
                           DllDataModule.Comm232.ComPortSpeed := br9600;
                        end;
                 19200: begin
                           DllDataModule.Comm232.ComPortSpeed := br19200;
                        end;
             end;
             Result := DllDataModule.Comm232.Connect
          end
          else
          begin
             Result := false;
          end;
       end
       else
       begin
          Result := false;
       end;
   except
   end;
end;

procedure Net_Exit;
begin
   try
       DllDataModule.Comm232.Disconnect;
       DllDataModule.Comm232.Destroy;
       DllDataModule.Free;
       DllDataModule := Nil;
   except
   end;
end;

procedure SendCardComm(id : byte);
begin
   try
       CardNo := 0;
       CardType := $00;
       bb := false;
       SendCard_Comm(id);
   except
   end;
end;

procedure SendCard_Comm(id : byte);
begin
   try
     ZeroMemory(@CommonBuf[1],MAXBUF);
     TempData := SendCard(id); //发送卡号查询命令
     DllDataModule.Comm232.SendData(TempData.RSMP,TempData.RSML);
   except

   end;

end;

end.