Проигрывание звуковых файлов из Lua (mp3, wav, midi и т.д.)

Вот тут еще показано использование простых в использовании функции MessageBeep и Beep, которым для проигрывания звуков никакие файлы не нужны
[url]http://quik2dde.ru/viewtopic.php?pid=460#p460[/url]

Да простит автор мою бездарность, не заметил сразу шутки в коде:)
Конечно
w32.mciSendString("CLOSE QUIK_MP3")
вряд ли отработает, если алиас  QUIK_MP3 назначен в следующей строке.

Получается, что на время проигрывания надо тормозить скрипт и потом файл закрывать

function PlaySoundFile(file_name)
    w32.mciSendString("OPEN \"" .. file_name .. "\" TYPE MpegVideo ALIAS QUIK_MP3")
    w32.mciSendString("PLAY QUIK_MP3")
    sleep(5000)
    w32.mciSendString("CLOSE QUIK_MP3")
end
Тогда работает.

Попробовал убрать sleep и добавить wait
    w32.mciSendString("PLAY QUIK_MP3 WAIT")
ничего не меняется

Попробовал вместо sleep использовать статус воспроизведения
st=w32.mciSendString("STATUS QUIK_MP3 POSITION")
Возвращает ноль как во время воспроизведения, так и после.
Может это какая-то обрезанная версия w32 ?

В том и проблема. Если не отработать  w32.mciSendString("CLOSE QUIK_MP3") и остановить скрипт, то в следующий запуск скрипта  w32.mciSendString("PLAY QUIK_MP3") выдает ошибку тк поток не закрыт. CLOSE не может отработать  посколько алиас не назначен. Если поставить CLOSE после PLАY то обрывается проигрывание. С задержкой sleep на время проигрывания и потом CLOSE все работает. Те нужно закрыть поток после проигрывания и желательно без остановки скрипта. Как, не могу придумать. Пробовал поставить закрытие в OnStop(), тоже не работает.

У меня подозрение, что проблема в том, что вы вызываете из main()
Это вам точно требуется по задаче?

Доподлинно проверить не могу, от чего-то на Win10 у меня скрипт с проигрыванием звуков этот вовсе убивает терминал. Поразбираюсь, отпишусь.

Возможно, это как раз важно.
Потому и хотелось бы, чтобы вы проверили: связана ли проблема с вызовом из main()?

Добавьте в OnStop() строчку
w32.mciSendString("CLOSE QUIK_MP3")
да и всё.
Хотя у меня ни разу не наблюдалось проблем с незакрытым дексприптором проигрывания.

Да. Похоже проблемы растут не из скрипта.
Quik у меня под wine на Mac'е.

В общем танцы с бубном показали, что в данной конфигурации выход из скрипта без закрытия проигрывания блокирует все последующие запуски проигрывания до перезагрузки квика. Поставить закрытие в OnStop() не помогает тк алиас туда не передается.
Ладно. Хоть так, с остановкой на sleep() и последующим закрытием поет

Спасибо за помощь.

Попробовал w32.mciSendString
Скопировал с поста выше.

require("w32");
PlaySoundFile(getScriptPath().."\\dirSound\\WindowsYES.wav");

function PlaySoundFile(file_name)
  w32.mciSendString("CLOSE QUIK_MP3");
  local n = w32.mciSendString("OPEN \"" .. file_name .. "\" TYPE MpegVideo ALIAS QUIK_MP3");
  message(tostring(n), 2);
  w32.mciSendString("PLAY QUIK_MP3");   
end;
До message не дошло.
Выдает ошибку на строке PlaySoundFile(getScriptPath().."\\dirSound\\WindowsYES.wav");
attempt to call global 'PlaySoundFile' (a nil value)
Пробовал менять и пути и файл. На 8.4 и на 8.5. Не помогло.
Что может быть. Win7

Спасибо

fin, у вас просто Lua скрипт неправильно составлен.

Да. Заработался. Вынес функцию из main() и все работает.

w32.mciSendString("PLAY QUIK_MP3 WAIT") ?