Показать сообщение отдельно
  #5  
Старый 12.12.2016, 15:18
nixon232 nixon232 вне форума
Активный
 
Регистрация: 26.01.2014
Сообщения: 282
Версия Delphi: delphi xe4
Репутация: выкл
По умолчанию

Цитата:
Сообщение от 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;

    
Ответить с цитированием