delphi调用VC动态库报错，请大家帮忙看看

[lihongling0994]

VC动态库的接口函数：
int Query_Pos_Card12（HANDLE icdev，LPINT CardType, LPINT Opt_Num, LPINT Serno，LPSTR Cardno，
unsgind long * CardSerno， LPINT Value，LPINT Count，LPINT UserType，,LPINT Consum_Add, LPINT use_term ,
int WaitTime）

delphi的调用函数：
Function Query_Pos_Card12(icdev : longint ;CardType : PINT ;Opt_Num : PINT ;Serno : PINT ;
Cardno : LPSTR ;CardSerno : PUINT ;Value : PINT ;Count : PINT ;UserType : PINT ;
varConsum_Add : PINT ;use_term : PINT ; WaitTime : integer):smallint; stdcall;
far;external 'yccard.dll' name 'Query_Pos_Card12';

我调用的代码：
var
i : integer;
CardType : PINT;
Opt_Num : PINT;
Serno : PINT;
Cardno : LPSTR;
CardSerno : PUINT;
Value : PINT;
Count : PINT;
UserType : PINT;
Consum_Add : PINT;
use_term : PINT;
begin
{Query_Pos_Card12(icdev : longint ; CardType : PINT ; Opt_Num : PINT ; Serno : PINT ;
Cardno : LPSTR ; CardSerno : LPUINT ; Value : PINT ; Count : PINT ; UserType : PINT ;
Consum_Add : PINT ; use_term : PINT ; WaitTime : integer) }
i := Query_Pos_Card12(icdev , CardType , Opt_Num , Serno , Cardno , CardSerno , Value , Count , UserType , Consum_Add , use_term , 500);
showmessage(inttostr(i));
end;


问题是我一调用就报内存错误，我估计是参数类型不匹配，但是我哪里出错的呢，我又找不到，请大家帮我看看

[hahazaiha]

把你的动态库发上来试试

[林石公]

LPSTR似乎应当对应PChar

[hahazaiha]

得先知道HANDLE ，PUINT 等 在VC里面是什么类型 然后在你的调用函数里用相应的类型代替，应该没什么问题

[Seamour]

stdcall -> cdecl
SmallInt -> Integer
别的懒得仔细看了

[bluegloom]

楼主在吗，我的qq是406179485,加我啊

[bluegloom]

你的qq告诉我