I have some code to merge PDF that I am pretty sure used to work, but now pdftk crashes hard… Can any body see an issue with this code?
(BTW I use join.py on the Mac for this)
[code]Sub MergePDFFiles(destination as FolderItem, PDFs() as folderitem)
#If TargetWin32
Static pdftk as String = ResourceFolder.Child(“pdftk.exe”).ShellPath
dim cmdArr() as String
dim ub as Integer =PDFs.Ubound, i as Integer
reDim cmdArr(ub + 3)
for i = 0 to ub
cmdArr(i) = PDFs(i).ShellPath
Next
cmdArr(ub +1) = "cat"
cmdArr(ub +2) = "output"
cmdArr(ub +3) = destination.ShellPath
Dim s as New Shell
If s.ErrorCode <> 0 Then
MsgBox("Error code: " + Str(s.ErrorCode))
Return
End If
s.Execute(pdftk, Join(cmdArr, " " ))
#endif
End Sub
[/code]
Changing to this does not work either:
[code]Sub MergePDFFiles(destination as FolderItem, PDFs() as folderitem)
#If TargetWin32
Static pdftk as String = ResourceFolder.Child(“pdftk.exe”).ShellPath
dim cmdArr() as String
dim ub as Integer =PDFs.Ubound, i as Integer
reDim cmdArr(ub + 3)
for i = 0 to ub
cmdArr(i) = PDFs(i).ShellPath
Next
cmdArr(ub +1) = "cat"
cmdArr(ub +2) = "output"
cmdArr(ub +3) = "-"
Dim s as New Shell
If s.ErrorCode <> 0 Then
MsgBox("Error code: " + Str(s.ErrorCode))
Return
End If
Dim Stream as BinaryStream = BinaryStream.Create(destination)
s.Execute(pdftk, Join(cmdArr, " " ))
Stream.Write S.Result
Stream.Close
#endif
End Sub
[/code]