Sample script for an export event
Public Function fnJSAPIProfileCall(ByVal profileName As String,
pWorkdoc As SCBCdrPROJLib.SCBCdrWorkdoc)
Dim SOAPResponse, XML
SOAPResponse = fnJSAPIStart(profileName, pWorkdoc)
' Parse START response
Set XML = CreateObject("Microsoft.XMLDOM")
XML.setProperty "SelectionLanguage", "XPath"
XML.async = False
XML.loadXML(SOAPResponse)
Dim names, values
Set names = XML.selectNodes("//name")
Set values = XML.selectNodes("//value")
Dim key, sessionID, scanUrl, tomcatIP, webdavUser, webdavPasswd
Dim idx
For idx=0 To names.length-1
key = names(idx).Text
If key = "sessionID" Then
sessionID = values(idx).Text
ElseIf key = "tomcatIP" Then
tomcatIP = values(idx).Text
ElseIf key = "scanUrl" Then
scanUrl = values(idx).Text
ElseIf key = "webdavUser" Then
webdavUser = values(idx).Text
ElseIf key = "webdavPasswd" Then
webdavPasswd = values(idx).Text
End If
Next
' Optionally put the original tiff to the correct webdav folder
' location for processing by the script being run.
Dim doWebDavPut As Boolean
doWebDavPut = True ' hardcoded True for this example
If doWebDavPut Then
Dim http, fNameWithoutExt, fName, fileObject, fileBytes
' Original tiff file
fNameWithoutExt = Left(pWorkdoc.Filename, CStr(Len(pWorkdoc.Filename) - 3))
fName = fNameWithoutExt & "tif"
' Load tif bytes
Set fileObject = CreateObject("ADODB.Stream")
fileObject.type = 1
fileObject.Open
fileObject.LoadFromFile fName
fileBytes = fileObject.Read
' webdav put bytes
Set http = CreateObject("MSXML2.XMLHTTP.3.0")
http.Open "PUT", scanUrl & "/scan.0.file.0.tif", False, webdavUser, webdavPasswd
http.setRequestHeader "translate", "f" ' Set this to prevent stream problems
http.Send fileBytes ' Send the stream across
End If
fnJSAPIMetadata(sessionID, scanUrl, tomcatIP)
End Function