FiveTech Support Forums

Antonio:
Este es el codigo que no me funciona el oActiveX:Do("Stop")

Código de Raymundo Islas.(Gracias Raymundo)

FUNCTION FLASHINTRO()
LOCAL oActiveX

DEFINE DIALOG dbSplshIni RESOURCE "SALUDO"

REDEFINE ACTIVEX oActiveX ;
ID 110 ;
PROGID "ShockwaveFlash.ShockwaveFlash.1" ;
OF dbSplshIni

dbSplshIni:bStart := { || DoXInProcs( oActiveX ) }

dbSplshIni:lHelpIcon := .F.
ACTIVATE DIALOG dbSplshIni CENTER

oActiveX:Do("Stop")

Return(.F.)
//--------------------------------------------------//

Static Function DoXInProcs( oActiveX )
LOCAL cPthFlsh :="C:\GL\Saludo.SWF"
oActiveX:Do( "LoadMovie", 0, cPthFlsh )
oActiveX:Do( "Play" )
Return NIL

Ruben D. Fernandez wrote:no me funciona el oActiveX:Do("Stop")

#include "FiveWin.ch"

Function Main()

   Local oWnd, oActiveX, oMenu

   MENU oMenu
      MENUITEM "Stop" ACTION oActiveX:Do( "Stop" )
      MENUITEM "Play" ACTION oActiveX:Do( "Play" )
      MENUITEM "End" ACTION oActiveX:End()
   ENDMENU

   DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support" MENU oMenu

   oActiveX = TActiveX():New( oWnd, "ShockwaveFlash.ShockwaveFlash.1" )
   oActiveX:Do( "LoadMovie", 0, "c:\fwh\samples\ball.swf" )

   ACTIVATE WINDOW oWnd ;
      ON INIT oActiveX:Do( "Play" )

Return Nil

Ruben,

Prueba así:

ACTIVATE DIALOG dbSplshIni CENTER ;
VALID ( oActiveX:Do("Stop"), .T. )