Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Delphi
Перезагрузить страницу Как узнать позицию при записи wav через mciSendString?
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
romserg romserg вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.03.2015
Question Как узнать позицию при записи wav через mciSendString? - 29.03.2015, 23:03

Использую код Delphi:

delphi Код:
var s:array [0..255] of char;
begin
 fn := '12.wav';

 mciSendString(PChar('open new type waveaudio alias AGD'), nil, 0, 0);

 mciSendString('set AGD time format milliseconds format tag pcm ' +
                    'bitspersample 16 channels 1 samplespersec 44100 ' +
                    'alignment 2 bytespersec 88200' , nil, 0, 0);

 mciSendString(PChar('record AGD to 5222'), nil, 0, 0);

 repeat
  mciSendString('status AGD position', [a]s, sizeof(s), 0);
  OnEvt(s);
  mciSendString('status AGD mode', [a]s, sizeof(s), 0);
  sleep(20);
 until s = 'stopped';

 mciSendString(PChar('save AGD "' + fn + '"'), nil, 0, 0);
 mciSendString('close AGD', nil, 0, 0);
end;

Но выдаёт в ф-цию OnEvt секунды*1000 (т.е. 1000, 2000, 3000...) вместо миллисекунд, только в конце, после 5000, выдаёт 5222. При этом аналогичный код для воспроизведения нормально выдаёт миллисекунды! Как же узнать миллисекунды при записи и почему так происходит?

(вместо [a] - там собака, конечно, просто форум не даёт вставить собаку, говорит, мол, меньше 20 сообщений - не могу публиковать емайлы!)
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
можно узнать ip адрес через Скайп? Olga1109 Любые вопросы от новичков 3 28.01.2012 10:31
Ускоряется звук при записи через микрофон jazz Любые вопросы от новичков 5 25.10.2010 23:41
Нужно добавить в playlist WinAMP записи через программу PavKo Visual Basic 4 26.05.2009 17:20
При записи CD-R 700 мб. на 87% процентах записи выдает ошибку записи. CJинг Любые вопросы от новичков 9 15.10.2008 22:52
Проблема записи с микрофона через Звуковую карту Sound Max Diamond86 Звук и акустические системы 0 28.07.2008 21:09
Как узнать номер головки чтения записи imported_andruxa Assembler 10 28.07.2005 23:37
Как узнать имена листов в Excel через ODBC wolverine Visual C++ 1 20.07.2005 07:32
Как узнать позицию записи в осортированой выборке Krazer_one SQL 2 18.03.2005 07:24
Как узнать сколько и какие именно записи у данной подтаблицы Anonymous Visual C++ 3 10.06.2004 23:36
Как узнать размер шрифта в Excel через Delphi Anonymous Delphi 1 02.07.2003 20:25
Как узнать позицию курсора на форме Templar C++ Builder 7 23.04.2003 19:03
Можно ли узнать IP пользователя через прокси?... Anonymous PHP 1 14.02.2003 01:30



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов