What is the problem with RF card reading? Delphi/Windows SDK/API
Http://www.delphi2007.net/DelphiAPI/html/delphi_20061127101938167.html
The first job after graduation is RF Card programming?
I don't know how to read and save data on the RF Card.
Can you help me! Thank you!
QQ: 432186 E-mail: 432186@qq.com
Ask the manufacturer for information
My QQ: 406110146
It is estimated that there will be ready-made sdks for you. Just write them according to the instructions.
Will provide Secondary Development Kits
This is the simplest solution: to provide RF cards to the supplier (generally provide a DLL), and then an example of read/write operations (usually including VC, VB, and Delphi ). In the future, you will be able to follow the example.
It is basically RS232 serial port programming.
Most of them are serial ports, which are directly read and written using controls ......
Let me give you an example.
VaR
Frfsector: smallint;
Frfblock: smallint;
Frfcomm: integer;
Frfsnr: longint;
Frfnkeytype: integer;
Frfnkey: string;
Frfrtn: integer;
...... Initialization
Function trjccontrol. initrfcontrol: Boolean;
Begin
Frfrtn: = pts. system. Transport clibrary. open_comm (frfcomm + 1 );
If (frfrtn <> 0) then
Begin
Result: = false;
Exit;
End;
PTS. system. clibrary. setrc500state (1 );
Frfsector: = 1;
Frfblock: = 4;
Frfnkeytype: = 0;
Setlength (frfnkey, 12 );
Frfnkey: = 'ffffffffff ';
Result: = true;
End;
... Card reading
Function trjccontrol. readcard: Boolean;
VaR
Readmessage: string;
Begin
Result: = false;
Setlength (readmessage, 32 );
Frfrtn: = pts. system. Gradient clibrary. readcard (frfnkeytype, frfnkey,
Frfblock, readmessage );
Frfmessage. rfmsg: = hextostr (readmessage );
Frfmessage. rfflag: = 'successful ';
Frfmessage. rftag: = 'read ';
PTS. system. Gradient clibrary. setbeep );
Result: = true;
End;
Very simple. You only need to familiarize yourself with the API of the manufacturer.