Запись во временный буфер, фреймы, подпись пакетов

[ImmortalAlexSan]

Raxp, спасибо вам, вы правы! Часть, которую вы веделили действительно прерывает все. Но я попробывал без неё сделать, и вылетела таже самая ошибка. Исправил немного код, который отвечает за начало считывания на следующий:

waveInOpen(addr(WaveIn),hwi,Addr(WaveFormat),MainForm.Handle,0,CALLBACK_WINDOW);
BufferSize:=WaveFormat.nBlockAlign*WaveFormat.nSamplesPerSec*10;
hbuf:=GlobalAlloc(GMEM_MOVEABLE and GMEM_SHARE, BufferSize);
WaveHdr.lpData:=@hbuf;
WaveHdr.dwBufferLength:=BufferSize;
WaveHdr.dwFlags:=WHDR_BEGINLOOP;
waveInPrepareHeader(WaveIn,@WaveHdr,Sizeof(WaveHdr));
waveInAddBuffer(WaveIn,@WaveHdr,Sizeof(WaveHdr));
GetMem(p, BufferSize * sizeof(TPoint));
waveInStart(WaveIn);

И переменную WaveIn описал как hWaveIn

[raxp]

1- "без нее сделать" - оно таки нужно, когда вы завершаете
2- вместо hwi -> WAVE_MAPPER
3- "WAVE_FORMAT_4S16" - я-бы не экспериментировал с этим, не у всех аудио может поддерживать... а вот _PCM это де-факто
4- "dwFlags" вообще не трогаю, по-умолчанию оставляю
5- "GetMem(p, BufferSize * sizeof(TPoint));" - это атавизм, оставшийся от отображения, лишнее
6- взгляните еще раз на код http://pblog.ru/?p=658 между комментариями "// получение аудиоданных и построение спектра" и "// СОБЫТИЯ КОМПОНЕНТА" и использование двух буферов для накопления и вывода.

[ImmortalAlexSan]

Просмотрев очередной раз (наверное уже 3-й) вашу статью, сделал кое-какие выводы, плюс ещё больше стал понимать, что пишу А это уже радует. И хочу спросить теперь вот что: наш буфер-то не резиновый верно? Как только он заполнится, должно выскочить сообщение об этом, если ошибка обработана, а если нет, то сам код ошибки должен появиться так? Или нет? Потому, что я свою прогу проверял, болтал в микрофон минуту, хотя буфер на столько не рассчитан (или рассчитан?) и ничего не появлялось.

[raxp]

1- на вкладке микшера микрофон-то включен, в смысле в других программах аудиозаписи отображается то, что вы говорите?
2- для теста, попробуйте поболтать сюда (см. вложение)

[ImmortalAlexSan]

Объясните пожалуйста вот эту строчку кода:

WaveData1:=PChar(GlobalAlloc(GMEM_FIXED or GMEM_NOCOMPACT or GMEM_NODISCARD,WaveDataLength));

Читая про это в интернете, мне очень тяжело понять, и я ничего не понял про эти флаги... Что конкретно делает эта функция?

[ImmortalAlexSan]

И ещё один довольно простой вопрос... Как можно маниторить количество свободных, ещё не записанных бит или байт в буффере для звука? Вот мой код, но он работает не так как надо, нужно чтобы Edit2 отображал меняющееся число бит буффера, как это сделать?

Код кнопки 1, где запускается запись звука:
...................
Edit1.Text:='длина буфера= '+inttostr(WaveDataLength)+' бит';
Edit2.Text:='количество оставшихся бит= '+inttostr(WaveDataLength-WaveHdr1.dwBytesRecorded); - вот это нужно мониторить
....................
Код кнопки 2, которая закрывает запись в буфер
Edit2.Text:='количество оставшихся бит= '+inttostr(WaveDataLength-WaveHdr1.dwBytesRecorded);

То есть, тем самым я хочу как-бы прервать запись если все биты будут записаны, и уже полученные данные из буффера передать через UDPClient на UDPSocket;

[raxp]

...по флагам, по выделению памяти

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

[ImmortalAlexSan]

Я дойду до этого... Но постепенно. А можете заодно рассказать, какие преимущества двух буфферов?
P.S. Я был на том сайте, куда вы меня отправили "за флагами", я там ничего не понимаю к сожалению, не моглибы вы объяснить? По флагам вопрос исчерпан!

[raxp]

...скорость.

...тута были (простейший пример)

[ImmortalAlexSan]

Примеры я эти находил, а вот как мониторить у вас нет идей? Я думаю попробывать использовать поток...
P.S. ещё чуть-чуть и я разгадаю эту тайну звука