Смена формата с .wav на .flac

[TUberwer]

Всем привет!
У меня такая проблема
Я не знаю как можно изменить формат аудио с .wav в .flac
Это нужно для Google Speech API =)
Может есть уроки какие-то?
Очень нужно

[Serge_Bliznykov]

не надо никаких уроков. берете сам flac, устанавливаете, разбираете параметры командной строки для перекодирования из wav -> flac
пишете в своей программе вызов внешнего конвертора, передавая ему нужные параметры (путь\имя wav файла и параметры кодирования).
Получаете перекодированный файл.
Профит!

[TUberwer]

к сожалению я не понял вот этого

разбираете параметры командной строки для перекодирования из wav -> flac
пишете в своей программе вызов внешнего конвертора

[Serge_Bliznykov]

погодите, что именно непонятно?

идёте на офсайт
скачивайте оттуда flac-1.2.1-win.zip
получаете архив, в папке BIN там лежит конвертор:
bin\flac.exe The command-line compressor/decompressor

у себя в программе пишете вызов этого самого flac.exe
через параметер передаёте ему имя_исходного_файла.wav.
получаете имя_исходного_файла.flac
всё.


p.s. предвосхищая вопросы, как запустить внешнюю программу из своей программы на Delphi,
как вариант, можете поискать пример использования CreateProcess

[TUberwer]

Я сделал запуск flac.exe, можешь написать команду для того, чтоб присвоить ему имя через параметр?

[саша40]

Конвертировать. Программа Format Factory или просто аимповский конвертер совершено бесплатны.

[Toxa]

недавно занимался этой же задачей (перевод через гугл), использовал New Audio Component, с его помощью записал звук сразу с нужной частотой (по моему требуется 8 кГц, а не 16), можно конвертнуть из другого формата

[Serge_Bliznykov]

Сообщение от TUberwer

Я сделал запуск flac.exe, можешь написать команду для того, чтоб присвоить ему имя через параметр?

в связи с вновь открывшимися обстоятельствами (появлением на форуме Toxa, который имеет практический опыт решения данной задачи, и информации об использовании New Audio Component) - Вам всё ещё нужен пример использования flac.exe?


UPDATED

впрочем, мне что, сложно пример дать?
ловите:

program convertWavToFlac;

USES SYSUTILS, Windows;
{$APPTYPE CONSOLE}

procedure ConvertWavAudioFileToFlac( PathToFlac, WavFileName, FlacFileName : string);
var si:TStartupInfo;
    pi:TProcessInformation;
    cmdline:string;

begin
    ZeroMemory(@si,sizeof(si));
    si.cb:=SizeOf(si);
    cmdline := PathToFlac + ' -f "' + WavFileName+'"';
    if  Trim(FlacFileName)<>'' then  cmdline := cmdline + ' -o' + FlacFileName;
    if not CreateProcess( nil, // No module name (use command line).
        PChar(cmdline),  // Command line.
        nil,             // Process handle not inheritable.
        nil,             // Thread handle not inheritable.
        False,           // Set handle inheritance to FALSE.
        0,               // No creation flags.
        nil,             // Use parent's environment block.
        nil,             // Use parent's starting directory.
        si,              // Pointer to STARTUPINFO structure.
        pi )             // Pointer to PROCESS_INFORMATION structure.
       then
        begin
         WriteLn( 'CreateProcess failed. ('+cmdline+')' );
         Exit;
        end;
    WaitForSingleObject( pi.hProcess, INFINITE );
    CloseHandle( pi.hProcess );
    CloseHandle( pi.hThread );
end;


// тело самой программы - main()
var PathToFlacEXE : string;
begin
    PathToFlacEXE := ExtractFilePath(ParamStr(0))+'flac.exe';
    if not FileExists(PathToFlacEXE) then 
       WriteLn('#ERROR! Not found flac.exe (put flac.exe in folder '+ParamStr(0))
    else begin
       ConvertWavAudioFileToFlac( PathToFlacEXE, 
           'record\01_theory_of_a_dead_man_-_fahrenheit_soundtrack_-_santa_monica.wav',
           'rezult.flac'  ); 

      WriteLn('Done.');
    end;
end.

примечание. выходное имя файла можно не задавать, тогда flac файл будет создан там же, где лежит исходный wav файл, с тем же именем, что и у исходного файла, только расширение меняется на flac:
т.к. можно вызвать и так:

ConvertWavAudioFileToFlac( PathToFlacEXE, 
           'D:\TestApp\record\01_theory_of_a_dead_man_-_fahrenheit_soundtrack_-_santa_monica.wav',
           ''  );

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

[raxp]

TC, вам всего лишь так:

dir + 'flac.exe --delete-input-file --channels=1 --sample-rate=8000 audio.wav'

пример же запуска с ожиданием есть, не поверите, в Delphi-World. Потому бегом скачивать этот сборник себе на машину, поменьше на форумах клонированием тем будете заниматься. Что касаемо вашего вопроса по командной строке, то тоже непонятно, что вам мешало заглянуть в описание командной строки FLAC прямо на офсайте? Ничего не мешало, только природная лень.

записал звук сразу с нужной частотой (по моему требуется 8 кГц, а не 16)

не совсем верно. Гугл кушает и 16 кГц спокойно и распознает, просто и в запросе этот битрейт тоже надо поменять. А вот то, что на ноутбучных аудиокартах не всегда поддерживается 16 кГц дискретизация - это факт, потому 8 кГц как компромисс.

в связи с вновь открывшимися обстоятельствами (появлением на форуме Toxa, который имеет практический опыт решения данной задачи, и информации об использовании New Audio Component) - Вам всё ещё нужен пример использования flac.exe?

на этом же форуме есть давняя тема, где захват через DirectSound, путем использования NewAC (а именно DXAudioIn и последующая компрессия FLACOut), не срабатывал у пользователя (но срабатывал у других) и распознавание не шло, как следствие. Исходя из этого было принято решение отказаться от использования DX и осуществлять захват средствами самой системы, чего и другим советую.


http://www.youtube.com/watch?v=aRRvXOOlxmI


http://www.youtube.com/watch?v=eIqKQcD7FEg

См. вложения:
- Псевдо-Google Translate API. Делаем онлайн-переводчик с озвучкой. - Минск, 2012, №5
- Описание API вызова библиотеки GoogleSpeechRecognizeAPI3.DLL
- Описание API вызова библиотеки GoogleTranslateAPI.DLL (онлайн-перевод + озвучка)
- Голосовой плагин для AIMP

[TUberwer]

Ну мне нужно что-то типа этого

- Описание API вызова библиотеки GoogleTranslateAPI.DLL (онлайн-перевод + озвучка)

Только чтоб языки были ru -> en и en -> ru
Убрать все Memo, оставить кнопку, нажимаешь на кнопку(нарпимер Start), говоришь слово, потом нажимаешь кнопку (например Stop), распознается текст который ты сказал, переводится на другой язык(ru -> en или en -> ru), и воспроизводится...