Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.01.2011, 04:45   #1
Alt
Лжец и смутьян
Форумчанин
 
Аватар для Alt
 
Регистрация: 03.04.2009
Сообщений: 194
По умолчанию 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
По умолчанию

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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