videoredo.net
videoredo.net
If you were using the VideoReDo5 interface then you should be able to change it VideoReDo6 and things should work. However, if you were using the old VideoReDo interface that will need some additional work. In Version 5, we mentioned that the VideoReDo interface was deprecated and being replaced with VideoReDo5. Some of the calls and methods were changed in the process. Considering that people had quite a few years to upgrade to the new interface we dropped support for the old interface in V6.
They're using the v5 interface and I changed it to v6. I didn't get a lot of time to really dig into the issue. It's creating the object but the calls they're making don't seem to work. My guess is it has to do with profile changes but again didn't get time to dig into it too far.
'Create VideoReDo object.
On Error Goto 0
set VideoReDoSilent = wscript.CreateObject( "VideoReDo6.VideoReDoSilent" )
set VideoReDo = VideoReDoSilent.VRDInterface
' Get number of profiles available.
numProfiles = VideoReDo.ProfilesGetCount()
if ( numProfiles > 0 ) then
for i = 0 to numProfiles-1
if (VideoReDo.ProfilesGetProfileIsEnabled(i)) then
wscript.echo(VideoReDo.ProfilesGetProfileXML(i))
end if
next
end if
' Close VRD
VideoReDo.ProgramExit()
' Exit with status 0
wscript.quit 0set Args = wscript.Arguments
if Args.Count < 2 then
wscript.stderr.writeline( "? Invalid number of arguments")
wscript.quit 1
end if
' Check for flags.
VrdAllowMultiple = false
lockFile = ""
x = ""
y = ""
dimensions = false
for i = 1 to args.Count
p = args(i-1)
if left(p,3)="/l:" then lockFile = mid(p,4)
if left(p,3)="/x:" then x = mid(p,4)
if left(p,3)="/y:" then y = mid(p,4)
if p = "/m" then VrdAllowMultiple = true
next
' Check that a lock file name was given
if ( lockFile = "" ) then
wscript.stderr.writeline( "? Lock file (/l:) not given" )
wscript.quit 2
end if
' Check if x & y dimensions were given
if ( not x = "" ) then
if ( not y = "" ) then
dimensions = true
end if
end if
' Decide on output types
profileName = "Transport Stream"
if ( c = "mp4" ) then
profileName = "MP4"
end if
Set fso = CreateObject("Scripting.FileSystemObject")
sourceFile = args(0)
destFile = args(1)
'Create VideoReDo object and open the source project / file.
if (VrdAllowMultiple) then
On Error Goto 0
Set VideoReDo = WScript.CreateObject( "VideoReDo6.Application" )
else
On Error Goto 0
set VideoReDoSilent = wscript.CreateObject( "VideoReDo6.VideoReDoSilent" )
set VideoReDo = VideoReDoSilent.VRDInterface
end if
'Hard code no audio alert
VideoReDo.ProgramSetAudioAlert( false )
' Open source file
' 2nd arg has to be true for qsfix mode to apply
openFlag = VideoReDo.FileOpen(sourceFile, true)
if openFlag = false then
wscript.stderr.writeline( "? Unable to open file/project: " + sourceFile )
wscript.quit 3
end if
if (dimensions) then
wscript.stdout.writeline( "Dimensions Filter Enabled: x=" + x + " y=" + y)
VideoReDo.FileSetFilterDimensions x, y
end if
' Open output file and start processing.
outputFlag = VideoReDo.FileSaveAs( destFile, profileName )
outputXML = ""
if outputFlag = false then
wscript.stderr.writeline("? Problem opening output file: " + destFile )
wscript.stderr.writeline(outputXML)
wscript.quit 4
end if
' Wait until output done.
while( VideoRedo.OutputGetState <> 0 )
percent = "Progress: " & Int(VideoReDo.OutputGetPercentComplete()) & "%"
wscript.echo(percent)
if not fso.FileExists(lockFile) then
VideoReDo.OutputAbort()
endtime = DateAdd("s", 15, Now)
while( VideoReDo.OutputGetState <> 0 And (Now < endtime) )
wscript.sleep 500
wend
VideoReDo.ProgramExit()
wscript.quit 5
end if
wscript.sleep 2000
wend
VideoReDo.ProgramExit()
' Exit with status 0
wscript.echo( " Output complete to: " + destFile )
wscript.quit 0set Args = wscript.Arguments
if Args.Count < 2 then
wscript.stderr.writeline( "? Invalid number of arguments")
wscript.quit 1
end if
' Check for flags.
VrdAllowMultiple = false
lockFile = ""
profileName = ""
for i = 1 to args.Count
p = args(i-1)
if left(p,3)="/l:" then lockFile = mid(p,4)
if left(p,3)="/p:" then profileName = mid(p,4)
if p = "/m" then VrdAllowMultiple = true
next
' Check that a lock file name was given
if ( lockFile = "" ) then
wscript.stderr.writeline( "? Lock file (/l:) not given" )
wscript.quit 2
end if
' Check that a profile name was given
if ( profileName = "" ) then
wscript.stderr.writeline( "? Profile name not given" )
wscript.quit 2
end if
Set fso = CreateObject("Scripting.FileSystemObject")
sourceFile = args(0)
destFile = args(1)
'Create VideoReDo object and open the source project / file.
if (VrdAllowMultiple) then
On Error Goto 0
On Error Resume Next
Set VideoReDo = WScript.CreateObject( "VideoReDo6.Application" )
else
On Error Goto 0
set VideoReDoSilent = wscript.CreateObject( "VideoReDo6.VideoReDoSilent" )
set VideoReDo = VideoReDoSilent.VRDInterface
end if
'Hard code no audio alert
VideoReDo.ProgramSetAudioAlert( false )
' Open source file
openFlag = VideoReDo.FileOpen(sourceFile, false)
if openFlag = false then
wscript.stderr.writeline( "? Unable to open file/project: " + sourceFile )
wscript.quit 3
end if
' Open output file and start processing.
outputFlag = VideoReDo.FileSaveAs( destFile, profileName )
if outputFlag = false then
wscript.stderr.writeline("? Problem opening output file: " + destFile )
wscript.quit 4
end if
' Wait until output done and output % complete to stdout
while( VideoRedo.OutputGetState <> 0 )
percent = "Progress: " & Int(VideoReDo.OutputGetPercentComplete()) & "%"
wscript.echo(percent)
if not fso.FileExists(lockFile) then
VideoReDo.OutputAbort()
endtime = DateAdd("s", 15, Now)
while( VideoReDo.OutputGetState <> 0 And (Now < endtime) )
wscript.sleep 500
wend
VideoReDo.ProgramExit()
wscript.quit 5
end if
wscript.sleep 2000
wend
VideoReDo.ProgramExit()
' Close VRD
VideoReDo.ProgramExit()
' Exit with status 0
wscript.echo( " Output complete to: " + destFile )
wscript.quit 0set Args = wscript.Arguments
if Args.Count < 2 then
wscript.stderr.writeline( "? Invalid number of arguments")
wscript.quit 1
end if
' Check for flags.
VrdAllowMultiple = false
lockFile = ""
for i = 1 to args.Count
p = args(i-1)
if left(p,3)="/l:" then lockFile = mid(p,4)
if p = "/m" then VrdAllowMultiple = true
next
' Check that a lock file name was given
if ( lockFile = "" ) then
wscript.stderr.writeline( "? Lock file (/l:) not given" )
wscript.quit 2
end if
Set fso = CreateObject("Scripting.FileSystemObject")
sourceFile = args(0)
destFile = args(1)
' Create VideoReDo object and open the source project / file.
if (VrdAllowMultiple) then
On Error Goto 0
Set VideoReDo = WScript.CreateObject( "VideoReDo6.Application" )
else
On Error Goto 0
set VideoReDoSilent = wscript.CreateObject( "VideoReDo6.VideoReDoSilent" )
set VideoReDo = VideoReDoSilent.VRDInterface
end if
'Hard code no audio alert
VideoReDo.ProgramSetAudioAlert( false )
' Open source file
openFlag = VideoReDo.FileOpen(sourceFile, false)
if openFlag = false then
wscript.stderr.writeline( "? Unable to open file/project: " + sourceFile )
wscript.quit 3
end if
' Start Ad Scan
'VideoReDo.AdScanSetParameter 0, false
'VideoReDo.AdScanSetParameter 1, false
VideoReDo.InteractiveAdScanSetParameter 2, true
VideoReDo.InteractiveAdScanToggleScan()
scanStarted = VideoReDo.InteractiveAdScanIsScanning()
if scanStarted = false then
wscript.stderr.writeline("? Unable to start Ad Scan on file: " + sourceFile )
wscript.quit 4
end if
' Wait until scan done and output % complete to stdout
fileDuration = VideoRedo.FileGetOpenedFileDuration()
while( VideoRedo.InteractiveAdScanIsScanning() )
percent = "Progress: " & Int(VideoReDo.NavigationGetCursorTime()*100/fileDuration) & "%"
wscript.echo(percent)
if not fso.FileExists(lockFile) then
VideoReDo.OutputAbort()
endtime = DateAdd("s", 15, Now)
while( VideoRedo.InteractiveAdScanIsScanning() And (Now < endtime) )
wscript.sleep 500
wend
VideoReDo.ProgramExit()
wscript.quit 5
end if
wscript.sleep 2000
wend
' Write output project file
VideoReDo.FileSaveProjectAs(destFile)
' Close VRD
VideoReDo.ProgramExit()
' Exit with status 0
wscript.echo( " Output complete to: " + destFile )
wscript.quit 0You don't need the specific MPEG2 or H264 parts of the profile. All profiles in v6 are match source so you can just use the "Transport Stream" profile and it'll pick MPEG-2 or H.264 automatically based on the source. The profile IDs have also changed. Although I'm not sure what he's using those for. I don't think we use profile IDs as input on any of the functions. Just the name or full XML of the profile.