[nixon232]

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

Команды Open и Play посылай в одном потоке.

Да вроде как в одном, специально перенес Asound

Код:

type
  TWait = class(TThread)
  private
    ....
 Asound: TMCIPlayer;
   ....

constructor TWait.Create(doLog:Boolean=False   );
begin

  inherited Create;
    ....
 Asound:= TMCIPlayer.Create('d:\Alert.mp3')
end;


procedure TWait.OnHiLite(RepeatAgain, HiLite: boolean);

begin
if RepeatAgain then
   .....
   if HiLite then
   begin
   //  Synchronize(Alert);
     Asound.Play
   end;

end;

    

[NumLock]

Execute нет. А зачем вообще тут поток, звук и так асинхронно воспроизводится.

[nixon232]

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

Execute нет. А зачем вообще тут поток, звук и так асинхронно воспроизводится.

Execute Есть, но не связан с воспроизведением звука.

Ну да, через Syncronize вызывается,но не удобно т.к событие отсчитывается в потоке, там бы и хотелось вызвать.

[nixon232]

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

Execute Есть, но не связан с воспроизведением звука.

Ну да, через Syncronize вызывается,но не удобно т.к событие отсчитывается в потоке, там бы и хотелось вызвать.

В общем получилось если объект объявить локально перед воспроизведением. Но как тогда определить конец файла, чтобы уничтожить объект?

[NumLock]

В dwCallback передается Handle окна, которому приходят MM_MCINOTIFY. Поток не нужен для ММ.