mCardSystem/文档/eye-U010及M1-U010读写器演示程序及开发包/Example/C++ Builder/Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
  HANDLE __stdcall  (*rf_init)(__int16 port,long baud);
__int16 __stdcall (*rf_beep)(HANDLE icdev,unsigned short _Msec);
__int16 __stdcall (*rf_card)(HANDLE icdev,unsigned char _Mode,unsigned long *_Snr);
__int16 __stdcall (*rf_exit)(HANDLE icdev);
__int16 __stdcall (*rf_get_status)(HANDLE icdev,unsigned char *_Status);
__int16 __stdcall (*rf_authentication)(HANDLE icdev,unsigned char _Mode,unsigned char _SecNr);
__int16 __stdcall (*rf_load_key)(HANDLE icdev,unsigned char _Mode,unsigned char _SecNr,unsigned char *_NKey);
__int16 __stdcall (*rf_write)(HANDLE icdev,unsigned char _Adr,unsigned char *_Data);
__int16 __stdcall (*rf_read)(HANDLE icdev,unsigned char _Adr,unsigned char *_Data);
__int16 __stdcall (*rf_changeb3)(HANDLE icdev,unsigned char _SecNr,unsigned char *_KeyA,unsigned char _B0,unsigned char _B1,unsigned char _B2,unsigned char _B3,unsigned char _Bk,unsigned char *_KeyB);



HINSTANCE hLibrary;
//hLibrary=LoadLibrary("mwrf32.dll");
HANDLE icdev;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

  FARPROC lpFarproc;
  hLibrary=LoadLibrary("mwrf32.dll");
  lpFarproc=GetProcAddress(hLibrary,"rf_init");

  rf_init=(HANDLE __stdcall(__cdecl*)(__int16 port,long baud))lpFarproc;

  icdev=0;
  icdev=rf_init(0,9600);
   AnsiString str;
  str=IntToStr((int)icdev);
   Edit1->Text=str;
  if(str>0)
  {
  ListBox1->Items->Add("rf_init ringht");
  }
  else
  {
  ListBox1->Items->Add("rf_init error");
  }
 // FreeLibrary(hLibrary);

 
}

//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{

   FARPROC lpFarproc;

  //hLibrary=LoadLibrary("mwrf32.dll");
  lpFarproc=GetProcAddress(hLibrary,"rf_beep");
  rf_beep=(__int16 __stdcall(__cdecl*)(HANDLE icdev,unsigned short _Msec))lpFarproc;
  int st=0;
  st=rf_beep(icdev,10);
  AnsiString str;
  str=IntToStr(st);
   Edit1->Text=str;
   ListBox1->Items->Add("rf_beep ringht");

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
  FARPROC lpFarproc;
  //hLibrary=LoadLibrary("mwrf32.dll");
  lpFarproc=GetProcAddress(hLibrary,"rf_card");
  rf_card=(__int16 __stdcall(__cdecl*)(HANDLE icdev,unsigned char _Mode,unsigned long *_Snr))lpFarproc;
  int st=0;
   unsigned long Snr;
  st=rf_card(icdev,1,&Snr);
  if(st==0)
  {
  AnsiString str;
  str=IntToStr(int(Snr));
   Edit1->Text=str;
   ListBox1->Items->Add("rf_card ringht!");
   }
   else
   {
   AnsiString str,str1;
   str=IntToStr(st);
   ListBox1->Items->Add("rf_card error!");
   Edit1->Text=str;
   }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
  //HINSTANCE hLibrary;
  FARPROC lpFarproc;
  //hLibrary=LoadLibrary("mwrf32.dll");
  lpFarproc=GetProcAddress(hLibrary,"rf_exit");
  rf_exit=(__int16 __stdcall(__cdecl*)(HANDLE icdev))lpFarproc;
  int st;
  st=rf_exit(icdev);
  if(st==0)
  {
  ListBox1->Items->Add("rf_exit right");
  }
  else
  {
  ListBox1->Items->Add("rf_exit error");
   AnsiString str;
   str=IntToStr(st);
   Edit1->Text=str;
   }
}

//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
   FARPROC lpFarproc;
   lpFarproc=GetProcAddress(hLibrary,"rf_get_status");
   rf_get_status=( __int16 __stdcall(__cdecl*)(HANDLE icdev,unsigned char *_Status))lpFarproc;
   int st;
   unsigned char Status[18];
   ZeroMemory(Status,sizeof(unsigned char));
   st=rf_get_status(icdev,Status);
   if(st==0)
   {
   AnsiString  str ;
   for(int i=0;i<16;i++)
   {
   char c=(char)Status[i];
   str +=c;
   }
   ListBox1->Items->Add("rf_get_Status right");
   Edit1->Text=str;
   }
   else
   {
   ListBox1->Items->Add("rf_get_Status error");
   AnsiString str;
   str=IntToStr(st);
   Edit1->Text=str;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button6Click(TObject *Sender)
{
   FARPROC lpFarproc;
   lpFarproc=GetProcAddress(hLibrary,"rf_authentication");
   rf_authentication=( __int16 __stdcall(__cdecl*)(HANDLE icdev,unsigned char _Mode,unsigned char _SecNr))lpFarproc;
   int st;
   st=rf_authentication(icdev,0,1);
   if(st==0)
   {
   ListBox1->Items->Add("rf_authentication right");
   }
   else
   {
   ListBox1->Items->Add("rf-authentication error");
   AnsiString str;
   str=IntToStr(st);
   Edit1->Text=str;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button7Click(TObject *Sender)
{
   FARPROC lpFarproc;
   lpFarproc=GetProcAddress(hLibrary,"rf_load_key");
   rf_load_key=( __int16 __stdcall(__cdecl*)(HANDLE icdev,unsigned char _Mode,unsigned char _SecNr,unsigned char *_NKey))lpFarproc;
   unsigned char key[6]={0xff,0xff,0xff,0xff,0xff,0xff};
   int st;
   st=rf_load_key(icdev,0,1,key);
   if (st==0)
   {
   ListBox1->Items->Add("rf_load_key right");
   }
   else
   {
   ListBox1->Items->Add("rf_load_key error");
   AnsiString str;
   str=IntToStr(st);
   Edit1->Text=str;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button8Click(TObject *Sender)
{
  FARPROC lpFarproc;
   lpFarproc=GetProcAddress(hLibrary,"rf_write");
   rf_write=( __int16 __stdcall(__cdecl*)(HANDLE icdev,unsigned char _Ard,unsigned char *_Data))lpFarproc;
   unsigned char wdata[]="ÉîÛÚÃ÷»ª°Äºº¿Æ¼¼";
   int st;
   st=rf_write(icdev,4,wdata);
      if (st==0)
   {
   ListBox1->Items->Add("rf_write right");
   }
   else
   {
   ListBox1->Items->Add("rf_write error");
   AnsiString str;
   str=IntToStr(st);
   Edit1->Text=str;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button9Click(TObject *Sender)
{
   FARPROC lpFarproc;
   lpFarproc=GetProcAddress(hLibrary,"rf_read");
   rf_read=( __int16 __stdcall(__cdecl*)(HANDLE icdev,unsigned char _Ard,unsigned char *_Data))lpFarproc;
   unsigned char rdata[16];
   int st;
   st=rf_read(icdev,4,rdata);
   if (st==0)
   {
   ListBox1->Items->Add("rf_read right");
   Edit1->Text=(char*)rdata;
   }
   else
   {
   ListBox1->Items->Add("rf_read error");
   AnsiString str;
   str=IntToStr(st);
   Edit1->Text=str;
   }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button10Click(TObject *Sender)
{
   FARPROC lpFarproc;
   lpFarproc=GetProcAddress(hLibrary,"rf_changeb3");
   rf_changeb3=( __int16 __stdcall(__cdecl*)(HANDLE icdev,unsigned char _SecNr,unsigned char *_KeyA,unsigned char _B0,unsigned char _B1,unsigned char _B2,unsigned char _B3,unsigned char _Bk,unsigned char *_KeyB))lpFarproc;
   unsigned char keyA[6]={0xff,0xff,0xff,0xff,0xff,0xff};
   unsigned char keyB[6]={0xff,0xff,0xff,0xff,0xff,0xff};
   int st;
   st=rf_changeb3(icdev,1,keyA,0,0,0,1,0,keyB);
   if (st==0)
   {
   ListBox1->Items->Add("rf_changeb3 right");
   }
   else
   {
   ListBox1->Items->Add("rf_changeb3 error");
   AnsiString str;
   str=IntToStr(st);
   Edit1->Text=str;
   }
}
//---------------------------------------------------------------------------