Kofax DM API Bedienungsanleitung Seite 120

  • Herunterladen
  • Zu meinen Handbüchern hinzufügen
  • Drucken
  • Seite
    / 528
  • Inhaltsverzeichnis
  • LESEZEICHEN
  • Bewertet. / 5. Basierend auf Kundenbewertungen
Seitenansicht 119
100 CHAPTER 3
PCDPutDoc
Else
TotalFileSize = TotalBytesWritten
End If
Get #1, , bdata
objPutStream.Write bdata, TotalBytesWritten
Debug.Print TotalBytesWritten, _
objPutStream.BytesWritten, _
objPutStream.ErrNumber, _
objPutStream.ErrDescription
TotalBytesWritten = TotalFileSize - _
TotalBytesWritten
End If
Wend
objPutStream.SetComplete
Close #1
Set objPutSteam = Nothing
Set objDoc = Nothing
Set objDoc = New PCDDocObject
objDoc.SetDST DST
objDoc.SetObjectType “DEF_PROF”
objDoc.SetProperty "%TARGET_LIBRARY", Library
objDoc.SetProperty "%OBJECT_IDENTIFIER", _
DocNumber
objDoc.SetProperty "%VERSION_ID", VersionID
objDoc.SetProperty "%STATUS", "%UNLOCK"
objDoc.Update
If objDoc.ErrNumber <> 0 Then
Debug.Print objDoc.ErrNumber, _
objDoc.ErrDescription
End If
Set objPutDoc = Nothing
Set objDoc = Nothing
Debug.Print "Upload completed!"
End Sub
Seitenansicht 119
1 2 ... 115 116 117 118 119 120 121 122 123 124 125 ... 527 528

Kommentare zu diesen Handbüchern

Keine Kommentare