open a video in a dialog box?

[hag]

Is it possible to open a video in a separate dialog.
I want to an open a demo of my app in a dialog when opening the app.

Can it be done and if so how?

Thanks.

[Enrico Maria Giordano]

Did you try DEFINE VIDEO command?

EMG

[jll-fwh]

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

[lailton.webmaster]

Using this mode, if u resize window video resize too.

STATIC Function ActivaWMP( oDlg, cFile )
Local oAct:=TActiveX():New( oDlg, "MediaPlayer.MediaPlayer.1")
oAct:SetProp( "FileName", cFile )
oDlg:oClient:=oAct
Return oAct

[hag]

Thank you all for the help. I'll be trying some of the suggestions.

[lailton.webmaster]

Other sample:


#include "Fivewin.ch"

static oWnd, oAct

Function main()

define window ownd
wmp("arquivo.mp4")
activate window ownd

Return nil

function wmp( cFile )

oAct:=TActiveX():New( oWnd, "MediaPlayer.MediaPlayer.1")
oAct:SetProp( "FileName", cFile )
oWnd:oClient:=oAct

Return