Vb中函数声明
Declare Function Query_Pos_Card12 Lib "YCCard" (ByVal icdev&, ByRef CardType&, ByRef Opt_Num&, ByRef SerNo&, ByVal CardNo$, ByRef cardserno&, ByRef Value&, ByRef count&, ByRef UserType&, ByRef Consum_Add&, ByRef useterm As Long, ByRef AddCount&, ByVal WaitTime&) As Long我在delphi中声明:
function Query_Pos_Card12(dev:integer;var CardType:integer; var Opt_Num:integer;var serno:integer;cardno:string;var cardserno:longint;
var Value:integer; var count:integer; var usertype:integer; var Consum_Add:integer; var Use_Term:integer; var AddCount:integer;WaitTime:integer):integer; stdcall;external 'yccard.dll';调用: ret := Query_Pos_Card12(dev, usetype, opt_Num, serno, cardno, cardserno, value, count, cardtype, Consum_Add, use_term, Count_Add, 200);
为何出口参数:usetype, opt_Num, serno, cardno, cardserno。。等返不回正确的值???
Declare Function Query_Pos_Card12 Lib "YCCard" (ByVal icdev&, ByRef CardType&, ByRef Opt_Num&, ByRef SerNo&, ByVal CardNo$, ByRef cardserno&, ByRef Value&, ByRef count&, ByRef UserType&, ByRef Consum_Add&, ByRef useterm As Long, ByRef AddCount&, ByVal WaitTime&) As Long我在delphi中声明:
function Query_Pos_Card12(dev:integer;var CardType:integer; var Opt_Num:integer;var serno:integer;cardno:string;var cardserno:longint;
var Value:integer; var count:integer; var usertype:integer; var Consum_Add:integer; var Use_Term:integer; var AddCount:integer;WaitTime:integer):integer; stdcall;external 'yccard.dll';调用: ret := Query_Pos_Card12(dev, usetype, opt_Num, serno, cardno, cardserno, value, count, cardtype, Consum_Add, use_term, Count_Add, 200);
为何出口参数:usetype, opt_Num, serno, cardno, cardserno。。等返不回正确的值???
解决方案 »
- ditDirectory未定义,莫名奇妙啊
- mscomm接受数据问题!查了很多帖,还是没解决。。。。。求助
- 再问一个简单的,如何移动一个文件?
- 用inteaweb中的isapiapplication生成的dll发布有问题
- 现在‘非典’好多啊,晕。。。。。。。
- Interface not supported,Delphi作Com+服务时,有客户端报此错,紧急求助!!
- 在Indy控件中如何设定tcp连接超时。
- 我用ADO连接sql server2000数据库,连接如下
- 怎么很久没有看到AIRHORSE和INSIDEDELPHI了
- 如何进行odbc配置呀
- 这种运算要用什么类型?
- 如何获得进程内所有同名的PID值?
?