toxa пишет:

w32.mciSendString("PLAY QUIK_MP3 WAIT") ?

[url]https://frolov-lib.ru/books/bsp/v15/ch2_2.htm[/url], есть такое, но описания нет

Есть, но читать надо много

w32.mciSendString("PLAY QUIK_MP3 WAIT") ?

Надо пробовать, но в командах этого вроде нет

[url]https://frolov-lib.ru/books/bsp/v15/ch2_2.htm[/url], есть такое, но описания нет

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

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

Для теста полный текст скрипта должен выглядеть либо так:

local w32 = require("w32")

function PlaySoundFile(file_name)
  w32.mciSendString("CLOSE QUIK_MP3") 
  w32.mciSendString("OPEN \"" .. file_name .. "\" TYPE MpegVideo ALIAS QUIK_MP3")
  w32.mciSendString("PLAY QUIK_MP3")
end

PlaySoundFile("C:\\WINDOWS\\Media\\Windows Logon Sound.wav")

либо так:

local w32 = require("w32")

function OnInit()
  PlaySoundFile("C:\\WINDOWS\\Media\\Windows Logon Sound.wav")
end

function PlaySoundFile(file_name)
  w32.mciSendString("CLOSE QUIK_MP3") 
  w32.mciSendString("OPEN \"" .. file_name .. "\" TYPE MpegVideo ALIAS QUIK_MP3")
  w32.mciSendString("PLAY QUIK_MP3")
end

PS
Надо же, я сделал описку в имени функции в первом же посте изначально (PaySound вместо PlaySound), и так это название и копировал везде, не замечая описки

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

Спасибо

Quik у меня под wine на Mac'е.
Поставить закрытие в OnStop() не помогает тк алиас туда не передается.

В смысле? какой альяс не передаётся?
"QUIK_MP3" - это создаётся "глобальный системный" альяс с таким именем для функций mci, никуда его передавать не нужно.
Другое дело, что видимо в wine уже штуку сделали так вот странно, это, очевидно, основное уточнение.

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

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

Имхо не важно откуда вызывается.

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

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

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

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

Спасибо!

Имхо не важно откуда вызывается. По сути вопрос сводится к тому, как можно закрыть поток  до выхода из скрипта?

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

function main()
    is_run=true
    while is_run do
        PlaySoundFile("c:\\miss.wav")
        is_run=false
        sleep(500)
    end
end
function OnStop()
  is_run = false
end

-- функция проигрывания файла
-- вызов: PlaySoundFile("имя файла")
function PlaySoundFile(file_name)
  w32.mciSendString("CLOSE QUIK_MP3")
  w32.mciSendString("OPEN \"" .. file_name .. "\" TYPE MpegVideo ALIAS QUIK_MP3")
  w32.mciSendString("PLAY QUIK_MP3 ")
end

Kolossi пишет:

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

Это вовсе не шутка. Это "остановить предыдущее проигрывание", если оно было запущено.
Не было запущено - ну и ладно, проблемы в этом нет.
Так что шуток в коде нет и вроде даже нет ошибок.

Но хотелось бы посмотреть на тот скрипт (полный!), который вы используете, чтобы можно было понять проблему. Как вы получаете приведённый вами код ошибки? Возможно, проблема вообще в чем-то другом, а не в данной функции.

Зачем вы вставляете Sleep() - совсем не понятно, это ж приостанавливает скрипт на время Sleep, это вам точно требуется?

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