Kofax DM API Manuel d'utilisateur Page 42

  • 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 41
22 CHAPTER 1
Document Objects
If (rec.ErrNumber <> 0) Then
MsgBox "Fetch Doc Failure on Execute: " & _
rec.ErrNumber & " " & rec.ErrDescription, _
, "Fetch Doc"
Else
lim = rec.GetRowsFound
i = 1
While i <= lim
rec.NextRow
If (rec.ErrNumber <> 0) Then
i = lim + 1
MsgBox "Fetch Doc Failure on Execute: " _
& rec.ErrNumber & " " & _
rec.ErrDescription, , "Fetch Doc"
End If
If (i = 1) Then
Set gd = rec.GetPropertyValue("%CONTENT")
On Error GoTo saveFailed
FileName = "c:\temp\" & _
Trim(docnumber) & "_" & _
Trim(versionid) & ".doc"
Open FileName For Binary Access Write _
As #1
bdata() = ""
bdata() = gd.Read(1024)
While (gd.BytesRead > 0)
Put #1, , bdata()
bdata() = ""
bdata() = gd.Read(1024)
Wend
Close #1
GoTo saveDone
saveFailed:
MsgBox "Fetch Doc Failure File Open: " _
& "Fetch Doc"
savecancelled:
On Error Resume Next
saveDone:
End If
i = i + 1
Wend
Vue de la page 41
1 2 ... 37 38 39 40 41 42 43 44 45 46 47 ... 527 528

Commentaires sur ces manuels

Pas de commentaire