Циклическое выполнение вызова MciSendString()

@JustDaemon · Регистрация: 09.12.2015

Студворк — интернет-сервис помощи студентам

Как зациклить mciSendString()?
Фишка из делфи

Delphi
1
mciSendString("play 1.wav repeat", NULL, 0,0);

не канает

Если у этой функции нет команды зацикливания, то как её можно привязать к таймеру допустим?

@volvo · 13.02.2016, 12:53

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

Фишка из делфи

При чем тут Дельфи? Это WinAPI-шная фишка, и она "канает" при использовании любого языка программирования.

@nick42 · 13.02.2016, 13:26

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

Как зациклить mciSendString()?

У меня в таком виде

C++
1
2
   HWND MCIHwnd=MCIWndCreate(Application->Handle,HInstance,NULL,"test.mp3");
   MCIWndSendString(MCIHwnd,"Play repeat");

гудит, пока не остановишь... .

@JustDaemon · 13.02.2016, 15:37 **[ТС]**

volvo, увидел сейчас ваш ответ в теме с такой же проблемой как у меня Ошибка "указанный параметр команды не распознан драйвером" (mciSendString)
То есть у меня тоже ошибка "указанный параметр команды не распознан драйвером", но вроде как пробелов нет, делаю как подсказал nick42,

C++
1
2
HWND MCIHwnd=MCIWndCreate(Application->Handle,HInstance,NULL,"1.wav");
        MCIWndSendString(MCIHwnd,"Play repeat");

не могли бы вы подсказать в чём проблема?

@nick42 · 13.02.2016, 15:54

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

указанный параметр команды не распознан драйвером

Если расширение сменить на mp3, то "скушает". А в чем проблема - только гадать остаётся (или святцы читать).

@JustDaemon · 13.02.2016, 23:05 **[ТС]**

nick42, Спасибо большое! Очень выручили!
А как остановить этот повтор?

Попробовал как думал логически

C++
1
2
HWND MCIHwnd=MCIWndCreate(Application->Handle,HInstance,NULL,"1.mp3");
        MCIWndSendString(MCIHwnd,"Stop repeat");}

но явно не то

@nick42 · 14.02.2016, 01:26

Ну, если MCIHwnd сделать общей (или вынести в секцию private формы), то остановить воспроизведение можно по другой кнопке: if(MCIHwnd) MCIWndStop(MCIHwnd);. Вообще-то я это всё интуитивно; просматривая подключаемый файл vfw.h.

@JustDaemon · 14.02.2016, 15:12 **[ТС]**

Извиняюсь за наверное глупый вопрос, но как её сделать общей?...не совсем понял что вы имели ввиду.
Если вы имели ввиду как глобальную, то какой это тип?

@nick42 · 14.02.2016, 15:23

Ну да. Глобальная - это и есть общая. В заголовочном файле это так__

C++
1
2
private:    // User declarations
        HWND  MCIHwnd;

Добавлено через 5 минут

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
} 
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    if(!MCIHwnd) MCIHwnd = MCIWndCreate(Application->Handle,HInstance,NULL,"test.mp3");
    MCIWndSendString(MCIHwnd,"Play repeat");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    if(MCIHwnd) MCIWndStop(MCIHwnd);
}
//---------------------------------------------------------------------------

@JustDaemon · 17.02.2016, 00:10 **[ТС]**

nick42, спасибо большое! Вы очень помогли. По сути я реализовал всё что хотел, но вот хотел узнать, ваш фрагмент кода ставит аудио на паузу, а можно как то именно остановить?

Это не столь обязательно, но всё таки

@nick42 · 17.02.2016, 00:59

..Наверное достаточно будет созданный MCIHwnd закрыть ( MCIWndClose(hwnd) ). Есть еще MCIWndDestroy(hwnd), MCIWndEject(hwnd), - пробуйте, что больше подходит.

Новые блоги и статьи Все статьи Все блоги /
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .
Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .	Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .

Циклическое выполнение вызова MciSendString()

Решение

Решение

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	14.02.2016, 01:26
	Ну, если MCIHwnd сделать общей (или вынести в секцию private формы), то остановить воспроизведение можно по другой кнопке: if(MCIHwnd) MCIWndStop(MCIHwnd);. Вообще-то я это всё интуитивно; просматривая подключаемый файл vfw.h. 0

@JustDaemon 0 / 0 / 1 Регистрация: 09.12.2015 Сообщений: 35
	14.02.2016, 15:12 [ТС]
	Извиняюсь за наверное глупый вопрос, но как её сделать общей?...не совсем понял что вы имели ввиду. Если вы имели ввиду как глобальную, то какой это тип? 0

@JustDaemon 0 / 0 / 1 Регистрация: 09.12.2015 Сообщений: 35
	17.02.2016, 00:10 [ТС]
	nick42, спасибо большое! Вы очень помогли. По сути я реализовал всё что хотел, но вот хотел узнать, ваш фрагмент кода ставит аудио на паузу, а можно как то именно остановить? Это не столь обязательно, но всё таки 0

@nick42 Практикантроп 4841 / 2726 / 534 Регистрация: 23.09.2011 Сообщений: 5,798
	17.02.2016, 00:59
	..Наверное достаточно будет созданный MCIHwnd закрыть ( MCIWndClose(hwnd) ). Есть еще MCIWndDestroy(hwnd), MCIWndEject(hwnd), - пробуйте, что больше подходит. 0