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

我想用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;

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

难道是解码的原因?

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

--------------------------
新闻：中国移动将简化资费套餐至10套以内
导航：博客园首页  知识库  新闻  招聘  社区  小组  博问  网摘  找找看