TActiveX() no Funciona en FWH 12.12 Alguien sabe porque
oActiveX = TActiveX():New( oDlg,"MediaPlayer.MediaPlayer.1",oDlg:nTop, oDlg:nLeft, oDlg:nRight, oDlg:nBottom )
Sale este error: Can't read from type ActiveX
Existe otra manera de mostrar videos.
Gracias
Saludos,
Adhemar
#include "FiveWin.ch"
function Main()
local oWnd, oActiveX
DEFINE WINDOW oWnd TITLE "FiveWin ActiveX Support"
oActiveX = TActiveX():New( oWnd, "WMPlayer.OCX" )
oWnd:oClient = oActiveX // To fill the entire window surface
oActiveX:url = "clapping.wav"
ACTIVATE WINDOW oWnd
return nilFunction PlayVideo()
聽 聽Private oDlg, oActiveX,aCoors:=GetCoors( FindWindow("Shell_TrayWnd","") )
聽 聽VideoPath:=AllTrim(UBICACION)+AllTrim(NOMBRE)+'.'+EXT
聽 聽
聽 聽If !File(VideoPath)
聽 聽 聽MsgAlert("No existe el video","Lo siento")
聽 聽 聽Return
聽 聽Endif
聽
聽 聽DEFINE DIALOG oDlg TITLE UPPER(NOMBRE) FROM -7,1 TO aCoors[1]-11, aCoors[4] PIXEL;oDlg:lHelpIcon := .F.
聽 聽 oActiveX = TActiveX():New( oDlg,"WMPlayer.OCX" )
聽 聽ACTIVATE DIALOG oDlg CENTER ON INIT MuestraVIDEO()
聽 聽oDlg:End()
Return NIL
*
STATIC Function MuestraVIDEO()
聽
聽 oDlg:oClient = oActiveX
聽 oActiveX:url = VideoPath
Return Nil#include "FiveWin.ch"
function Main()
聽 聽local oDlg
聽 聽DEFINE DIALOG oDlg TITLE "FiveWin ActiveX Support"
聽 聽ACTIVATE DIALOG oDlg ;
聽 聽 聽 ON INIT BuildMPlayer( oDlg )
return nil
function BuildMPlayer( oDlg )
聽 聽local oActiveX
聽 聽oActiveX = TActiveX():New( oDlg, "WMPlayer.OCX" )
聽 聽oDlg:oClient = oActiveX // To fill the entire window surface
聽 聽oActiveX:Settings:Volume = 7
聽 聽oActiveX:url = "clapping.wav"
聽 聽oActiveX:EnableContextMenu()
聽 聽
聽 聽oDlg:Maximize()
聽 聽
聽 聽while oActiveX:Playstate != 1
聽 聽 聽 SysRefresh()
聽 聽end
聽 聽
聽 聽oDlg:End()
return nilGracias Antonio
Cuando termina de reproducirse el video se cierra perfecto.
pero cuando cierro el dialogo el video sigue reproduci茅ndose.
Muchas gracias.
Saludos,
Adhemar
Adhemar,
Si, lo he observado tambien. No se si algun evento pueda ayudarnos.
Primero intent茅 con eventos pero no encontr茅 un patr贸n que pudiese ser el fin de reproducci贸n y al final encontr茅 la otra forma de hacerlo sin eventos.
Y la documentaci贸n de Microsoft y ejemplos que encontr茅 no ayudaron lo suficiente. Pero bueno, algo es algo, igual encontramos la forma m谩s adelante 
Gracias Antonio
Estar茅 aguardando.
Saludos,
Adhemar
Creo que esto puede servir:
en el VALID del di谩logo podemos hacer:
oActiveX:controls:Stop() y luego devolver .T.
Gracias Antonio
Funciona perfecto.
C贸mo hacer que el video se inicie maximizado?
De donde se puede conseguir informaci贸n sobre mas controles.
Gracias por tu tiempo.
Saludos,
Adhemar
Adhemar,
El di谩logo se muestra maximizado ? oDlg:Maximize() desde ON INIT. Si has hecho oDlg:oClient := oActiveX se ajustar谩 automaticamente.
Toda la informaci贸n necesaria para proporcionarte este ejemplo la he conseguido en google, simplemente buscando
Busca por el nombre del ActiveX y revisa los ejemplos que te aparezcan, aunque esten en otros lenguajes. Te servir谩n para ver todo lo que se puede hacer con 茅l
Antonio
Efectivamente el dialogo aparece maximizado, el video no, hay que dar doble click para que maximice en toda la pantalla.
C贸mo dar doble click?
Gracias distinguido.
Saludos,
Adhemar
#include "FiveWin.ch"
static oActiveX
function Main()
local oDlg
DEFINE DIALOG oDlg TITLE "FiveWin ActiveX Support"
ACTIVATE DIALOG oDlg ;
ON INIT BuildMPlayer( oDlg ) ;
VALID ( oActiveX:controls:Stop(), .T. )
return nil
function BuildMPlayer( oDlg )
oActiveX = TActiveX():New( oDlg, "WMPlayer.OCX" )
oDlg:oClient = oActiveX // To fill the entire window surface
oActiveX:Settings:Volume = 7
oDlg:Maximize()
oActiveX:url = "fivewin.avi"
oActiveX:StretchToFit = .T.
oActiveX:EnableContextMenu()
while oActiveX:Playstate != 1
SysRefresh()
end
oDlg:End()
return nilEn su dia inspeccion茅 ese objeto y esta es la lista de propiedades y metodos que obtuve:
Perfecto.
Gracias Distinguido.
C贸mo obtener la duraci贸n del video, como la muestra el explorador de Windows para cargar los videos a una base.
Uso el comando DIR desde DOS
DIR C:\VIDEOS*.AVI /S/-C >>VIDEOS.TXT //No muestra la duraci贸n.
Gracias por tu tiempo y ayuda.
Saludos,
Adhemar
聽 while oActiveX : Playstate != 1
聽 聽 聽 SysRefresh()
聽 聽end
聽 聽MsgInfo( oActiveX : currentmedia:durationString ) 聽// esta l铆nea