View previous topic :: View next topic |
Author |
Message |
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Tue May 10, 2016 17:14 Post subject: |
|
|
Skif_off 1. Чего тут спорить? Это мой взгляд на сборки.
3. А кроме вопроса там ничего нет? И каким ещё может быть мотив лезть в тему, к которой у самого нет интереса? (рит.) _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Skif_off
Joined: 28 Nov 2012 Posts: 1232
|
(Separately) Posted: Tue May 10, 2016 18:26 Post subject: |
|
|
Flasher 1. Помимо твоего взгляда есть другие, а сборки - были, есть и будут. Ты ведь не для себя сделал этот скрипт?
3. Причину "влезазания" пояснил. Раз не добавил кнопку у себя, то нельзя? |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed May 11, 2016 00:00 Post subject: |
|
|
Skif_off 1. Сделал для того, кого устроило. Если бы не было задано условие или делился своим, то в исходном виде путь бы присутствовал.
3. Не нужно. Просто бессмысленно. Тебя это не должно вообще трогать. Это не справка и не TCKB. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Keeper
Joined: 02 Oct 2015 Posts: 8
|
(Separately) Posted: Fri Sep 23, 2016 11:31 Post subject: |
|
|
Flasher, привет еще раз, подскажи как совсем не закрывать окно. Посмотреть на что ругается нужно.
Обновил ffmpeg (Latest Zeranoe FFmpeg Build Version: 7d17d31 (2016-09-22)) - окошко молниеносно откр\закр без результата.
Руками если ...-f concat -i myfile... сделать, то всё отлично...
PS: Обновил потому что заметил что после конкатенации framerate меняется на несколько сотых (например было, 30000 становится 29ххх, где ххх произвольное число https://yadi.sk/i/E6MK4nfkvaQLF), думал новая версия поможет не трогать fps но походу это так и задумано, ответа этому в гугле даже не нашел и вообще это не по теме форума .
Добавлено спустя 16 минут:
Flasher
А еще я бы хотел попросить у тебя помощи в создании, если не трудно, кнопочки для резки видео файла. Code: | ffmpeg -ss [start] -i in.mp4 -t [duration] -c copy out.mp4
Here, the options mean the following:
-ss specifies the start time, e.g. 00:01:23.000 or 83 (in seconds)
-t specifies the duration of the clip (same format).
Recent ffmpeg also has a flag to supply the end time with -to.
-c copy copies the first video, audio, and subtitle bitstream from the input to the output file without re-encoding them. This won't harm the quality and make the command run within seconds.
|
|
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Sat Sep 24, 2016 01:45 Post subject: |
|
|
Keeper
В 3-й строке снизу Prog меняем на "cmd /k " & Prog .
В отношении кнопки нужна конкретика. Одно дело разбить на равные части, а другое - по длительности, начиная с начала. И вряд ли тут можно одной кнопкой обойтись. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
Keeper
Joined: 02 Oct 2015 Posts: 8
|
(Separately) Posted: Wed Sep 28, 2016 15:08 Post subject: |
|
|
Flasher, вот исходя из команды
ffmpeg -ss [start] -i in.mp4 -t [duration] -c copy out.mp4
Я представляю это так: на выделенном файле нажимается кнопка, запрашивает переменную старт (в секундах) и переменную продолжительность (в секундах), подставляет это всё в команду и готово
Еще интересует вопрос по предыдущему скрипту: что нужно дописать в него чтобы добавить функцию удаления файлов в корзину (не shift+del), которые были объединены?
PS: Разобрался с новой версией ffmpeg'a - у меня он ругался unsafe file name - у меня в именах есть пробелы и другие символы, которые ему стали не по нраву. Нужно дописать в команду -safe 0 и всё будет ок. Источник: https://ffmpeg.org/pipermail/ffmpeg-user/2016-March/031489.html
PPS: Quote: | В 3-й строке снизу Prog меняем на "cmd /k " & Prog . | У меня не сработало, просто окошко моргало без результата. вин10... отловил ошибку записав с экрана выполнение, потом покадрово просмотрел |
|
Back to top |
|
|
Flasher
Joined: 06 Nov 2009 Posts: 14229 Location: Москва
|
(Separately) Posted: Wed Sep 28, 2016 20:02 Post subject: |
|
|
Keeper
Разбиение на части и вырезка - это не одно и то же. Для разбиения нужно знать, сколько частей требуется либо размер частей кроме последней.
Касаемо удаления исходников дописок хватает: Code: | '======================================================================
' Склеить выбранные видеофрагменты в файл с именем последнего фрагмента
' Условие: путь запуска пустой
' Параметры: %F
' "<путь целевого каталога>"
' "<добавка к базовому имени>"
' <скрывать/показывать/сворачивать консоль: 0/1/2>
' <удалять исходники после выполнения: 1> (необязательный)
' Примеры: %F "%T" _joined 0 | %F "%P" "" 2 1
'======================= Путь к утилите FFmpeg ========================
Prog = """%COMMANDER_PATH%\Utils\FFmpeg\ffmpeg.exe"""
'======================================================================
With WScript.Arguments
Title = " Объединение видео" : C = .Count : If C = 0 Then WScript.Quit
If C < 4 Then MsgBox "Укажите 4 параметра!", 4144, Title : WScript.Quit
List = .Item(0) : T = .Item(1) : PFix = .Item(2) : Mode = .Item(3)
If C = 5 Then Del = .Item(4)
End With : Dim WSH : Set WSH = CreateObject("WScript.Shell")
If Del = 1 Then Set Dict = CreateObject("Scripting.Dictionary")
With CreateObject("Scripting.FileSystemObject")
All = .OpenTextFile(List).ReadAll : T = .BuildPath(T, "\")
With New Regexp
.IgnoreCase = True : .Multiline = True : .Global = True
.Pattern = "^.*\.(3g[2p]2?|4xm|avi|asf|dat|dvr-ms|fl[iv]|film" &_
"_cpk|gif|h26[134]|qtm2ts?|m4v|mkv|mo[dv]|mp4|mpe?g|mxf|nuv|" &_
"og[gm]|pva|rm|roq|swf|ts|tp|t[ox]d|vcd|vivo|vob|webm|wmv)(?!\\)$"
If Not .Test(All) Then MsgBox "В выбранном списке нет " &_
"поддерживаемых файлов!", 4144, Space(22) & Title : WScript.Quit
With .Execute(All)
If .Count = 1 Then WScript.Quit
For i = 0 To .Count - 1
If Del = 1 Then Dict.Add .Item(i).Value, ""
S = S & "file '" & .Item(i).Value & "'" & VbCrLf
Next : F = .Item(i - 1).Value End With
End With
With .OpenTextFile(List, 2) : .Write Left(S, Len(S) - 2) : .Close
End With : If WSH.CurrentDirectory & "\" = T Then P = "L" Else P = "R"
BN = .GetBaseName(F) & PFix : Ext = "." & .GetExtensionName(F)
i = 0 : F = BN & Ext
While .FileExists(T & F) Or .FolderExists(T & F)
i = i + 1 : F = BN & " (" & i & ")" & Ext
Wend : F = T & F
WSH.Run Prog & " -safe 0 -f concat -i " & List & " -c copy """ & F & """", Mode, True
If .FileExists(F) Then
If Del = 1 Then
Set RBin = CreateObject("Shell.Application").Namespace(&Ha)
CD = WSH.CurrentDirectory & "\"
For Each Key in Dict.Keys : RBin.MoveHere(CD & Key) : Next
End If: WSH.Exec "%COMMANDER_EXE% /S /O /A /" & P & "=""" & F & """ /P=" & P
End If
End With |
Не тестировал.
Keeper wrote: | у меня в именах есть пробелы и другие символы, которые ему стали не по нраву. | Вряд ли пробелы, там про них и не сказано. _________________ Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Back to top |
|
|
newsky
Joined: 19 Mar 2010 Posts: 98
|
(Separately) Posted: Fri Sep 30, 2016 01:49 Post subject: |
|
|
Есть простой батничек для перепаковки MOV в mp4 и перекодирования звука:
Code: | ::::::::::::::::::::::::::::::::::::::::::::::::
::BEGIN
Set ffexepath=c:\Windows\ffmpeg\bin
for %%a in (*.mov) do (
ffmpeg.exe -i "%%~a" -vcodec copy -acodec aac -ab 192k "%%~na.mp4" 2>"%%~na.log"
)
::END
:::::::::::::::::::::::::::::::::::::::::::::::: |
Есть кнопочка:
Code: | TOTALCMD#BAR#DATA
"%COMMANDER_PATH%\Soft\bat\MOV2MP4 convert.bat"
%COMMANDER_PATH%\icons\Imtoo-Video-Converter-ultimate-Free-Download.ico
Перепаковать MOV в MP4
-1
|
1. Как нужно изменить батник, что-бы задать в нём путь к ffmpeg если ffmpeg находится по адресу: %COMMANDER_PATH%\soft\ffmpeg\bin
2. Что нужно добавить к кнопке, что-бы бат обрабатывал только выделенные файлы, а не все в папке, как сейчас это происходит.
Может для этих задач в самом бат нужно что-то изменить? Может и без батника можно обойтись, и лучше использовать скрипт для ТС? |
|
Back to top |
|
|
addhaloka
Joined: 09 Nov 2010 Posts: 169
|
(Separately) Posted: Fri Sep 30, 2016 02:29 Post subject: |
|
|
newsky wrote: | Может и без батника можно обойтись, и лучше использовать скрипт для ТС? |
Можно попробовать как-то так: Code: | TOTALCMD#BAR#DATA
%ComSpec% /c for /f "delims=" %a in
('type %WF') do "%%COMMANDER_PATH%%\Bin\FFmpeg\bin\ffmpeg.exe" -i "%%~a" -vcodec copy -acodec aac -ab 192k "%%~na.mp4" 2>"%%~na.log"
%COMMANDER_PATH%\Icons\etcbar.dll,1207
Конвертировать выделенные видеофайлы в .mp4
1
-1
|
|
|
Back to top |
|
|
newsky
Joined: 19 Mar 2010 Posts: 98
|
(Separately) Posted: Sun Oct 02, 2016 16:08 Post subject: |
|
|
addhaloka, Большое Вам спасибо! То, что нужно и значительно удобней! |
|
Back to top |
|
|
|