Entry-video at Application-startup ?

[ukoenig]

Hello,

I created a Entry-video, to show on Window-init before the Application-starts.
The AVI plays without a Problem, but there is a white Area visible on Screen.
Is there still somethig missing ?

It seems to be a missing oVideo:End()
I changed < SHOW_VIDEO() > with a better Result :

FUNCTION SHOW_VIDEO()
LOCAL oVideo
IF FILE( "Show.avi" )
@ 0, 0 VIDEO oVideo FILE "Show.avi" SIZE 10, 10 // used to hide the white Area
oVideo:PlayFull()
INKEY(3)
oVideo:End()
ENDIF
RETURN NIL

I changed AVI to MPG, but it takes to long, loading the Video.
As well I get a white Sreen, before the Video starts to play.
Maybe another Solution ?





ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT ( SHOW_VIDEO(), nOldOption1 := nWStyle, ;
WND_BRUSH( oWnd, nWStyle, lWGrad, nWColorF, nWColorB, nWGradPos, cWBrush, cWImage ) )

RETURN NIL

// ----------------------------

FUNCTION SHOW_VIDEO()
LOCAL oVideo

IF FILE( "Show.avi" )
@ 0, 0 VIDEO oVideo FILE "Show.avi"
oVideo:PlayFull()
ENDIF

RETURN( NIL )


Best Regards
Uwe

[Rick Lipkin]

Uwe

Here is the code I use to play a quick .avi clip at the start of my programs with a timer to close the dialog.. the clip is a black screen with a white text logo that illuminates... Note the color and dialog size.

Rick Lipkin

Code: Select all  Expand view

// playavi.prg

#INCLUDE "FIVEWIN.CH"

//----------------------
Function _Playavi( cDEFA )

LOCAL oDLG, oAVI

IF .not. FILE( cDEFA+"\DHEC.AVI" )
   RETURN(NIL)
ENDIF

DEFINE DIALOG oDLG FROM 0,1  to 24,80   ;
       COLOR "N/N,N/N,N/N,N/N,N/N"  ;
       Title "Payroll Adjustment Program" ;
       STYLE nOr( WS_THICKFRAME, WS_POPUP )

  @ 1,9.5 VIDEO oAVI FILE ( cDEFA+"\DHEC.AVI" ) of oDLG SIZE 158,100 NOBORDER

ACTIVATE DIALOG oDLG CENTERED  ;
         ON INIT ( oAVI:PLAY(), AviTimer( oDLG, 2.5)  )

oDLG:END()
oAVI:END()

oDLG := NIL
oAVI := NIL

SysReFresh()

RETURN(NIL)

//-------------------
Static Func AviTimer(oDLG, nSECONDS )

LOCAL oTMR

DEFINE TIMER oTMR OF oDLG INTERVAL nSECONDS * 1000 ;
       ACTION ( oDLG:END() )

ACTIVATE TIMER oTMR

RETURN(NIL)

// end playavi.prg
 

[ukoenig]

Rick,

thank You very much.
I think with a AVI, embedded inside a Dialog, it works.
I tested before, playing a Video straight on the Main-window.
I noticed, using a MPG, there is a big difference in loadingtime.

Created a flying 3D-text as a Start-video :



Show.avi
http://www.pflegeplus.com/fw_downloads/show.zip

Best Regards
Uwe