| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
fmod
VoVan © (2008-03-19 05:31:00)Люди, помогите, никак не могу разобраться с fmod. В коде прописал
Module := FMUSIC_LoadSong(PChar(dlgOpen.Files[0]));
Stream := FSOUND_Stream_Open(PChar(dlgOpen.Files[0]), ......);
файл миди
проигрывается поток замечательно, но вопрос в другом:
Каким образом перегнать это в вав? Говорят, что можно взять данные из буфера и сохранить в вав. Будьте добры напишите КАК это сделать. А дальше я уж LAMEом это в мп3 перекодирую.
VoVan (2008-03-21 01:02:00) [1]А у меня вот какая проблема: при кодированиии вав все отлично, а миди вроде кодируется тоже нормально, но когда я его воспроизвожу звука почему-то нет.
Efir (2008-03-21 00:40:00) [2]Достаточно просто подключить плагин. По крайней мере я попробовал кодировать с midi никаких проблем не вызвало.
VoVan (2008-03-20 23:56:00) [3]вот у меня как раз был хедер с mp3export.pas.
Взял от TLame, теперь заработало. Огромное спасибо.
А в случае с миди, достаточно просто подключить плагин, или надо еще в начале выходного mp3-файла что-то прописывать?
Efir (2008-03-20 23:27:00) [4]Я брал инфу для заголовочных файлов из исходников CDex и TLame.
Efir (2008-03-20 23:23:00) [5]Можно здесь http://www.delphilab.ru/content/view/76/75/
И ещё, вместе с исходниками Lame есть пример и для Delphi с заголовочным файлом, называется mp3export.pas
Исходники Lame - http://sourceforge.net/project/showfiles.php?group_id=290&package_id=309
VoVan (2008-03-20 23:15:00) [6]чуть другие. А откуда скачать от TLame?
Efir (2008-03-20 22:51:00) [7]Да. А у тебя какие заголовочные файлы к lame_enc.dll, от TLame?
VoVan (2008-03-20 22:50:00) [8]После вызова
ErrRes:=beEncodeChunk(beStream, SizeOfRead div 2, BufWave, BufMP3, Encoded);
переменные
InBufSize и OutBufSize принимают какие-то странно большие значения
Encoded при каждом новом запуске проги разные
VoVan (2008-03-20 21:45:00) [9]Ругается на beConfig.Format.dwConfig:=BE_CONFIG_LAME;
исправил на beConfig.dwConfig:=BE_CONFIG_LAME;
и все равно выкидывает на
fWrite.WriteBuffer(BufMP3^, Encoded);
А у тебя работает нормально?
Efir (2008-03-20 19:50:00) [10]И midi вроде норм. кодирует.
Efir (2008-03-20 19:45:00) [11]Есть кое какие ошибки. А так работает?
function EncodeToMP3(InFile:string; OutFile:string):boolean;
var
NumSamples:DWORD;
InBufSize: DWORD;
OutBufSize:DWORD;
BufWave:PSHORT;
BufMP3: PBYTE;
BassChan:HSTREAM;
beStream:THBESTREAM;
beConfig:TBECONFIG;
fWrite:TFileStream;
SizeOfRead:DWORD;
Encoded: DWORD;
ErrRes:TBeErr;
i, WAVLeng:DWORD;
begin
Result:=false;
BassChan:=BASS_StreamCreateFile(false, PChar(InFile), 0, 0, BASS_STREAM_DECODE);
if BassChan=0 then begin
BASS_StreamFree(BassChan);
Exit;
end;
FillChar(beConfig, SizeOf(beConfig), 0);
beConfig.Format.dwConfig:=BE_CONFIG_LAME;
beConfig.Format.LHV1.dwStructVersion:=1;
beConfig.Format.LHV1.dwStructSize:=SizeOf(beConfig);
beConfig.Format.LHV1.dwSampleRate:=44100;
beConfig.Format.LHV1.dwReSampleRate:=0;
beConfig.Format.LHV1.nMode:=BE_MP3_MODE_STEREO;
beConfig.Format.LHV1.dwBitrate:=192;
beConfig.Format.LHV1.dwMaxBitrate:=320;
beConfig.Format.LHV1.nPreset:=LQP_HIGH_QUALITY;
beConfig.Format.LHV1.dwMpegVersion:=MPEG1;
WAVLeng:=BASS_ChannelGetLength(BassChan);
ErrRes:=beInitStream(beConfig, NumSamples, OutBufSize, beStream);
if ErrRes<>BE_ERR_SUCCESSFUL then begin
beCloseStream(beStream);
BASS_StreamFree(BassChan);
Exit;
end;
InBufSize:=NumSamples*4;
fWrite:=TFileStream.Create(OutFile, fmCreate);
try
BufWave:=AllocMem(InBufSize);
BufMP3:=AllocMem(OutBufSize);
try
i:=0;
while i<>WAVLeng do begin
if i+InBufSize<WAVLeng then SizeOfRead:=InBufSize
else SizeOfRead:=WAVLeng-i;
BASS_ChannelGetData(BassChan, BufWave, SizeOfRead);
ErrRes:=beEncodeChunk(beStream, SizeOfRead div 2, BufWave, BufMP3, Encoded);
if ErrRes<>BE_ERR_SUCCESSFUL then Exit;
fWrite.WriteBuffer(BufMP3^, Encoded);
i:=i+SizeOfRead;
end;
ErrRes:=beDeinitStream(beStream, BufMP3, Encoded);
if ErrRes<>BE_ERR_SUCCESSFUL then Exit;
fWrite.WriteBuffer(BufMP3^, Encoded);
finally
fWrite.Free;
BASS_StreamFree(BassChan);
beCloseStream(beStream);
end;
finally
FreeMem(BufWave);
FreeMem(BufMP3);
end;
Result:=true;
end;
VoVan (2008-03-20 06:22:00) [12]потестил ф-цию function EncodeToMP3(InFile:string; OutFile:string):boolean;
вылетает(выдает ошибку) на определенной итерации цикла while.
encoded ... 0
i ... 9216
InBufSize ... 4608
OutBufSize ... 7920
SizeOfRead ... 4608
WavLeng ... 42158
на следующем круге i=13824, encoded=288 (все предыдущие encoded были 0) вылетает при попытке записи fWrite.WriteBufferStream
VoVan (2008-03-20 01:00:00) [13]Усе. Вроде бы с теорией разобрался. Огромное спасибо. Буду пытаться кодить.
Efir (2008-03-20 00:58:00) [14]да
VoVan (2008-03-20 00:43:00) [15]HPLUGIN BASS_PluginLoad(
char *file,
DWORD flags
);
здесь *file = "bassmidi.dll"?
Efir (2008-03-20 00:32:00) [16]Все добро качается с оф. сайта www.un4seen.com.
Загрузка плагина проста, всего две функции
BASS_PluginLoad()
BASS_PluginFree()
После загрузки плагина работа с потоком не меняется, он создаётся так же
BASS_StreamCreateFile(), bass сама определяет какую библиотеку использовать при воспроизведении формата, отлично от того, кот-е поддреживает bass.dll (есс-но при условии что загружен плагин).
В принципе работа с библиотекой достаточна проста, всё неплохо написано в хелпе к ней. К тому же, с ней идут и примеры.
VoVan (2008-03-19 23:58:00) [17]Насчет плагина. Где его взять, как его подключить и как с ним работать?
Efir (2008-03-19 23:17:00) [18]Ф-ция BASS_ChannelGetData() записывает в буфер уже декодированные данные в виде PCM.
VoVan (2008-03-19 21:47:00) [19]А что делать с NumSamples? В миди ведь нету сэмплов. Или я что-то путаю?
Efir (2008-03-19 21:31:00) [20]Вот блин, к bass'у для работы с MIDI нужно подключать плагин, а так код остаётся тот же.
| |
Страницы: 