GithubStar/staxrip
1
0
Fork 0
mirror of https://github.com/staxrip/staxrip.git synced 2026-10-27 20:54:42 +08:00
Code Issues Packages Projects Releases Wiki Activity

VFW/avifile replacement completed

Browse Source
This commit is contained in:
Frank Skare
2020-02-22 17:01:30 +01:00
parent 6489bb2c54
commit 0c8eb0eca0
31 changed files with 459 additions and 1008 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Encoding/VideoEncoder.vb
+1 -1
View File
@@ -671,7 +671,7 @@ Public Class BatchEncoder
End Using
Dim bits = (New FileInfo(p.TempDir + p.TargetFile.Base + "_CompCheck." + OutputExt).Length) * 8
p.Compressibility = (bits / script.GetFrames) / (p.TargetWidth * p.TargetHeight)
p.Compressibility = (bits / script.GetFrameCount) / (p.TargetWidth * p.TargetHeight)
OnAfterCompCheck()
Encoding/ffmpegEnc.vb
+1 -1
View File
@@ -105,7 +105,7 @@ Public Class ffmpegEnc
proc.WorkingDirectory = p.TempDir
proc.Package = Package.ffmpeg
proc.Arguments = args
If args.Contains(p.Script.Path) Then proc.Frames = p.Script.GetFrames
If args.Contains(p.Script.Path) Then proc.Frames = p.Script.GetFrameCount
proc.Start()
End Using
End Sub
Encoding/x264Enc.vb
+2 -2
View File
@@ -115,7 +115,7 @@ Public Class x264Enc
End Try
Dim bits = (New FileInfo(p.TempDir + p.TargetFile.Base + "_CompCheck." + OutputExt).Length) * 8
p.Compressibility = (bits / script.GetFrames) / (p.TargetWidth * p.TargetHeight)
p.Compressibility = (bits / script.GetFrameCount) / (p.TargetWidth * p.TargetHeight)
OnAfterCompCheck()
g.MainForm.Assistant()
@@ -963,7 +963,7 @@ Public Class x264Params
If includePaths Then
Dim input = If(PipingTool.ValueText = "none", script.Path.Escape, "-")
If input = "-" Then args += " --demuxer y4m --frames " & script.GetFrames
If input = "-" Then args += " --demuxer y4m --frames " & script.GetFrameCount
If Mode.Value = x264RateMode.TwoPass OrElse Mode.Value = x264RateMode.ThreePass Then
args += " --stats " + (p.TempDir + p.TargetFile.Base + ".stats").Escape
Encoding/x265Enc.vb
+2 -2
View File
@@ -112,7 +112,7 @@ Public Class x265Enc
End Try
Dim bits = (New FileInfo(p.TempDir + p.TargetFile.Base + "_CompCheck." + OutputExt).Length) * 8
p.Compressibility = (bits / script.GetFrames) / (p.TargetWidth * p.TargetHeight)
p.Compressibility = (bits / script.GetFrameCount) / (p.TargetWidth * p.TargetHeight)
OnAfterCompCheck()
g.MainForm.Assistant()
@@ -1107,7 +1107,7 @@ Public Class x265Params
If includePaths Then
If PipingTool.ValueText <> "none" Then
If Frames.Value = 0 AndAlso Not IsCustom(pass, "--frames") Then
sb.Append(" --frames " & script.GetFrames)
sb.Append(" --frames " & script.GetFrameCount)
End If
sb.Append(" --y4m")