Skip to content
Snippets Groups Projects
Commit 4c3c54f4 authored by Conrad Zelck's avatar Conrad Zelck
Browse files

add splash info at start before analyzing file


close #1

Signed-off-by: default avatarConrad Zelck <git@simpel.cc>
parent f2546a79
No related branches found
Tags 1.1.0.13
No related merge requests found
...@@ -43,6 +43,8 @@ Else ...@@ -43,6 +43,8 @@ Else
EndIf EndIf
EndIf EndIf
SplashTextOn("Be patient", "R128 is analysing file ...", 300, 50)
; how many video streams to increase stream counter ; how many video streams to increase stream counter
Local $sCommand = '-i "' & $sFile & '" -v 0 -show_entries stream=codec_type -of default=nw=1:nk=1' Local $sCommand = '-i "' & $sFile & '" -v 0 -show_entries stream=codec_type -of default=nw=1:nk=1'
Local $sCodecs = _runFFprobe('ffprobe ' & $sCommand, $sPathFFprobe) Local $sCodecs = _runFFprobe('ffprobe ' & $sCommand, $sPathFFprobe)
...@@ -54,6 +56,7 @@ ConsoleWrite("Counter video: " & $iCounterVideo & @CRLF) ...@@ -54,6 +56,7 @@ ConsoleWrite("Counter video: " & $iCounterVideo & @CRLF)
; is audio inside? ; is audio inside?
StringReplace($sCodecs, "audio", "audio") ; just to get the count StringReplace($sCodecs, "audio", "audio") ; just to get the count
If @extended = 0 Then If @extended = 0 Then
SplashOff()
MsgBox($MB_TOPMOST, "Error", "No audio channels found.") MsgBox($MB_TOPMOST, "Error", "No audio channels found.")
Exit Exit
EndIf EndIf
...@@ -61,6 +64,7 @@ EndIf ...@@ -61,6 +64,7 @@ EndIf
; channel layout for all audio streams ; channel layout for all audio streams
$sCommand = '-i "' & $sFile & '" -v 0 -select_streams a -show_entries stream=channels -of default=nw=1:nk=1' $sCommand = '-i "' & $sFile & '" -v 0 -select_streams a -show_entries stream=channels -of default=nw=1:nk=1'
Local $sChannels = _runFFprobe('ffprobe ' & $sCommand, $sPathFFprobe) Local $sChannels = _runFFprobe('ffprobe ' & $sCommand, $sPathFFprobe)
SplashOff()
Local $aChannels = StringSplit($sChannels, @CRLF, $STR_ENTIRESPLIT) Local $aChannels = StringSplit($sChannels, @CRLF, $STR_ENTIRESPLIT)
If Not IsArray($aChannels) Then If Not IsArray($aChannels) Then
MsgBox($MB_TOPMOST, "Error", "No audio channels found.") MsgBox($MB_TOPMOST, "Error", "No audio channels found.")
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment