Kofax DM API - Manual (Page 80)

60 C HAPTER 3
PCDGetStream
lngTotCount = lngTotCount + lngCurCount
bytInArray = objGetStream.Read(5120)
lngCurCount = objGetStream.BytesRead
Wend
If (objGetStream <> 0) Then
'Error: Unexpected end to read loop.
Else
If (lngTotCount > 0) Then
MsgBox "Done. File is " & _
CStr(lngTotCount) & _
" Bytes in Length."
Else
'Error: Read Failed. Process the error.
End If
End If
Set objDoc = Nothing
Set objGetDoc = Nothing
Set objGetStream = Nothing
.
.
.
Related Items
See the following methods:
GetPropertyValue
Read
Seek
SetComplete
See the following properties:
BytesRead
ErrDescription
ErrNumber