求救﹗﹗VB的朋友來幫下我﹗很簡單的問題﹗﹗﹗

Question

這是一個關于設置考勤機的程序﹐附件里是廠商提供的VB實例﹗是調用DLL的﹐我只要知道是怎么調用的﹐那個函數的原型就OK了關于這個函數說明書里也有﹐但不詳細﹗如下﹕
3.13、批量读数据(^2G)
语法：
      function BatchReadRecord(hPort: THandle; var Records: array of TICRecord{; ArraySize: Integer}): Integer;
      参数说明：
      hPort        : 端口句柄, 需要联机
Records      : 返回记录数组, 最少需要16个单元
ArraySize    : Delphi不需要,如果是VB或是C++需要传数组大小参数
      返回变量：
-1           : 错误
0            : 记录已经读完
1-16         : 正确读取的记录条数**它沒說明TICRecord這個記錄的原型﹗所以DELPHI做就無從下手了﹗
只要直接幫我把附件VB實例中的代碼貼出來﹗我這里沒裝VB ﹐所以  (﹕  !!!!
VB實例下載地址﹕ http://bbs.2ccc.com/attachments/xie116_200563015378.rar

Answer 1

我没法上其他网站无法看例子，凭经验写的 试试吧dim vRec() as variant
dim nCount as long 
    nCount=100
    redim vRec(100) as variant
if BatchReadRecord(8192,vRrec,nCount)>0 then
  msgbox "OK"
end if

Answer 2

dim nCount as integer
8192这是要改成实际连接的端口号的

Answer 3

誰來幫下我呀
只要直接下載 http://bbs.2ccc.com/attachments/xie116_200563015378.rar 這個實例
再用VB打開源程序﹐再打全部代碼貼上來就OK了﹗﹗﹗
我是沒裝VB才到這來求救的﹗﹗﹗﹗﹗謝了

Answer 4

Type TICRecord
    card       As String * 20    ' 卡号字符串
    TimeString   As String * 20    ' 14位刷卡时间字符串, 格式为yyyymmddhhnnss
    EmpId        As String * 10
    Mark       As Long               ' 读卡机标识字符
    flag       As Long                ' 存储卡的结果
                           ' flag = 0   : 表示为正常卡
                           ' flag.0 = 1 : 表示为非法门禁卡
                           ' flag.1 = 1 : 表示为非法考勤卡
                           ' flag.2 = 1 : 表示为黑名单卡
    cardTimes As Long            ' 发卡次数, 0-15
    cardGroup As Long           ' 卡的组别, 0-255
End Type