Kofax DM API Manuel d'utilisateur Page 120

  • Télécharger
  • Ajouter à mon manuel
  • Imprimer
  • Page
    / 528
  • Table des matières
  • MARQUE LIVRES
  • Noté. / 5. Basé sur avis des utilisateurs
Vue de la page 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
Vue de la page 119
1 2 ... 115 116 117 118 119 120 121 122 123 124 125 ... 527 528

Commentaires sur ces manuels

Pas de commentaire