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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Flash desde recursos en dialogo?
Ruben,
Prueba esto :
Y en tu RC creas el control como TACTIVEX
Saludos
Prueba esto :
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
Raymundo:
Funciono perfecto..., pero como lo paro cuando salga del dialogo
Muchas gracias.
Ruben Fernandez.
Ruben,
Al cerrar el dialogo :
oActiveX:Do( "Stop" )
Saludos
FWH 10.6 + xHarbour + Borland 582
Raymundo:
No me funciona.
Habria otra forma?
Gracias.
Ruben Fernandez