Kofax DM API Manuel d'utilisateur Page 118

  • 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 117
98 CHAPTER 3
PCDPutDoc
Dim VersionID As Long
Dim TotalFileSize As Long
Dim TotalBytesWritten As Long
Dim Buffread As Long
'Set bdata ridiculously low for test purposes
'to increase the likelihood of corruption.
Dim bdata(16) As Byte
Dim objDoc As PCDDocObject
Set objDoc = New PCDDocObject
objDoc.SetProperty "%TARGET_LIBRARY", Library
objDoc.SetDST DST
'Set the Profile Form for this document.
objDoc.SetObjectType “DEF_PROF”
objDoc.SetProperty "DOCNAME", "Upload Test Doc"
objDoc.SetProperty "APP_ID", "MS WORD"
objDoc.SetProperty "AUTHOR_ID", "SMITH_J"
objDoc.SetProperty "TYPIST_ID", "SMITH_J"
'Set the Document Type, Letter, Memo, etc.
objDoc.SetProperty "TYPE_ID", "REPORT"
objDoc.SetProperty "ABSTRACT", _
"Imported via Custom Application"
objDoc.Create
If objDoc.ErrNumber <> 0 Then
Debug.Print objDoc.ErrNumber, _
objDoc.ErrNumber
Exit Sub
Else
Debug.Print "Created Document Profile!"
End If
DocNumber = objDoc.GetReturnProperty( _
"%OBJECT_IDENTIFIER")
VersionID = objDoc.GetReturnProperty( _
"%VERSION_ID")
Debug.Print "Doc Number: ", DocNumber, _
", Version ID: ", VersionID
Dim objPutDoc As PCDPutDoc
Set objPutDoc = CreateObject( _
"PCDClient.PCDPutDoc")
objPutDoc.SetDST DST
Vue de la page 117
1 2 ... 113 114 115 116 117 118 119 120 121 122 123 ... 527 528

Commentaires sur ces manuels

Pas de commentaire