急求TWindowsMediaPlayer循环播放的问题的问题! Delphi / Windows SDK/APIhttp://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;
谢谢先,这样可以播发是可以,只有声音,但是没有图像,屏幕是黑的!
难道是解码的原因?
解码没有问题,第一次的时候播放没有问题,就是第二边的的时候就有问题!