Flash desde recursos en dialogo?

[Ruben D. Fernandez]

Amigos:
Estoy tratando de mostrar un archivo .swf con un
dialogo desde recursos y no le doy con la tecla.

Alguna ayuda, por favor?

Muchas gracias.

Ruben Fernandez

[Raymundo Islas M.]

Ruben,


Prueba esto :

Code: Select all  Expand view  RUN

DEFINE DIALOG dbSplshIni RESOURCE "PDBOPNXEMP" ;
   BRUSH oDlgsBrsh TRANSPARENT

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

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

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




Static Function DoXInProcs( oActiveX )
LOCAL cPthFlsh := CurDrive() + ":\" + Curdir() + "\MEDIA\FLASH\SPLASH.SWF"
oActiveX:Do( "LoadMovie", 0, cPthFlsh )
oActiveX:Do( "Play" )
Return NIL
*-----*




Y en tu RC creas el control como TACTIVEX



Saludos

[Ruben D. Fernandez]

Raymundo:

Funciono perfecto..., pero como lo paro cuando salga del dialogo


Muchas gracias.

Ruben Fernandez.

[Raymundo Islas M.]

Ruben,

Al cerrar el dialogo :

oActiveX:Do( "Stop" )


Saludos

[Ruben D. Fernandez]

Raymundo:

No me funciona.
Habria otra forma?

Gracias.

Ruben Fernandez