射频卡读取问题?
http://www.delphi2007.net/DelphiAPI/html/delphi_20061127101938167.html
畢業(yè)第一個(gè)工作就是射頻卡編程? ?
? 不知道怎么對(duì)射頻卡怎么進(jìn)行讀和取數(shù)據(jù) ? ? 還有保存. ? ? ?
? 您可以幫我下嗎 ? 高手! ? ? 小弟萬(wàn)分感激! ?
? QQ:432186 ? ? ? E-mail:432186@qq.com
問(wèn)廠商要資料 ?
? ?
? ?
? my ? qq ? : ? 406110146
估計(jì)會(huì)有現(xiàn)成的SDK給你，照著說(shuō)明書(shū)寫(xiě)就是了
會(huì)提供二次開(kāi)發(fā)包的
這個(gè)最簡(jiǎn)單的，向提供射頻卡的供應(yīng)商要驅(qū)動(dòng)（一般是提供一個(gè)Dll），然后要一個(gè)讀寫(xiě)操作的例子（一般會(huì)含VC、VB、Delphi）。以后你照著例子做就Ok了。
基本都是RS232串口編程
大多數(shù)都是串口，直接用控件讀寫(xiě)......
給你一個(gè)例子，各種廠家的也是大同小異 ?
? ?
? var ?
? ? ? FRFSector: ? SmallInt; ?
? ? ? FRFBlock: ? SmallInt; ?
? ? ? FRFComm: ? Integer; ?
? ? ? FRFSNR: ? LongInt; ?
? ? ? FRFNKeyType: ? Integer; ?
? ? ? FRFNKey: ? string; ?
? ? ? FRFRtn: ? Integer; ?
? ?
? ......初始化 ?
? ?
? function ? TRJCControl.InitRFControl: ? Boolean; ?
? begin ?
? ? ? FRFRtn ? := ? PTS.System.RJCLibrary.Open_Comm(FRFComm+1); ?
? ? ? if ? (FRFRtn ? <> ? 0) ? then ?
? ? ? begin ?
? ? ? ? ? Result ? := ? False; ?
? ? ? ? ? Exit; ?
? ? ? end; ?
? ? ? PTS.System.RJCLibrary.SetRC500State(1); ?
? ? ? FRFSector ? := ? 1; ?
? ? ? FRFBlock ? := ? 4; ?
? ? ? FRFNKeyType ? := ? 0; ?
? ? ? SetLength(FRFNKey,12); ?
? ? ? FRFNKey ? := ? 'ffffffffffff'; ?
? ? ? Result ? := ? True; ?
? end; ?
? ?
? ......讀卡 ?
? ?
? function ? TRJCControl.ReadCard: ? Boolean; ?
? var ?
? ? ? ReadMessage: ? string; ?
? begin ?
? ? ? Result ? := ? False; ?
? ? ? SetLength(ReadMessage,32); ?
? ? ? FRFRtn ? := ? PTS.System.RJCLibrary.ReadCard(FRFNKeyType, ? FRFNKey, ? ?
? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? FRFBlock, ? ReadMessage); ?
? ? ? FRFMessage.RFMsg ? := ? HexToStr(ReadMessage); ?
? ? ? FRFMessage.RFFlag ? := ? '成功'; ?
? ? ? FRFMessage.RFTag ? := ? '讀'; ?
? ? ? PTS.System.RJCLibrary.SetBeep(3,5); ?
? ? ? Result ? := ? True; ?
? end; ?
? ?
? 很簡(jiǎn)單的。只要把廠家的API多熟悉就可以了。
轉(zhuǎn)載于:https://www.cnblogs.com/delphi2007/archive/2008/11/27/1342603.html
總結(jié)
- 上一篇： 人工智能与医疗 总览
- 下一篇： socket第三方库nbsp;Async