procedure TForm1.Button1Click(Sender: TObject);
var
  OldPassWord,TemStr:string;
  RTurn,State,CardNo,LssjCount,Balance,butiemoney,butietime , yj,todayxfje,todayxftime,GB,Checkjh,CheckLimit,Isclear,i:Integer;
  LimitDate,Name,mima:PChar;
begin

    GetMem(Name,20);
    GetMem(mima,10);
    GetMem(LimitDate,20);
    RTurn:=ReadAllInfo(6,10,'FFFFFFFFFFFF',State,CardNo,Name,LimitDate,LssjCount,Balance,butiemoney,todayxfje,todayxftime,butietime,GB,yj,Checkjh,CheckLimit,Isclear , mima);

   IF    RTurn=1 then begin
           edit1.Text:=    Format('%.5d',[CardNo]);
    end ;
    TemStr:=    IntToStr(Balance)     ;

    Application.MessageBox(PChar('卡上余额:'+TemStr),'提示',64) ;
    edit2.Text:=     TemStr     ;
end;

=====================================以上是delphi================================

DECLARE _ReadAllInfo@76 IN "ICXF.DLL"  AS ReadAllInfo  ;
    INTEGER port,         INTEGER AreaNumber,     STRING MM,             INTEGER state,         INTEGER cardno, ;
    STRING @ chinaxm,     STRING @ LogOutDate,         INTEGER LssjCount,     INTEGER balance,     INTEGER butiemoney, ;
    INTEGER todayxfje,     INTEGER todayxftime,     INTEGER butietime,     INTEGER GB,         INTEGER yj, ;
    INTEGER Checkjh,     INTEGER CheckLimit,     INTEGER Isclear ,     STRING @ Mima

State=0
CardNo=0
chinaxm=Replicate(CHR(0), 20)
LogOutDate= Replicate(CHR(0), 10)
LssjCount=0
balance=0
butiemoney=0
todayxfje=0
todayxftime=0
butietime=0
GB=0
yj=0
Checkjh=0
CheckLimit=0
Isclear =0
mima=Replicate(CHR(0), 20)

ReadAllInfo(6,10,"FFFFFFFFFFFF",State,CardNo,;
    @ chinaxm,@ LogOutDate,LssjCount,balance,butiemoney,;
    todayxfje,todayxftime,butietime,GB,yj,;
    Checkjh,CheckLimit,Isclear ,@ Mima)
   
MESSAGEBOX(CardNo)

===================================以上是改为 vfp===============
问题：ReadAllInfo 这个调用失败 (执行到这个函数时)
错误：
  declare DLL call caused an exception

http://kqt007.blog.

上面的网址给我没用，这个dll文件，有很多调用函数，别的都OK,就是这个不行，不知是什么原因？
是不是参数有问题呢？

试下：
DECLARE _ReadAllInfo@76 IN "ICXF.DLL" AS ReadAllInfo ......
改为：
DECLARE LONG _ReadAllInfo@76 IN "ICXF.DLL" AS ReadAllInfo ......

还是一样的

ic卡初始的密码是 "FFFFFFFFFFFF" ,一共12个 F,我都没有改密码

如果
ReadAllInfo(6,10,"FFFFFFFFFFFF",State,CardNo,; 这里把密码改到，可以执行，但是取不到数据

"FFFFFFFFFFFF"，这字串改用地址传送试过未?
Delphi的字串与VFP有点不同，特别是Delphi的short字串，第一个字节表示串长。