dll 为 'HG_interface.dll'LONG WINAPI InsureCard_ReadBankCardNo(\
TCHAR *strTrack,\
TCHAR *strCardNo,\
TCHAR *strTrack1,\
TCHAR *strTrack2,\
TCHAR *strTrack3
);
Arguments
数据类型 参数名 标志 参数说明 备注 参数值
Char * Track IN 磁道 NOTNULL
Char * CardNo OUT 卡号
Char * Track1 OUT 磁道1
Char * Track2 OUT 磁道2
Char * Track3 OUT 磁道3
Return
0成功
<0失败接口如何声明: ?
===============================================================dll 为 keydll.dll
ReadKeyA( char   *set  ,  char   *pwd  )输入项:
set           为固定字符串“2,9600,N,8,1”
输出项:
pwd          为返回输入密码值
接口如何声明: ?

解决方案 »

  1.   

    楼主自己调试一下,我没有试 :1.function InsureCard_ReadBankCardNo(strTrack:pchar;*strCardNo:pchar;strTrack1:pchar;strTrack2:pchar;*strTrack3:pchar):int64;far;stdcall;external 'HG_interface.dll';2.procedure ReadKeyA( set:pchar  , pwd :pcahr );far;stdcall;external 'keydll.dll';如果不行的话就是说不能这样调用,那么必须你自己用vc写一个动态库把vc中的char*转化成
    lpchar(调用原来的keydll.dll),实现以上函数功能.然后在用delphi调用你新写的库.
      

  2.   

    tsingtaosoft(谁是谁) 我问一下; 
    1 参数的IN和OUT有什么不同?
    2 还有那个别 set 是保留字怎么办?
      

  3.   

    改正
    2 还有那个 set 是保留字怎么办?
      

  4.   

    function InsureCard_ReadBankCardNo(var strTrack,strCardNo,strTrack1,strTrack2,strTrack3:pchar):int64;stdcall;external 'HG_interface.dll' name 'InsureCard_ReadBankCardNo';
    procedure ReadKeyA( set:pchar;var pwd :pcahr );stdcall;external 'keydll.dll' name 'ReadKeyA';
      

  5.   

    up, 救命啊!
    set 是保留字怎么办?