Hey guys,
I have some code from a SDK,
the SDK is from : http://www.anviz.com/ for a network fingerprint reader.
This code it what they gave me to collect via TCP/IP, which works but wont get more than 25 records!! massive fail.
Any Ideas?
I have some code from a SDK,
the SDK is from : http://www.anviz.com/ for a network fingerprint reader.
This code it what they gave me to collect via TCP/IP, which works but wont get more than 25 records!! massive fail.
Code:
Private Sub Command24_Click()
Dim sFileText As String
Dim iFileNo As Integer
iFileNo = FreeFile
Dim RecordCount, RetCount As Long
Dim pClockings, pLongRun As Long
Dim clocking As CLOCKINGRECORD
lblStatus.Caption = "Status: Collecting"
If CKT_GetClockingNewRecordEx(IDNumber, pLongRun) Then
Do While True
ret = CKT_GetClockingRecordProgress(pLongRun, RecordCount, RetCount, pClockings)
If ret = 0 Then
Exit Sub
End If
If (ret <> 0) Then
Dim ptemp As Long
ptemp = pClockings
If pClockings > 0 Then
Open lblFilePath.Caption & Format$(Now, "dd-mm-yy-hhmmss") & ".csv" For Output As #iFileNo
Else
Open lblFilePath.Caption & "Latest.log" For Output As #iFileNo
End If
For i = 1 To RetCount
Call PCopyMemory(clocking, pClockings, CLOCKINGRECORDSIZE)
pClockings = pClockings + CLOCKINGRECORDSIZE
Print #iFileNo, IDNumber & "," & clocking.PersonID & "," & clocking.Time & ",0,"
Next
Close #iFileNo
End If
lblStatus.Caption = "Status: Collection Complete"
If ptemp <> 0 Then
Call CKT_FreeMemory(ptemp)
End If
If ret = 1 Then
Exit Sub
End If
Loop
Else
lblStatus.Caption = "Status: Nothing to Collect"
End If
End Sub