FiveTech Software tech support forums

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

... lo que necesitamos. STATIC Function GetPropFile( oWnd, cFile ) LOCAL oActiveX, pStatus pStatus:=Array(11) oActiveX = TActiveX():New( oWnd, "MediaPlayer.MediaPlayer.1",0,0,0,0) oActiveX:SetProp( "FileName", cFile ) oActiveX:Hide() pStatus[1] := cFileNoPath( oActiveX:GetProp( ...

... ya que vi en tu ejemplo que usas ActiveX para mostrar videos, yo hago lo mismo y uso la siguiente linea:   @ 58,0 ACTIVEX oActiveX PROGID "MediaPlayer.MediaPlayer.1" OF oWndV SIZE 400,400  y me funciona bien en WVista pero al correr el sistema en WXP solo muestra la caratura inicial ...

... DEFINE DIALOG oDlgeNT RESOURCE "DLG1" REDEFINE ACTIVEX oActiveX2 ID 4001 of oDlgeNT PROGID "MediaPlayer.MediaPlayer.1" ACTIVATE DIALOG oDlgeNT ON INIT( ARRANCAACTIVEX()) CENTER RETURN FUNCTION ARRANCAACTIVEX() oActiveX2:ShowControls :=.f. ...

Hola Echacon:

Aqui tienes los parametros para el ActiveX.

http://msdn.microsoft.com/en-us/library/ms930698.aspx

un saludo
JLL
MSN: fwh-jll@hotmail.es

... DEFINE DIALOG oDlgeNT RESOURCE "DLG1" REDEFINE ACTIVEX oActiveX2 ID 4001 of oDlgeNT PROGID "MediaPlayer.MediaPlayer.1" ACTIVATE DIALOG oDlgeNT ON INIT( ARRANCAACTIVEX()) CENTER RETURN FUNCTION ARRANCAACTIVEX() oActiveX2:ShowControls :=.f. ...

... 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

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

... oDlg, oActiveX, cFile ) /*------------------------------------------------------------------------------*/ oActiveX = TActiveX():New( oDlg, "MediaPlayer.MediaPlayer.1",; oDlg:nTop, oDlg:nLeft, oDlg:nRight, oDlg:nBottom ) oActiveX:SetProp( "FileName", cFile ) Return( oActiveX ...

... oActiveX, cFile ) /*------------------------------------------------------------------------------*/    oActiveX = TActiveX():New( oDlg, "MediaPlayer.MediaPlayer.1",;                               oDlg:nTop, oDlg:nLeft, oDlg:nRight, oDlg:nBottom )    oActiveX:SetProp( "FileName", ...

... a PDA and with ROM kitchen software you can create a setup: “your own WINDOWS CD”. What I would like is a windows installation without internet, mediaplayer my own software included. Best regards, Otto

... Mike. DEFINE WINDOW owndvid FROM 0,0 TO 400,550 pixel style nOr(WS_POPUP ) activevid = TActiveX():New( owndvid, "MediaPlayer.MediaPlayer.1" ) activevid:TransparentAtStart:=.t. activevid:FileName ="fivewin.avi" ...