| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Звук, графика и видео > Не срабатывает TMediaPlayer.OnNotify |
| Автор: oboltus 9.2.2009, 10:24 |
| проблема следующая : на форме расположены TTCPServer,TTCPClient, TMediaPlayer и TPanel как дисплей для медиаплеера. с помощью TCPServer принимаются медиафайлы, по определенной команде медиаплеер начинает их воспроизводить. Проблема в следующем. Если команду на начало воспроизведения получает TTcpServer, воспроизведение аудио- или видеофайла начинается, методы Open и Play у медиаплеера проходят без ошибок, но не возникает событие OnNotify после проигрывания , кроме того, приложение после закрытия остается висеть в ОП. Если проигрывание начинать кнопкой, которая расположена на форме, то проблема не возникает. после получения сервером команды на воспроизведение выполняется(упрощенно) следующий код: fmplayer.FileName:=vfile.path; fmplayer.Display:=fDisplay; fmplayer.Open; fmPlayer.DisplayRect:=fRect; fmPlayer.Notify:=true; fmplayer.Play; Подскажите, в какую сторону думать ? |
| Автор: oboltus 9.2.2009, 12:32 |
| извиняюсь, решение нашел сам после двух недель мучений ) при получении TTcpServer'ом команды на воспроизведение воспользовался апишным методом PostMessage, обработчик события накидал в той же форме, -так воспроизведение проходит без глюков ) |