Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail



Ответ
 
Опции темы
Старый 17.01.2011, 05:45   #1
Alt
Лжец и смутьян
Форумчанин
 
Аватар для Alt
 
Регистрация: 03.04.2009
Сообщений: 194
Репутация: 55
По умолчанию mciSendString

Воспроизвожу сейчас звук с помощью процедуры следующего вида:

Код:

procedure SendMCICommand(Cmd: string);
var
  RetVal: integer;
  ErrMsg: array [0 .. 254] of char;
begin
  RetVal := mciSendString(PChar(Cmd), nil, 0, 0);
  if RetVal <> 0 then
  begin
    { get message for returned value }
    mciGetErrorString(RetVal, ErrMsg, 255);
    MessageDlg(StrPas(ErrMsg), mtError, [mbOK], 0);
  end;
end;

Применяю так:
Код:

SendMCICommand('play "sound\test1.wav"');

Вопросы: 1. как зациклить воспроизведение одного файла
2. как прервать цикл воспроизведения того файла файла
Alt вне форума   Ответить с цитированием
Старый 13.04.2014, 10:00   #2
KaDima28
Пользователь
 
Регистрация: 24.03.2014
Сообщений: 48
Репутация: 10
По умолчанию

SendMCICommand('stop "sound\test1.wav"');

Я понимаю что это было 5 лет назад .
Просто такая-же проблема была.
KaDima28 вне форума   Ответить с цитированием
Ответ



Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
mciSendString не открывает некоторые файлы Гром Общие вопросы C/C++ 10 28.12.2010 10:55




05:34.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru