Page 1 of 1
Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 2:52 pm
by Vladimir Zorrilla
Amigos
Como se reproduce un archivo con extension swf en FW
Gracias por su ayuda
Re: Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 3:39 pm
by 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
Re: Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 3:47 pm
by Antonio Linares
Adolfo,
La versión 9.05 permite directamente hacer:
oActivex:LoadMovie( 0, cPthFlsh )
oActivex:Play()
Re: Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 4:02 pm
by Adolfo
Antonio..
Cierto.. acabo de probarlo..
grax..
Desde Chile
Adolfo
Re: Como se reproduce un archivo con extension swf en FW
Posted: Fri Jun 12, 2009 4:11 pm
by Antonio Linares
Adolfo,
Y tambien:
oActiveX:Stop()