by jll-fwh » Mon Feb 22, 2010 4:36 am
Hag:
Usa ActiveX y olvidate de mil problemas, ademas con windows 7 puedes ver todo tipo de formatos de video con esta funcion, sin necesidad de programar nada. Ahora con Windows 7 tambien reproduce .MOV ( quikTime ), FLV ( ficheros YouTube ).
Este es un ejemplo con DIALOG:
/*------------------------------------------------------------------------------*/
STATIC Function MostrarWMP( cFile, cTitle )
/*------------------------------------------------------------------------------*/
*/ Funcion ActiveX para visualizar el WMP ( Windows Media Player ) dentro de un Dialogo. */
LOCAL oDlg, oActiveX
DEFINE DIALOG oDlg TITLE cTitle FROM 1,1 TO 300,580 PIXEL
oDlg:lHelpIcon := .F.
ACTIVATE DIALOG oDlg CENTERED;
ON INIT ( oActiveX := ActivaWMP( oDlg, oActiveX, cFile ) );
VALID ( oActiveX:DO( "Stop" ), oActiveX:End(), .T. )
Return NIL
/*------------------------------------------------------------------------------*/
STATIC Function ActivaWMP( oDlg, oActiveX, cFile )
/*------------------------------------------------------------------------------*/
oActiveX = TActiveX():New( oDlg, "MediaPlayer.MediaPlayer.1",;
oDlg:nTop, oDlg:nLeft, oDlg:nRight, oDlg:nBottom )
oActiveX:SetProp( "FileName", cFile )
Return( oActiveX )
Un saludo
JLL