急求TWindowsMediaPlayer循环播放的问题的问题！

急求TWindowsMediaPlayer循环播放的问题的问题！ Delphi / Windows SDK/API
http://www.delphi2007.net/DelphiMultimedia/html/delphi_20060922222216300.html
我想用TWindowsMediaPlayer无限循环播放一个媒体文件，当文件播放结束的时候再从头来过，无限次。当我在playstatechange事件中，当播放结束的时候，再play，只有声音没有图像，然后用close,然后,url重新负值，然后play，竟然没有反应！请指教!谢谢

这样的代码，在D7   XPsp2   WMP10下循环播放WMV文件并没有问题  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
      WindowsMediaPlayer1.URL:=   'd:\1.wmv';  
  end;  
   
  procedure   TForm1.WindowsMediaPlayer1PlayStateChange(ASender:   TObject;  
      NewState:   Integer);  
  begin  
      if   NewState   =   wmppsStopped   then   WindowsMediaPlayer1.controls.play;  
  end;

谢谢先，这样可以播发是可以，只有声音，但是没有图像，屏幕是黑的！

难道是解码的原因?

解码没有问题，第一次的时候播放没有问题，就是第二边的的时候就有问题！

转载于:https://www.cnblogs.com/delphi2007/archive/2009/03/13/1410321.html