activePDF DocConverter - Beispiel-Code und HowTo's

<%
FileToConvert = "word.doc"
strPath = Server.MapPath(".") & "\"

Set DocConverter = CreateObject("APDocConv.Object")

IPAddress = "127.0.0.1"
ServerPort = 0 ' Use the default
SupportsZip = False

FileToConvert = strPath & FileToConvert
OutputDirectory = strPath & "complete"
ErrorsDirectory = strPath & "errors"
OriginalsDirectory = strPath & "documents"
%>

<%
Response.Write "File to be converted: _
" & FileToConvert & "<br>"
Response.Write "PDF will be created in: _
" & OutputDirectory & "<br>"
Response.Write "Error files will be sent here: _
" & ErrorsDirectory & "<br>"
Response.Write "Original file will be placed in: _
" & OriginalsDirectory & "<p>"
%>
<%
lRet = DocConverter.Submit(IPAddress, ServerPort, FileToConvert, _
OutputDirectory, ErrorsDirectory, OriginalsDirectory, _
ScriptName, ScriptLang, SupportsZip, ProcessorOptions)
DocConverter.StatusTimeout = 120
If lRet <> 0 Then
Response.Write "Submit Return (0 success): " & lRet
End If

'CheckStatus IP needs to be blank (for local)
'when using the latest build of DC
RetVal = DocConverter.CheckStatus("", ServerPort, FileToConvert, _
OutputDirectory, ErrorsDirectory)
If RetVal <> 1 Then
Response.Write "CheckStatus Error Code: " & RetVal
End If
If RetVal = 1 Then
Response.Write "Success"
End If

Set DocConverter = Nothing
%>