转载大富翁论坛 使用IC卡收费机进行售饭管理源代码

转载大富翁论坛 使用IC卡收费机进行售饭管理源代码

问题：关于串口通讯(庆贺！已经解决感谢大富翁,奉献源代码） ( 积分：43, 回复：22, 阅读：217 )  分类：控件 - 使用
来自：Z_JJ, 时间：2002-03-06 14:43:00, ID：919099  
现在我需要自己编程使用IC卡收费机进行售饭管理，但是它没有提供任何函数，
只有以下通讯协议，请问怎样才能操作使用这些通讯协议：
1、 计算机要求收费机上传最近一次刷卡的卡号及扣款额：计算机向收费机发送 16 + 2 + 1 三个整数字节。此命令也用于发卡。
收费机返回 16 + 5个字节的压缩BCD码卡号 + 6个字节的十进制码扣款额（每个字节大小为0- 9之间的数，前5个字节为整数，后1个字节为小数）+ CRC。所有数据高位均在前面，CRC是它前面11个字节的异或，CRC用于校验,实际应用中可忽略。
2、 下传余额：　格式：地址 + 5 + 2 + 3个字节的十进制码余额，整数在前。以16号机，卡中余额 853元为例，就是：计算机向串口发送：16、5、2、0、85、30　共六个整数字节。
3、 余额不足：　　　　　　　　　　格式：地址 + 2 + 3
4、 规定时间内的重复消费：　　　　格式：地址 + 2 + 4
5、 非法卡（非本系统卡、挂失卡）　格式：地址 + 2 + 5
6、 修改日期：格式：地址+5+6+3个字节的日期码。返回：地址+96。
7、 修改时间：格式：地址+5+7+3个字节的时间码。返回：地址+96。
8、 网络通讯测试： 格式：地址+02+08　返回：地址+96。
说明：
1.消费系统共有三根线,一根为通讯式配器到消费机的RS485连线，一根为通讯式配器到管理电脑的串口RS232线，另一根为读卡充值机到管理电脑的串口RS232线。
2.消费机到通讯式配器的连线接到标有“LINE”的接口，管理电脑串口到通讯式配器的连线接到标有“PHONE”的接口。
3.消费机之间的连接采用RS485全双工方式（4根线），电话水晶头线为直连（即一对一方式）。
有几个问题：
　　1、消费机的协议好象已足够，但是读卡充值机这一部分应该怎样操作（如怎样发卡）
　　2、还缺少哪些属性，通常默认值是多少（如波特率9600）
　　3、针对本情况，实际通讯时哪些步骤是必须的，哪些可省。
　　4、MSCOMM控件好象有两种办法：采用OnComm事件时如何获得一整串字符，换用线程来做时每读取间隔多少毫秒为宜，方能一次读一整串数据且无错漏
　　我是第一次接触这个陌生领域，谁能帮我，可惜分数不多了,希望能写个示例程序




来自：王寒松, 时间：2002-02-11 15:23:00, ID：919167  
看老兄这么可怜。 提前了N次。 我虽不熟。 帮你看看.

这个问题与 串口无太大关系。 我以前也做过读写操作IC卡的程序。 只是读卡机用的
是别人的成品。 厂家会提供给你 驱动(一般是DLL),　大的厂家甚至直接能给你
PASCAL 调用的例子.　你必须找到 那IC卡收费机的厂家 才可以。
如果是明华澳汉的(mwic), 我这里就有驱动和调用的例子



来自：Z_JJ, 时间：2002-02-11 15:29:00, ID：919176  
我用的是奥凯特的，但是厂家只提供了上述资料，曾给厂家发过信询问函数，但是没有回音



来自：王寒松, 时间：2002-02-11 15:40:00, ID：919188  
那你跟客户说吧。 说读卡机没驱动。要求他们换一个牌子的。
不该你做的工作。 那个厂家却推卸给了你来干。 不划算哦。 写的出来
就算了。 写不出来，还要承担责任。 你公司的人估计还要说你。
实话实说， 我用过5，6种读卡机。但是都给驱动的。



来自：softdog, 时间：2002-02-11 16:30:00, ID：919215  
to Z_JJ：
如果读卡机是串口的，这些信息基本可以满足了（波特率应该有吧？）
用SPCOMM就可以操作了，我以前写过一个电子称的读取程序（DOS下），应该是类似的。
比如：
发送：$10 $02 $01
应该收到：$10 $XX $XX $XX $XX $XX $XX $XX $XX $XX $XX $XX $XX
　　　　　　　~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~ ~~~
　　　　　　　 卡号　　　　　　　　　　扣款额　　　　　　 CRC（不用也可）
你多试试吧！



来自：Z_JJ, 时间：2002-02-11 17:00:00, ID：919238  
to softdog：我是第一次使用串口，有些不知所措，可是现在时间不多了，请问可以
根据资料给出示例吗



来自：swj, 时间：2002-02-15 21:16:00, ID：922860  
一定要用厂家提供的dll的,
我以前做过的是德城的



来自：swj, 时间：2002-02-15 21:23:00, ID：922865  
如果自己写程序的话需要知道串口的波特率,校验位的设定等等



来自：Z_JJ, 时间：2002-02-15 22:08:00, ID：922909  
我用的是奥凯特奥凯特ID卡收费机



来自：沙隆巴斯的主人, 时间：2002-02-15 22:27:00, ID：922922  
其实你的这东西非常简单，只要知道通讯协议就一定做得出来



来自：Z_JJ, 时间：2002-02-15 22:51:00, ID：922942  
关键是我不知如何下手，这对我来说是个陌生的领域，



来自：Z_JJ, 时间：2002-02-15 23:17:00, ID：922964  
可惜我的分数不多了，已全部奉上



来自：eagleblue, 时间：2002-02-16 00:14:00, ID：923025  
TO Z_JJ:
　我几年前做过类似的程序，只是代码全忘了：）
　这个东西是这么回事：
　　　你的计算机通过串口发送一个串 0x10 0x02 0x01 给卡机//根据你提供的协议
　　　相当于：“计算机要求收费机上传最近一次刷卡的卡号及扣款额”
　　　　　　 //为什么发卡也用这个命令呢？不明白：（
　　　卡机返回 0x10(16),0xXX 0xXX 0xXX 0xXX 0xXX 0xXX 0xXX 0xXX 0xXX 0xXX 0xXX
　　　　　　　　　　　　~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
　　　　　　　　　　　　　　　　　卡号　　　　　　　　　　扣款额　　　　　　
现在你先别管 串口 编程的事 关键是先把通讯协议 弄弄清楚
最好找个串口调试工具，直接和卡机对话
原来大富翁练功厂上有一个很不错的工具 叫 TELLCOM 我是找不到了
你问问 孙老大 他还有没有

to 王寒松
　Z_JJ说的卡机不是单纯的 IC卡读写器 可能是把一个单片机包在了 IC卡读写器外
对卡 读写的操作是在 单片机上完成的 计算机是通过串口和单片机 打交道：）





来自：Z_JJ, 时间：2002-02-19 17:30:00, ID：927848  
说明：
1.消费系统共有三根线,一根为通讯式配器到消费机的RS485连线，一根为通讯式配器到管理电脑的串口RS232线，另一根为读卡充值机到管理电脑的串口RS232线。
2.消费机到通讯式配器的连线接到标有“LINE”的接口，管理电脑串口到通讯式配器的连线接到标有“PHONE”的接口。
3.消费机之间的连接采用RS485全双工方式（4根线），电话水晶头线为直连（即一对一方式）。
有几个问题：
　　1、消费机的协议好象已足够，但是读卡充值机这一部分应该怎样操作（如怎样发卡）
　　2、还缺少哪些属性，通常默认值是多少（如波特率9600）
　　3、针对本情况，实际通讯时哪些步骤是必须的，哪些可省。
　　4、MSCOMM控件好象有两种办法：采用OnComm事件时如何获得一整串字符，换用线程来做时每读取间隔多少毫秒为宜，方能一次读一整串数据且无错漏



来自：Z_JJ, 时间：2002-02-24 15:06:00, ID：939234  
1、计算机要求收费机上传最近一次刷卡的卡号及扣款额：计算机向收费机发送 16 + 2 + 1 三个整数字节。
请问如果我用MSCOMM，具体应该怎么写呢？是 MSCOMM.OUTPUT:='1621'，还是MSCOMM.OUTPUT:='160201',
还是with mscomm do begin output:='16'; output:='2'; output:='1' end;




来自：Pipi., 时间：2002-02-24 15:41:00, ID：939279  
Buffer = Chr$(16)
MSComm1.Output = Buffer
Buffer = Chr$(2)
MSComm1.Output = Buffer
Buffer = Chr$(1)
MSComm1.Output = Buffer




来自：Z_JJ, 时间：2002-03-02 13:50:00, ID：954070  
to pipi:我认为可能是MSComm1.Output:=Chr(2);MSComm1.Output:=Chr(1);..
我想再问一下: 收费机返回 16 + 5个字节的压缩BCD码卡号
其中5个字节的压缩BCD码卡号是怎么回事,我应该怎样获得卡号:
地址(16)是不是 ord(mscomm1.input)



来自：江湖浪子, 时间：2002-03-02 14:02:00, ID：954098  
关注~~~~~~~



来自：Pipi., 时间：2002-03-02 14:12:00, ID：954125  
压缩BCD码，比如16进制 $93 就是代表2个10进制数字：9和3



来自：Z_JJ, 时间：2002-03-02 14:53:00, ID：954231  
to pipi:麻烦帮助写出具体的命令,照这么说'5个字节的压缩BCD码卡号'就要留10位长度了,是吗?



来自：Pipi., 时间：2002-03-02 18:02:00, ID：954637  
'5个字节的压缩BCD码卡号'就是说他的卡号有10个数字



来自：Pipi., 时间：2002-03-02 18:05:00, ID：954642  
其实也没什么啊，卡号用string表示的话
var
　cardno:array[0..4]of byte;
　s:string;

for i:=0 to 4 do
　s:=s+IntToHex(cardno[i],2);




来自：Z_JJ, 时间：2002-03-06 14:35:00, ID：964082  
现在我已经成功实现了串口通讯，为了答谢大家的帮助，将记费部分的源代码贴出供大家指教。
欢迎来访原创软件区 http://ycrj.delphibbs.com
使用了MSCOMM32.OCX控件，下面是ONCOMM事件的源代码，即实时记费过程，其中要判断是否为员工卡，
如果是员工卡中餐消费有相应的补贴。通讯协议就是上面说的。
procedure TForm1.MSComm1Comm(Sender: TObject);
var icn,icno,icxfs,dataH,ss:string;
buffer:variant;　 ovTmp:olevariant;
readdr:byte; i:integer; isbt:boolean;
begin
　Case MSComm1.CommEvent of
　comEvReceive:begin
　　 ovTmp:=vararrayCreate([0,13],varbyte);
　　 MSComm1.InputLen:=13;
　　 ovTmp:=MSComm1.Input;
　　 icno:='';
　　 icn:='';
　　 icxfs:='';
　　 buffer:=ovTmp[0];
　　 If length(Buffer)=0 Then MSComm1.InBufferCount:=0;
　　 readdr:=Buffer;
　　 If (readdr<>tb_info.Fieldbyname('地址2').AsInteger)
　　 or (readdr<>tb_info.Fieldbyname('地址3').Asinteger)
　　 Then begin
　　　 MSComm1.InBufferCount:=0;　MSComm1.OutBufferCount:=0;
　　 end;
　　 for i:=1 to 5 do
　　 begin
　　　 buffer:=ovTmp[i];
　　　 dataH:=inttostr(trunc(buffer/16)*10+buffer Mod 16);
　　　 If Length(dataH)=1 Then　dataH:='0'+dataH;
　　　 icno:=icno+dataH;
　　 end;
　　 for i:=6 to 10 do
　　 begin
　　　 buffer:=ovTmp[i];
　　　 dataH:=inttostr(buffer);
　　　 icxfs:=icxfs+dataH;
　　 End;
　　 buffer:=ovTmp[11];
　　 dataH:=inttostr(buffer);
　　 If datah<>'0' Then icxfs:=icxfs+'.'+dataH;
　　 if (icxfs<>'') And (icno<>'121121121121121')
　　 And (Length(icno)=10) Then
　　 begin
　　　 label4.Caption:=inttostr(readdr);
　　　 label5.Caption:=icno;
　　　 label6.Caption:=icxfs;
　　　 qu_jbxx.SQL.Text:='select * from jbxx where 有效=1 and 卡号='''+icno+''''
　　　 +' and 余额>='+icxfs;
　　　 qu_jbxx.Open;
　　　 if qu_jbxx.IsEmpty then　mscomm1.Output:=chr(readdr)+chr(2)+chr(5)
　　　 else begin
　　　　 if strtocurr(icxfs)>0 then
　　　　 edit1.Text:=inttostr(strtoint(edit1.Text)+1);
　　　　 isbt:=(copy(panel1.Caption,1,2)='中')
　　　　 and (copy(qu_jbxx.fieldbyname('人员编号').AsString,1,1)='L') and
　　　　 ((tb_info.Fieldbyname('优惠金额').AsCurrency+qu_jbxx.Fieldbyname('补贴金额').AsCurrency)
　　　　 <=tb_info.Fieldbyname('每月优惠').AsCurrency) and (not qu_jbxx.Fieldbyname('当日补贴').asboolean);
　　　　 if strtocurr(icxfs)>0 then
　　　　 begin
　　　　　 qu_jbxx.Edit;
　　　　　 qu_jbxx.Fieldbyname('余额').AsCurrency:=qu_jbxx.Fieldbyname('余额').AsCurrency-strtofloat(icxfs);
　　　　　 ado_com.CommandText:='insert into zw values('''+icno+''','''+datetimetostr(now())
　　　　　 +''',''支出'','''+copy(panel1.Caption,1,2)+''',-'+icxfs+')';
　　　　　 ado_com.Execute;
　　　　　 edit2.Text:=currtostr(strtocurr(edit2.Text)+strtocurr(icxfs));
　　　　　 if isbt then begin
　　　　　　 qu_jbxx.Fieldbyname('当日补贴').asboolean:=true;
　　　　　　 ado_com.CommandText:='insert into zw values('''+icno+''','''+datetimetostr(now())
　　　　　　+''',''补贴'',''无'','+tb_info.fieldbyname('优惠金额').AsString+')';
　　　　　　 ado_com.Execute;
　　　　　　 qu_jbxx.Fieldbyname('补贴金额').AsCurrency:=qu_jbxx.Fieldbyname('补贴金额').AsCurrency
　　　　　　 +tb_info.fieldbyname('优惠金额').AsCurrency;
　　　　　　 qu_jbxx.Fieldbyname('余额').AsCurrency:=qu_jbxx.Fieldbyname('余额').AsCurrency
　　　　　　 +tb_info.fieldbyname('优惠金额').AsCurrency;
　　　　　　 edit2.Text:=currtostr
　　　　　　(strtocurr(edit2.Text)-tb_info.fieldbyname('优惠金额').ascurrency);
　　　　　 end;
　　　　　 qu_jbxx.Post;
　　　　 end;
　　　　 ss:=qu_jbxx.fieldbyname('余额').AsString;
　　　　 if copy(ss,length(ss)-1,1)='.' then
　　　　 ss:=copy(ss,1,length(ss)-2)+copy(ss,length(ss),1)
　　　　 else ss:=ss+'0';
　　　　 if length(ss)<6 then
　　　　 for i:=1 to 6-length(ss) do ss:='0'+ss;
　　　　 mscomm1.Output:=chr(readdr)+chr(5)+chr(2)+chr(strtoint(copy(ss,1,2)))
　　　　 +chr(strtoint(copy(ss,3,2)))+chr(strtoint(copy(ss,5,2)));
　　　 end;
　　　end;
　　end;
　end;
end;