动态连接库调用问题,大家进来看看!

Question

//////////////////////////////////////////////////////////////////////////////////////////////////////////
// 功能： 取得主钱包的信息
// 输入参数：
// com 串口号 0:com1, 1:com2, 2:com3 ...
// 返回参数：
// IccID IC卡帐号
// userName 用户姓名
// balance 卡片余额
// amount 最后一次消费金额
// exchangeSn 卡片交易流水号
// 返回值：
// 0 成功
// 非0 失败(调用GetErrInfo可以获得详细的错误信息)
//////////////////////////////////////////////////////////////////////////////////////////////////////////
int __stdcall GetMainPurseInfo( int com, unsigned long* IccID, BYTE* userName, long* balance, short* amount, short* exchangeSn );我在delphi 里怎样调用VC的这个涵数;

Answer 1

function GetMainPurseInfo(com :Integer;IccID:PULONG;userName:PByte;balace:PLongint;amount:PShortint;exchangeSn:PShortint):Integer;stdcall;

Answer 2

////////////////////////////////////////////////////////////////////////////////////////////
// 功能: 获取详细的错误信息
// 输入参数:
// errCode 函数调用时返回的错误代码  
// 返回值： 成功 -- 详细的错误信息
// 失败 -- NULL
////////////////////////////////////////////////////////////////////////////////////////////
char* __stdcall GetErrInfo( int errCode, char* errInfo );
我在delphi 里怎样调用VC的这个涵数;

Answer 3

function GetErrInfo(errCode: Integer; errInfo: PChar): PChar; stdcall;

Answer 4

////////////////////////////////////////////////////////////////////////////////////////////
// 功能: 获取详细的错误信息
// 输入参数:
// errCode 函数调用时返回的错误代码  
// 返回值： 成功 -- 详细的错误信息
// 失败 -- NULL
////////////////////////////////////////////////////////////////////////////////////////////
char* __stdcall GetErrInfo( int errCode, char* errInfo );delphi调用怎么出错!???
  function GetErrInfo(ErrCode: Integer; var ErrInfo: PChar): PChar;
           far; stdcall; external 'KCCardInf.dll';
这个函数还是出错??