有兴趣的请进：asp调用 flashpaper问题 - 编程论坛

asp调用swftools工具将pdf转swf成功,为何用同样方法调用flashpaper将doc转pdf不成功,提示:命令执行失败,返回码:1。请问:问题出在哪里?

<%

Dim strdocFile        ' doc的文件名
Dim strpdfFile        ' pdf的文件名
Dim strCmd            ' 命令行

strdocFile = "D:\APMServ5.2.6\www\htdocs\pdfswf\pdf\a.doc"
strpdfFile = "D:\APMServ5.2.6\www\htdocs\pdfswf\swf\a.pdf"

    '命令行
    strCmd = "D:\FlashPaper2.2\FlashPrinter.exe  "&strdocFile&" -o "&strpdfFile&""


'执行命令行
Dim objShell
Dim intSecceed
Set objShell = Server.CreateObject("WScript.Shell")
Response.Write(strCmd & "<hr>")
intSecceed = objShell.Run(strCmd,0,True)
If intSecceed = 0 Then
    Response.Write("命令成功执行,返回码:" & intSecceed)
Else
    Response.Write("命令执行失败,返回码:" & intSecceed)
End If

%>

Macromedia FlashPaper2.2和contribute3.1一样都是Studio 8里的组件，FlashPaper的作用就是可以把Office文档（Word、Excel、PowerPoint）转换成为SWF格式的Flash文件和PDF文档，转换速度非常快，效果非常漂亮。我转换过一个两百多页的Word文档，只用了一分钟左右。此外，也可以将图片转换成PDF或者Flash影片。小弟昨天弄了大半天，终于做好了这个绿色版本。希望大家喜欢。只要首先运行初始化文件夹中的“初始化.bat”就可以了，如果提示“没有找到Flash播放器”那就再运行“GetFlash.exe”。
下载地址:http://www.

附asp调用swftools代码:

<%

Dim strpdfFile        ' pdf的文件名
Dim strswfFile        ' swf的文件名
Dim strCmd            ' 命令行

strpdfFile = "D:\APMServ5.2.6\www\htdocs\pdfswf\pdf\a.pdf"
strswfFile = "D:\APMServ5.2.6\www\htdocs\pdfswf\swf\a.swf"

    '命令行
    strCmd = "D:\SWFTools\pdf2swf "&strpdfFile&" -o "&strswfFile&" -T 9 -f -s languagedir=D:\SWFTools\xpdf\xpdf-chinese-simplified"


'执行命令行
Dim objShell
Dim intSecceed
Set objShell = Server.CreateObject("WScript.Shell")
Response.Write(strCmd & "<hr>")
intSecceed = objShell.Run(strCmd,0,True)
If intSecceed = 0 Then
    Response.Write("命令成功执行,返回码:" & intSecceed)
Else
    Response.Write("命令执行失败,返回码:" & intSecceed)
End If

%>

[ 本帖最后由 thbwn 于 2010-9-15 19:33 编辑 ]