求救﹗﹗哪位裝了VB的朋友來幫下我﹗很簡單的問題﹗﹗﹗ ( 积分: 6 )

這是一個關于設置考勤機的程序﹐附件里是廠商提供的VB實例﹗

哪位裝了VB的朋友幫我看一下那個采集數據按紐的函數原型﹗

關于這個函數說明書里也有﹐但不詳細﹗如下﹕
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

這是一個關于設置考勤機的程序﹐附件里是廠商提供的VB實例﹗

哪位裝了VB的朋友幫我看一下那個采集數據按紐的函數原型﹗

關于這個函數說明書里也有﹐但不詳細﹗如下﹕
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

Declare Function BatchReadRecord Lib "EastRiver.dll&quot
(ByVal hPort As Long, ByVal Records As String, ByVal arraysize As Long) As Long

Private Sub Command1_Click()'批量读数据按钮
Dim flag As Boolean
Dim K As Long
Dim nLine As Long
Dim DataBuff As String * 1100
Dim strLine As String
Dim Count As Long

Count = 0
flag = True
RefreshClock
If OpenPort(port, baudrate, ClockNo) Then
'Text5.Text = "[&quot
+ CStr(port) + &quot
号端口&quot
+ CStr(ClockNo) + &quot
号机 成功打开！"
Do While flag = True
nLine = BatchReadRecord(hPort, DataBuff, 1100)
If nLine = 0 Or nLine = -1 Then flag = Flase
If nLine > 0 Then
Open (filename) For Append As #1
For K = 0 To nLine - 1
strLine = CStr(ClockNo) + vbTab + Format(Mid(DataBuff, K * 66 + 1, 10), "0000000000&quot + vbTab + Mid(DataBuff, K * 66 + 21, 14) + vbTab + Mid(DataBuff, K * 66 + 51, 1) + Mid(DataBuff, K * 66 + 52, 1)
List1.AddItem strLine
Print #1, strLine
Count = Count + 1
Next K
Close #1
End If
Loop
If Count > 0 Then
Text5.Text = "下载记录总数&quot
&amp
Count
Else
Text5.Text = CStr(ClockNo) &amp
&quot
号机内没有数据"
End If
ClosePort
Else
Text5.Text = CStr(ClockNo) + "号机联机失败"
End If
End Sub

不知道能不能帮你。