How to use IC card in Delphi3(40分)

V

victor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-09-30

• #1

各位：(special to Delphi先生)

有谁编写过IC卡的程序(Sure系列的)？
希望指点一二，我的程序总报串口错误？
比如在选择卡型时。
但初始化串口是正确的，
而且IC卡下电也是正确的。

能把原程序给俺看看吗？

谢谢！

my e-mail address: zyj@cheetah.ml.org

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-09-30

• #2

哇考，这种东西也想要啊，有多少公司在做啊。
(源程序可是机密，不在于其技术多先进，主要是调试费功夫，
告诉你了，如果你是对手公司的，我们公司吃西北风去？)

我倒是调过几个，不过是Olivette的，应该对你不大有用吧。

经验是仔细看手册，或者直接找提供机器的公司要example,这是
他们应尽的责任。

没什么帮助，祝你好运。希望真能找到写过的人。

 

D

delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-09-30

• #3

我的程序确实不好公开，
不过老兄可以把你的部分程序贴出来，我帮你
试试。
要等到放假后，我家里没有读写设备。

 

X

XiePro

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-01

• #4

本人一直使用“WATCH”的读卡器，好象没什么问题，不知“SURE”有什么特别的。
是否是声明DLL中函数的方法有问题（声明为cdecl调用）？还有参数及返回值均为
word、pchar、pointer、integer型。
以上是本人使用“WATCH”读卡器及驱动程序的方法，希望有所帮助。

 

V

victor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-01

• #5

HI, Xiepro:
先谢谢你！
我是这么声明DLL中的函数的：
Function Init_com(Port:integer):integer;stdcall;
external 'sure32wc' index 1;

(我试了用cdecl代替stdcall，程序就直接报错了！)
这是Delphi先生告诉我的，但我不是很明白为什么用
index 1 ; 用 index 2;程序执行时马上报错。

另外其它函数声明如下：
Function sele_card(crdno:integer):integer;
stdcall; external 'sure32wc' index 4;

这里index .. 到底应是多少？

函数返回结果就是说串口错误！

谢了！

 

X

XiePro

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-01

• #6

“stdcall”表示该函数为Pascal调用，“cdecl”表示C程序调用。使用何种
方式由DLL的编译过程决定，可以试验决定。
“index ？”表示该函数的调用序号，使用它可提高调用速度，也可不用。
WATCH驱动程序调用如下：
function ICC_read_bin
(PortNo,BeginAddr,Length:integer;Bufointer):word;cdecl;
external 'CRWICC';

 

D

delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-02

• #7

用index 2当然报错，Index 2是power_on函数。
Init_com中的Port值为0 到 3, Com1 对应于0
Init_com返回是否正确？

 

V

victor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-03

• #8

Hello,Delphi:
init_com返回值为0，应该是正确的。

但sele_card和power_on都返回4，说是串口错误，
难道还要对串口进行设置吗？

谢！

 

D

delphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-03

• #9

我看只能检查COM口是否正确了，我觉得该驱动程序
对于不正确的COM口（比如读卡机在COM2上而初始化
的是COM1)也返回正确的值。老兄可以先在DOS下
确认读卡机的好坏及COM口的正确性。

 

V

victor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-10-03

• #10

谢谢delphi老兄的建议。
我先查查，若有问题，还得请教老兄。

 

V

victor

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1998-11-10

• #11

Delphi老兄：

在验证密码长度时(操作IC卡前)，CHK_SC()函数中的密码长度
如何定义，我的程序一直报密码长度不对。

谢！