有 关ic卡的读取问题(100分)

我的关于读卡的子程序，其中引用了厂家给的dll文件中的函数，你看看吧
procedure Tmainfrm.readcard;
var
mdatype,mdamemsize,mdafl,mdaol,mdard,mdawrp,mdawrc,carddata: string;
ret: Smallint;
len,curlen,addr:byte;
begin
carddata := StringOfChar(' ',65);
mdatype := StringOfChar(' ',12);
mdamemsize := StringOfChar(' ',12);
mdafl := StringOfChar(' ',12);
mdaol := StringOfChar(' ',12);
mdard := StringOfChar(' ',12);
mdawrp := StringOfChar(' ',12);
mdawrc := StringOfChar(' ',12);
addr :=13;
len :=40;
//Screen.Cursor := crHourglass;
SetLamp(3);
ret := ReadMDAType(hComDev,20,mdatype,mdamemsize,mdafl,mdaol,mdard,mdawrp,mdawrc);
Sleep(100);
SetLamp(2);
if ret<>0 then
begin
Screen.Cursor := crDefault;
Exit;
end;
while ( len>0 ) do
begin
if len>32 then
curlen := 32
else
curlen := len;
SetLamp(3);
ret := genReadCard(hComDev,20,addr,curlen,carddata);
if ret=0 then
begin
edit6.text:=edit6.text+carddata;
end;
SetLamp(2);
if ret<>0 then
begin
Screen.Cursor := crDefault;
Exit;
end;
len := len-curlen;
end;
Screen.Cursor := crDefault;
end;

I have a program with Borland Productor Delphi 6.0
It's a very good !

我有深圳明华公司的IC卡程序，跟你这个也差不了多少吧，手上还鼐个自己写的程序，如果你要的话就回个信
yyyybbbb1974@hotmail.com

各位，呵呵，开始分分了吗？还是继续让他留在这个，让大家都交流一下？？？
表决：）举手：）

拿了一个mifare 卡的读写器，可是只有一个动态库，居然没函数说明，不知道怎么调用

给了一个VB的例子，可咱看不懂，也没装VB，

有谁有这方面的资料吗，给我一个，如果有DElphi下调用的说明或DEMO就更好

gxgong@public.ywptt.zj.cn

to InTrain :
你原来不使用 ID卡啊！
用 M1吗？
我们最初做的时候也费了点劲.
不过现在解决了！哈哈！和VB基本是一样的。
......

wee

to itren
原来用ID卡，现在又用M1卡
拿了一个读写器，只有C的说明，VB的例子，我都不会用
C还懂一点，VC就没用过，真麻烦，我程序都写好了，就剩卡部分了

long pascal RF_Read(long blockno,unsigned char *readbuff)
在DELPHI中
function RF_Read(blockno:integer;readbufointer):integer;
这样没错吧，可是怎么都读不出来

还有，在M1中有个电子钱包的功能，还有是双密码的，能告诉我都
怎么用嘛，是单密码还是双密码？

如果谁有读卡器的例子请也发给我一份。谢谢！
lgq4@0451.com

请问卡中的数据是存在卡里还是服务器上

只读卡是存在数据库中的 如EM卡
可写卡可以存在卡里 如M1卡