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。。等返不回正确的值???