Como se reproduce un archivo con extension swf en FW

Vladimir Zorrilla

Posts: 225

Joined: Tue Feb 28, 2006 04:25 PM

Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 02:52 PM

Amigos

Como se reproduce un archivo con extension swf en FW

Gracias por su ayuda

ME INTERESA FW Y XHB POR SER OPEN SOURCE

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 03:39 PM

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

Code (fw): Select all Collapse

//--------------------------------------------------------------
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

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 03:47 PM

Adolfo,

La versión 9.05 permite directamente hacer:

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Adolfo

Posts: 883

Joined: Tue Oct 11, 2005 11:57 AM

Re: Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 04:02 PM

Antonio..

Cierto.. acabo de probarlo..

grax..

Desde Chile
Adolfo

;-) Ji,ji,ji... buena la cosa... "all you need is code"

http://www.xdata.cl - Desarrollo Inteligente
----------
Asus TUF F15, 32GB Ram, 2 * 1 TB NVME M.2, GTX 1650

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 04:11 PM

Adolfo,

Y tambien:

oActiveX:Stop()

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion