Como se reproduce un archivo con extension swf en FW

[Vladimir Zorrilla]

Amigos

Como se reproduce un archivo con extension swf en FW

Gracias por su ayuda

[Adolfo]

Vladimir.. yo lo hago asi.. conmim flamante nueva 905... jiji

Code: Select all

//--------------------------------------------------------------
Function Acercade()

  Define Dialog Acercade resource "acercade" TITLE "Acerca de..."
  Acercade:lHelpIcon:=.F.

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

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

   ACTIVATE DIALOG Acercade CENTER

oActivex:Do("STOP")
oActivex:End()

Return Nil

//--------------------------------------------------------------
Static Function DoXInProcs( oActiveX )
LOCAL cPthFlsh := CurDrive() + ":\" + Curdir() + "\acercade.SWF"
oActivex:Do( "LoadMovie", 0, cPthFlsh )
oActivex:Do( "Play" )
Return NIL

Espero te sirva...

aaaaah y en el Dialogo ( .rc) tengo definido el recurso como TActivex

Desde Chile
Adolfo



p.d.

Editado
Por alguna razon se me quiebra el codigo.. este es el correcto

//--------------------------------------------------------------
Static Function DoXInProcs( oActiveX )
LOCAL cPthFlsh := CurDrive() + ":\" + Curdir() + "\acercade.SWF"
oActivex:Do( "LoadMovie", 0, cPthFlsh )
oActivex:Do( "Play" )
Return NIL

[Antonio Linares]

Adolfo,

La versión 9.05 permite directamente hacer:

oActivex:LoadMovie( 0, cPthFlsh )
oActivex:Play()

[Adolfo]

Antonio..

Cierto.. acabo de probarlo..

grax..

Desde Chile
Adolfo

[Antonio Linares]

Adolfo,

Y tambien:

oActiveX:Stop()