Как вызвать функцию?

[gkc]

Подскажите, плиз, как зациклить аудио файл этой функцией? Как ее правильно вызвать?
(Это компоненты библиотеки LMDTools)

function TLMDWave.{$IFDEF CPPBUILDER}PlaySoundExt{$ELSE}PlaySound{$ENDIF}(aValue:TLMDSndPlayMode):Boolean;
var
  uFlags:Word;
begin
  result:=false;
  If Empty or not LMDMMWavePossible then Exit;
  uflags:=SND_MEMORY OR SND_NODEFAULT;
  case aValue of
    sdSync :uflags:=uflags or SND_SYNC;
    sdASync:uflags:=uflags or SND_ASYNC;
    sdLoop :uflags:=uflags or SND_ASYNC OR SND_LOOP;
  end;
  result:=SndPlaySound(FMemoryWave.Memory, uflags);
end;

Пример:
WaveList_Logo.Items[0].Wave.Play; // вызов одиночного звука из wav-листа
WaveList_Logo.Items[1].Wave.PlaySound(?); // думаю как-то так надо зациклить, но какие флаги писать?

[BDA]

Библиотекой не пользовался, но по приведенному коду предположу "WaveList_Logo.Items[1].Wave.PlaySound(sdLoop);".

[gkc]

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

Библиотекой не пользовался, но по приведенному коду предположу "WaveList_Logo.Items[1].Wave.PlaySound(sdLoop);".

Нет(
[Error] Logo.pas(5749): Undeclared identifier: 'sdLoop'

*У меня был этот код, пару лет назад в каком то проекте, но он затерялся(
Насколько помню, там в скобках были 2 флага, типа: "SND_ASYNC OR SND_LOOP"
Но я все счас перепробовал - нифига (-

[evg_m]

[Error] Logo.pas(5749): Undeclared identifier: 'sdLoop'

в модуль где вызывается данная функция (где ошибка) надо добавить к uses
какой-то из модулей перечисленных в uses описания данной функции
(тот где описан тип TLMDSndPlayMode)

[northener]

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

Но я все счас перепробовал - нифига (-

Что значит нифига?

[gkc]

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

в модуль где вызывается данная функция (где ошибка) надо добавить к uses
какой-то из модулей перечисленных в uses описания данной функции
(тот где описан тип TLMDSndPlayMode)

Так и есть! Спасибо! Как все просто когда носом ткнут)
добавил unit lmdwave и ошибка ушла!
Сбило с толку что
функ. Wave.Play; работала (она в том же модуле описана)
а Wave.PlaySound(sdLoop); не работала...

[gkc]

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

Что значит нифига?

Это значит - ничего не вышло...

[gkc]

А как корректно сменить музыку при вызове через Loop?

Допустим я вызвал второй файл из своего листа:
WaveList_Logo.Items[2].Wave.PlaySound(sdLoop);
Ок, все работает, Loop отрабатывает как надо,
Я хочу сменить файл, запустить третий файл:
да, если я вызову так:
WaveList_Logo.Items[3].Wave.PlaySound(sdLoop);
Функция корректно и моментально сменит файл, при этом есстно сразу оборвет предыдущую.
Это слушается не очень хорошо...
Какие варианты тут есть?
*Все рабочие файлы с в редакторе подготовил под Loop!
1.Я могу плавно уменьшить громкость (например через SetWaveVolume())
Сменить принулевой громкости файл и снова поднять громкость до старого значения.
Но будет провал звука на несколько секунд, что тоже не айс.
2. я могу ввести в константы длительность всех своих аудио треков
и отслеживать длительность текущей фонограммы в нормальном таймере.
и, при окончании фонограммы (если это нужно) выбирать новую и перевызывать
WaveList_Logo.Items[3].Wave.PlaySound(sdLoop);
Возможно это будет работать, но смущает асинхронность и костыльность решения.

Вопрос:
Есть ли какие-то еще решения как отследить длину трека и "вовремя" сменить его?
Возможно, можно получить какие-то данные об окончании файла от SndPlaySound? (MMSystem)
какие то ей запросы в таймере посылать?
Насколько я вижу она воспроизводит звук, то...