（急急急）使用flash控件播放swf文件时，如何让应用程序知道何时播放完毕

Question

我试图使用onReadyStateChange事件获取，但没有任何反应

Answer 1

Var
  MovieFile: TMemoryStream;
  Buffer: Byte;
  Seconds: Integer;//还有Seconds秒后,Flash播放完毕！！！
Begin
  MovieFile := TMemoryStream.Create;
  MovieFile.LoadFromFile(FClassicalPlayerUI.Movie);  MovieFile.Position := 17;
  //第十八其实就是未经处理的Flash影片的帧频率整数位。
  //第十七为小数位。
  Buffer := MovieFile.Read(Buffer, 1);  Seconds:=Buffer*FClassicalPlayerUI.TotalFrames;  MovieFile.Free;
End;