WD Playing a Flash animation swf
// Select the video file
sFile is string
sFile = fSelect(EDT_FILE, "Select a Flash file...",...
"Flash files (*.swf)"+TAB+"*.swf"+CR+...
"All files (*.*)"+TAB+"*.*",...
"*",fselOpen+fselExist)
WinRedraw()
// If a file was selected
IF sFile<>"" THEN
EDT_FILE=sFile
// animation to load
ActiveX1>>movie=EDT_FILE
// stop the animation
ActiveX1>>StopPlay()
END
// Play the animation
// Call the Play() method of the "Shockwave Flash Object" ActiveX
ActiveX1>>Play()
// Pause the animation
// Call the StopPlay() method of the "Shockwave Flash Object" ActiveX
ActiveX1>>StopPlay()
// Stop the animation
// Call the StopPlay() method of the "Shockwave Flash Object" ActiveX
ActiveX1>>StopPlay()
// Position at the start of the animation
// Call the GoToFrame() method of the "Shockwave Flash Object" ActiveX
ActiveX1>>GoToFrame(0)