Flash desde recursos en dialogo?

Flash desde recursos en dialogo?

Postby Ruben D. Fernandez » Fri Aug 22, 2008 6:09 pm

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
Ruben D. Fernandez
 
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Postby Raymundo Islas M. » Fri Aug 22, 2008 8:35 pm

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
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Postby Ruben D. Fernandez » Sat Aug 23, 2008 5:23 pm

Raymundo:

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


Muchas gracias.

Ruben Fernandez.
Ruben D. Fernandez
 
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay

Postby Raymundo Islas M. » Sat Aug 23, 2008 8:48 pm

Ruben,

Al cerrar el dialogo :

oActiveX:Do( "Stop" )


Saludos
FWH 10.6 + xHarbour + Borland 582
User avatar
Raymundo Islas M.
 
Posts: 592
Joined: Tue Mar 14, 2006 11:34 pm
Location: Acapulco, Gro. MEXICO

Postby Ruben D. Fernandez » Sun Aug 24, 2008 12:13 pm

Raymundo:

No me funciona.
Habria otra forma?

Gracias.

Ruben Fernandez
Ruben D. Fernandez
 
Posts: 189
Joined: Sun Jul 08, 2007 1:46 am
Location: Uruguay


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: JoseLuis and 23 guests