TMediaPlayer problem

Hello,


I'm working on a simple programs that has to play WMV videos based on
a Time Schedule. 

If a WMV length is less than the play time fixed in the schedule I
have to replay the video till the end time in the Schedule.

My problem is that sometimes TMediaPlayes stops from replaying my
video.

To implement the replay function I use the OnNotify event in
TMediaPlayer. The code is:

  If TraceEnabled Then WriteLn( FDebug, ' OnNotify:
['+TimeToStr(Now)+'] NotifyValue = ' + NVToStr(MP.NotifyValue) + ',
OnPlay = ' +  BoolToStr(TimeSchedule.OnPlay) + ', IsVideo = ' +
BoolToStr(TimeSchedule.IsVideo) + ', Loop = ' +
BoolToStr(TimeSchedule.OnPlay) );

  If (MP.NotifyValue = nvSuccessful)And(TimeSchedule.OnPlay)
    And(TimeSchedule.IsVideo)And(TimeSchedule.Loop) Then
   Begin
    If TraceEnabled Then WriteLn( FDebug, ' OnNotify:
['+TimeToStr(Now)+'] Re-Play del video appena concluso');
    MP.Play;
    MP.Notify := True;
   End;

TraceEnabled isa a Boolean that is TRUE if I want debug infos saved on
a text file.

For example this is the trace that i've got for a scheduel that has to
replay a video from 10:35 to 11:00 :

 OnNotify: [10.35.01] NotifyValue = nvAborted, OnPlay = -1, IsVideo =
-1, Loop = -1
 OnNotify: [10.35.01] NotifyValue = nvSuccessful, OnPlay = -1, IsVideo
= -1, Loop = -1
 OnNotify: [10.35.01] Re-Play del video appena concluso
 OnNotify: [10.35.01] NotifyValue = nvSuperseded, OnPlay = -1, IsVideo
= -1, Loop = -1
 OnNotify: [10.37.52] NotifyValue = nvSuccessful, OnPlay = -1, IsVideo
= -1, Loop = -1
 OnNotify: [10.37.52] Re-Play del video appena concluso
 OnNotify: [10.37.52] NotifyValue = nvAborted, OnPlay = -1, IsVideo =
-1, Loop = -1
 OnNotify: [10.40.44] NotifyValue = nvSuccessful, OnPlay = -1, IsVideo
= -1, Loop = -1
 OnNotify: [10.40.44] Re-Play del video appena concluso
 OnNotify: [10.40.44] NotifyValue = nvAborted, OnPlay = -1, IsVideo =
-1, Loop = -1
 OnNotify: [10.40.44] NotifyValue = nvAborted, OnPlay = -1, IsVideo =
-1, Loop = -1

the video playback restart at 10:35 , 10:37 and 10:40 and then stops.

I can't understand NotifyValue different from "nvSuccessful" (why
nvAborted? why nvSuperseded? ) but it seems that the double
"nvAborted" stops the replay.

Does anyone has some suggestion?


Thank you

LUCA