Серый форум — OFF: Редактирование аудиодорожки видеофайла

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Lucky) — Thu, 14 Feb 2013 19:07:23 +0000

Malcev пишет:

ffmpeg вообще-то не предназначен для вывода инфы. Почему не хотите воспользоваться ffprobe?

Не хотел просто оперировать аж 2мя приложениями, оставлял на запасной вариант так сказать. Поэтому даж упомянул о возможности существования и вовсе штатных средст vbs и библиотек...

to Spy00000
Точно выходит.

Спасибо, коллеги!

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Spy00000) — Thu, 14 Feb 2013 18:39:40 +0000

Битрейт там должен быть, имхо, просто msgbox выводимую информацию обрезает.
Вот пример вывода с обрезанием инфы:

Set e = CreateObject("WScript.Shell").Exec("""c:\Program Files (x86)\FFMpeg\bin\ffmpeg.exe"" -i 1.mp3")

Do While e.Status = 0
     WScript.Sleep 100
Loop

dim s 
s = e.StdErr.ReadAll

msgbox MId( s, Instr( 1, s , "Duration:", 1 ))

В файл перенаправление из ffmpeg.exe можно так сделать:

ffmpeg -i 1.mp3 2>1.txt

Пример вывода у меня, там в конце битрейт:

+ открыть спойлер

ffmpeg version N-31548-g78accb8, Copyright (c) 2000-2011 the FFmpeg developers
built on Jul 17 2011 22:41:27 with gcc 4.6.1
configuration: --enable-gpl --enable-version3 --enable-memalign-hack --enable-runtime-cpudetect --enable-avisynth --enable-bzlib --enable-frei0r --enable-libopencore-amrnb --enable-libopencore-amrwb --enable-libfreetype --enable-libgsm --enable-libmp3lame --enable-libopenjpeg --enable-librtmp --enable-libschroedinger --enable-libspeex --enable-libtheora --enable-libvorbis --enable-libvpx --enable-libx264 --enable-libxavs --enable-libxvid --enable-zlib
libavutil 51. 11. 0 / 51. 11. 0
libavcodec 53. 8. 0 / 53. 8. 0
libavformat 53. 6. 0 / 53. 6. 0
libavdevice 53. 2. 0 / 53. 2. 0
libavfilter 2. 27. 0 / 2. 27. 0
libswscale 2. 0. 0 / 2. 0. 0
libpostproc 51. 2. 0 / 51. 2. 0
[mp3 @ 0000000001A4EB80] max_analyze_duration 5000000 reached at 5015510
Input #0, mp3, from '1.mp3':
Metadata:
album : In Rock
artist : Deep Purple
genre : Hard Rock
title : Child In Time
track : 03/07
DISCID : п»ї4309E907
Accuraterip : п»їDeep Purple\Deep Purple - 1970 - In Rock (Japan 20P2-2603)\Deep Purple - In Rock.wav

Checking AccurateRip database

Track ->> Ripping Status ->> ->> [Disc ID: 000b773b-4309e907]

1 ->> Track not present in database. [a1459cd9]
2 ->> Track
Album artist : п»їDeep Purple
cuesheet : п»їREM GENRE Classic Rock
REM DATE 1970
REM DISCID 4309E907
REM COMMENT ExactAudioCopy v0.95b3
PERFORMER "Deep Purple"
TITLE "In Rock"
FILE "Deep Purple - In Rock.wv" WAVE
TRACK 01 AUDIO
TITLE "Speed King"
PERFORMER "Deep Purple"
I
Log : п»їEAC extraction logfile from 5. August 2008, 16:59 for CD
Deep Purple / In Rock

Used drive : SlimtypeDVDRW SOSW-833S Adapter: 1 ID: 0
Read mode : Secure with NO C2, accurate stream, disable cache
Read offset correction : 6
Overread into Lea
date : 1970
Duration: 00:10:20.38, start: 0.000000, bitrate: 320 kb/s
Stream #0.0: Audio: mp3, 44100 Hz, stereo, s16, 320 kb/s
At least one output file must be specified

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Malcev) — Thu, 14 Feb 2013 18:35:32 +0000

ffmpeg вообще-то не предназначен для вывода инфы. Почему не хотите воспользоваться ffprobe?

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Lucky) — Thu, 14 Feb 2013 18:16:04 +0000

Так работает. Только там битрейта среди инфы нет у меня.

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Spy00000) — Thu, 14 Feb 2013 18:05:54 +0000

Как-то так:

Set e = CreateObject("WScript.Shell").Exec("ffmpeg -i 1.mp3")
msgbox e.StdErr.ReadAll

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Lucky) — Thu, 14 Feb 2013 15:39:37 +0000

Просто у меня будет очень много файлов для обработки, не думаю что будет самый удобный и быстрый способ с созданием текстовых файлов...

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (kaster) — Wed, 13 Feb 2013 19:10:16 +0000

Так говорю же, перенаправить поток в текстовый файл, а потом этот файл считать.

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Lucky) — Wed, 13 Feb 2013 16:16:57 +0000

kaster пишет:

...при получении информации о файле, ffmpeg еще выдает кучу мусора...

Мусор не мусор.. - я его потом как-нибудь отфильтрую, сама задача: как получить эту самую полезную кучу в vbs-переменную? Пробовал так:


Set e = CreateObject("WScript.Shell").Exec("ffmpeg -i 1.mp3")
msgbox e.StdOut.ReadAll

не катит, если всё делаю как надо.

Кстати говоря, может есть какие-нибудь штатные средства vbs получения звуко-инфы, было бы вообще замечательно, в идеале так еще и функции конвертирования... В принципе должны же быть библиотеки и COM объекты работы со звуком и видео.

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Malcev) — Tue, 12 Feb 2013 19:13:38 +0000

Можно с помощью ffprobe

ffprobe -show_entries format=bit_rate 1.mp3

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (kaster) — Tue, 12 Feb 2013 18:51:59 +0000

Если Win версия не отличается от *nix, то при получении информации о файле, ffmpeg еще выдает кучу мусора. Поэтому, перенаправить вывод в текст и потом парсить его.

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Lucky) — Tue, 12 Feb 2013 18:17:35 +0000

Malcev пишет:

1) ffmpeg -i 1.mp3
2) ffmpeg -i 1.mp3 -vn -ar 44100 -ac 2 -ab 192k -f mp3 2.mp3
3) ffmpeg -i 1.avi -vcodec libxvid -vb 1000k -acodec libmp3lame -ab 96k 2.avi

Спасибо! С конвертацией всё супер, получается, только вот насчёт первого пункта: как получить эту информацию о файле обратно в vbs-скрипт для дальнейшего использования?

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Malcev) — Tue, 12 Feb 2013 17:07:53 +0000

1) ffmpeg -i 1.mp3
2) ffmpeg -i 1.mp3 -vn -ar 44100 -ac 2 -ab 192k -f mp3 2.mp3
3) ffmpeg -i 1.avi -vcodec libxvid -vb 1000k -acodec libmp3lame -ab 96k 2.avi

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Lucky) — Tue, 12 Feb 2013 14:07:22 +0000

Со вторым пунктом вроде разобрался, но в результате выходит mp3 не с заданным мной битрейтом (напр.192kbps), а 124kbps в любой попытке. Может быть что-то делаю не так:


Command2 = "ffmpeg -i 1.mp3 -vn -ar 44100 -ac 2 -ab 192 -f mp3 2.mp3"
CreateObject("WScript.Shell").Run Command2, 1, 1

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Lucky) — Tue, 12 Feb 2013 07:33:46 +0000

ffmpeg заинтересовала конечно своими возможностями, но что-то я не могу в ней разобраться... Копался в гугле, в самом файле командами типа -? -h, но нужного мне не разглядел. Мне бы для старта всего лишь 3 примера команды на VBS:
1. Получить от файла (музыки mp3, иногда и wma) его битрейт.
2. Конвертировать музыку в mp3 с нужным мне битрейтом.
3. Конвертировать видео в avi с кодеком xvid пусть будет 1000kbps и mp3 с 96kbps.

Re: OFF: Редактирование аудиодорожки видеофайла

null@example.com (Malcev) — Mon, 05 Nov 2012 19:55:59 +0000

А можно просто попробовать избавиться от метаданных.

ffmpeg –i movie.mp4  -c copy –map_metadata:g –1:g  -map_metadata:s:v –1:g –map_metadata:s:a –1:g movie.nometadata.mp4