F
flywheel
Unregistered / Unconfirmed
GUEST, unregistred user!
小弟用delphi开发ic卡读写程序。用了公司提供的C++库函数,声明如下
FUNCTION OpenCom(port:integer;baud:Longint):integer;
stdcall;external 'mc900_32.dll';
FUNCTION CloseCom(port:integer):integer;
stdcall;external 'mc900_32.dll';
Procedure DefineCard(port:integer;cardtype:integer;var rc:integer);
stdcall;external 'mc900_32.dll';
Procedure PowerOn(port:integer;var data:ary;Var me1:byte;var me2:byte;
var status:integer;var line:integer);
stdcall;external 'mc900_32.dll';
Procedure PowerOff(port:integer;var status:integer;var line:integer);
stdcall;external 'mc900_32.dll';
FUNCTION ICread_4428(port:integer;addr:integer;datalen:integer;
var pdada:ary;var me1:byte;var me2:byte;
var status:integer;var line:integer):integer;
stdcall;external 'mc900_32.dll';
FUNCTION ICwrite_4428(port:integer;addr:integer;datalen:integer;
var pdata:ary;var me1:byte;var me2:byte;
var status:integer;var line:integer):integer;
stdcall;external 'mc900_32.dll';
FUNCTION ICPassword_4428(port:integer;var pdata:ary;var me1:byte;var me2:byte;
var status:integer;var line:integer):integer;
stdcall;external 'mc900_32.dll';
使用时i:=ICread_4428(m,100,100,data,me1,me2,status,line);
编译通过,但无法读出数据,各位大虾看看是什么原因啊!谢谢!!
FUNCTION OpenCom(port:integer;baud:Longint):integer;
stdcall;external 'mc900_32.dll';
FUNCTION CloseCom(port:integer):integer;
stdcall;external 'mc900_32.dll';
Procedure DefineCard(port:integer;cardtype:integer;var rc:integer);
stdcall;external 'mc900_32.dll';
Procedure PowerOn(port:integer;var data:ary;Var me1:byte;var me2:byte;
var status:integer;var line:integer);
stdcall;external 'mc900_32.dll';
Procedure PowerOff(port:integer;var status:integer;var line:integer);
stdcall;external 'mc900_32.dll';
FUNCTION ICread_4428(port:integer;addr:integer;datalen:integer;
var pdada:ary;var me1:byte;var me2:byte;
var status:integer;var line:integer):integer;
stdcall;external 'mc900_32.dll';
FUNCTION ICwrite_4428(port:integer;addr:integer;datalen:integer;
var pdata:ary;var me1:byte;var me2:byte;
var status:integer;var line:integer):integer;
stdcall;external 'mc900_32.dll';
FUNCTION ICPassword_4428(port:integer;var pdata:ary;var me1:byte;var me2:byte;
var status:integer;var line:integer):integer;
stdcall;external 'mc900_32.dll';
使用时i:=ICread_4428(m,100,100,data,me1,me2,status,line);
编译通过,但无法读出数据,各位大虾看看是什么原因啊!谢谢!!