问个写卡数据读取问题。分不是问题急！！-CSDN论坛

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115 结帖率 87.88%: 一个写卡的问题。读卡原函数为：

int ReadCard(BYTE com,char * data,char * err);
参数：
com：串口号，如:com=0表示串口一；com=1表示串口二；
data：读出的数据（字符串）；
err：错误信息（字符串）；
返回： 1：成功 2：失败

其中data的格式如下。
写入 / 读出的数据格式说明如下 (共125位):

起始位结束位字段说明
0 1 客户卡类型，固定值“00”
2 7 房间号 000000 – 999999
不足6位时相左对齐，其余用空格补齐。
例如：
房间号“101”
数据格式：“101 ”
8 8 子房间号，可忽略
9 9 房间卡顺序号 1 – 8
新卡为”1”;
复制卡从顺序号2 –8 ,最多可复制7张卡.
10 21 房卡开始时间
写卡 200206131015 为2002年6月13日10时15分
读卡 200206131015 为2002年6月13日10时15分
建议使用当前时间作为新卡的开始时间
*复制卡的开始时间必须是原始卡的开始时间
22 33 房卡结束时间
写卡 200206131015 为2002年6月13日10时15分
读卡 200206131015 为2002年6月13日10时15分
34 35 开锁延时，一般为5,其格式为 “5 ”
36 56 宾客姓名，比如"李文峰"、"迈克.乔丹"、"Kasanbulanc"等，可忽略
57 76 身份证号/信用卡号，比如"430105600818345"、"430105196008183458"、"123Com名字09MYi"等，可忽略
77 85 公司代码，比如"12345678"、"135"、"3Com公司"等，可忽略
86 86 帐务类型：1表示餐帐、2表示房帐、3表示其他帐，其余的值自定义，可忽略
87 99 帐号 (含识别码) ，比如"1234567890Bn"、"帐号98abC12"，可忽略
100 110 可用金额，比如"4567.8"，可忽略
111 125 扩展设施标志，可忽略

问题：读取时不管我怎么定义data，读出来都为空值。请帮忙看下到底应该怎么定义DATA，怎么读取DATA的内容。

谢谢。

分数不是问题

0 2011-08-23 19:06:39

回复数 22 只看楼主引用举报楼主

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 顶上去

0 2011-08-23 19:44:53

只看TA 引用举报 #1 得分 0

⋅求Delphi XE7VCL源码 ⋅这个现象是不是Delphi XE7 DataSnap 的BUG ⋅Delphi XE7 设计时部件对齐问题 更多帖子 关注空间博客 Oraclers 本版专家分：16357 蓝花 2011年5月 Delphi大版内专家分月排行榜第三: 把你讀卡的代碼貼出來。

0 2011-08-23 20:40:03

只看TA 引用举报 #2 得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: var
  i:integer;
  InBufer:array[0..125] of Char;
  ErrCode:array[0..254] of Char;

begin
  i :=  ReadCard(0,InBufer,ErrCode);
  if i = 1 then
  begin
    showmessage(StrPas(@InBufer));
  end;
end;

0 2011-08-23 20:41:33

只看TA 引用举报 #3    得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 引用 2 楼 oraclers 的回复:
把你讀卡的代碼貼出來。

代码如上

请指教

0 2011-08-23 20:42:13

只看TA 引用举报 #4 得分 0

⋅文本操作 ⋅b样条图形问题 ⋅sql中数据库备份与恢复问题 更多帖子 关注空间博客 天空的云彩 本版专家分：78: ReadCard是C封装的函数吧，C和delphi对函数的定义是有差别的，ReadCard声明时你用
Function ReadCard(com:byte;var data:TICData;Var err:TICError):integer ; 这个试试，其中后两个参数是变量参数，TICData和 TICError通过Type来定义，具体如下：
type
  TICData = array[0..125] of Char ;
  TICError= array[0..254] of Char ;

0 2011-08-23 21:08:36

只看TA 引用举报 #5    得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 引用 5 楼 ahlian 的回复:
ReadCard是C封装的函数吧，C和delphi对函数的定义是有差别的，ReadCard声明时你用
Function ReadCard(com:byte;var data:TICData;Var err:TICError):integer ; 这个试试，其中后两个参数是变量参数，TICData和 TICError通过Type来定义，具体如下：
type
TICData = array……

应该跟函数定义没关系因为我写卡的函数变量申明相同。写卡没任何问题用他们的读卡程序写的数据正确
比较郁闷

0 2011-08-23 21:10:06

只看TA 引用举报 #6 得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 没人关注？？？

0 2011-08-24 08:48:19

只看TA 引用举报 #7 得分 0

⋅春节恭贺贴（三）。。。。。。。。。。。 ⋅春节恭贺贴（二）。。。。。。。。。。。 ⋅春节恭贺贴（一）。。。。。。。。。。。 更多帖子 关注空间博客 babydog01 本版专家分：13953: 把你的写卡代码也贴出来看看...

0 2011-08-24 09:01:21

只看TA 引用举报 #8 得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: var
  mStime,mETime,mRmno,mName:String;
  Ret:Byte;
  InBufer:array[0..125] of Char;
  ErrCode:array[0..254] of Char;
  i:Integer;
  data:string;
begin
  mRmno:=Edit1.Text;
  mName:=Edit3.Text;
  dtpkTime.Date:=dtpkDate.Date;
  DateTimePicker2.Date:=DateTimePicker1.Date;
  mStime:=FormatDateTime('yyyymmddhhnn',DateTimePicker2.Datetime);

  mETime:=FormatDateTime('yyyymmddhhnn',dtpkTime.DateTime);
  data:='00'+Copy(mRmno+'        ',0,6)+
        ' '+'1'+
        mSTime+mETime+
        '5 '+
        copy(mName+'                                          '+
             '                                          '+
             '                                          ',0,21)+'3209111982';
  data:=copy(data,1,126);

  for i:=0 to Length(data)-1 do
    InBufer[i]:=data[i+1];

  case WriteCard(0,InBufer,ErrCode,0) of
    1:
      begin
        ShowMessage('写入成功！');
        Edit2.Text:=Data;
        showmessage(String(InBufer));
      end;
    else
      begin

        ShowMessage('失败');
      end;
    end;
end;

0 2011-08-24 09:07:10

只看TA 引用举报 #9    得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 分数不是问题

可以另开贴

0 2011-08-24 09:07:29

只看TA 引用举报 #10 得分 0

⋅春节恭贺贴（三）。。。。。。。。。。。 ⋅春节恭贺贴（二）。。。。。。。。。。。 ⋅春节恭贺贴（一）。。。。。。。。。。。 更多帖子 关注空间博客 babydog01 本版专家分：13953: 如果你说写入是正常的，你可以将这个反过程做一下。定义一个字符串，将
  for i:=0 to Length(data)-1 do
  InBufer[i]:=data[i+1];
反过程

var
  i:integer;
  data:string;
  InBufer:array[0..125] of Char;
  ErrCode:array[0..254] of Char;

begin
  i := ReadCard(0,InBufer,ErrCode);
  if i = 1 then
  begin
  for i:=0 to 125 do
  data[i+1]:=InBufer[i];
  showmessage(data);
  end;
end;

这样试试看

0 2011-08-24 09:20:55

只看TA 引用举报 #11    得分 100

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 引用 11 楼 babydog01 的回复:
如果你说写入是正常的，你可以将这个反过程做一下。定义一个字符串，将
  for i:=0 to Length(data)-1 do
  InBufer[i]:=data[i+1];
反过程

var
  i:integer;
  data:string;
  InBufer:array[0..125] of Char;
  ErrCode:array[0..254] of Cha……

哎

0 2011-08-24 09:39:56

只看TA 引用举报 #12    得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 请高手现身指点

0 2011-08-24 09:40:13

只看TA 引用举报 #13 得分 0

⋅PHP问题请教一下 PHP+JS 两个文件在主的PHP文件 index.php中增加一个下拉列表框，通过点击这个　下拉列表框获取值，并在这个列表框后直 ⋅PHP+MYSQL研究复选框中的批量更新，想完全选更新选中指定复选框值 ⋅通过HTML提交信息传递到artdialog 中指定位置如何设置 更多帖子 关注空间博客 山东蓝鸟贵薪 本版专家分：14382 黄花 2012年5月 Delphi大版内专家分月排行榜第二 蓝花 2012年4月 Delphi大版内专家分月排行榜第三 2011年8月 Delphi大版内专家分月排行榜第三: 想搞破坏呀？？？？？？？？

0 2011-08-24 09:40:48

只看TA 引用举报 #14 得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 引用 14 楼 sgzhou12345 的回复:
想搞破坏呀？？？？？？？？

???

0 2011-08-24 09:42:20

只看TA 引用举报 #15 得分 0

⋅PHP问题请教一下 PHP+JS 两个文件在主的PHP文件 index.php中增加一个下拉列表框，通过点击这个　下拉列表框获取值，并在这个列表框后直 ⋅PHP+MYSQL研究复选框中的批量更新，想完全选更新选中指定复选框值 ⋅通过HTML提交信息传递到artdialog 中指定位置如何设置 更多帖子 关注空间博客 山东蓝鸟贵薪 本版专家分：14382 黄花 2012年5月 Delphi大版内专家分月排行榜第二 蓝花 2012年4月 Delphi大版内专家分月排行榜第三 2011年8月 Delphi大版内专家分月排行榜第三: 如果你想读取考勤机中的数据的话，厂家会你给一个DLL接口的，
但是要是自己想开发的话，就有点难呀？？？？？？？

0 2011-08-24 09:44:04

只看TA 引用举报 #16 得分 100

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 引用 16 楼 sgzhou12345 的回复:
如果你想读取考勤机中的数据的话，厂家会你给一个DLL接口的，
但是要是自己想开发的话，就有点难呀？？？？？？？

是门锁。DLL是他们封装的不过这家锁厂由于比较老现在已经联系不上了
留存下来的文档都没有，就2个函数说明

0 2011-08-24 09:49:35

只看TA 引用举报 #17 得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 继续顶上去

0 2011-08-24 10:05:23

只看TA 引用举报 #18 得分 0

⋅请教高手，问个连接远程SQL 服务器的问题 ⋅问个写卡数据读取问题。分不是问题急！！ ⋅急。帮我看下这个问题 更多帖子 关注空间博客 andyzhou1101 本版专家分：7115: 已经解决。DLL的问题

0 2011-08-24 10:25:59

只看TA 引用举报 #19 得分 0

maolei7788 本版专家分：0: inventer圆凳图纸

0 2011-08-24 10:26:37

只看TA 引用举报 #20 得分 0

maolei7788 本版专家分：0: inventer圆凳图纸

0 2011-08-24 10:26:52

只看TA 引用举报 #21 得分 0

maolei7788 本版专家分：0: 已经解决。DLL的问题

0 2011-08-24 10:27:04

只看TA 引用举报 #22 得分 0

问个写卡数据读取问题。分不是问题 急！！ [问题点数：200分，结帖人andyzhou1101]

问个写卡数据读取问题。分不是问题急！！ [问题点数：200分，结帖人andyzhou1101]