oActiveX:Do("Stop") No me funciona

[Ruben D. Fernandez]

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

[mmercado]

no me funciona el oActiveX:Do("Stop")

Hola Rubén:

Ya probaste con oActiveX:End() ?

Aquí te dejo un ejemplo funcionando:

Code: Select all  Expand view  RUN

#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

Saludos.

Manuel Mercado

[Antonio Linares]

Ruben,

Prueba así:

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