Hi all.
How do you see a MPEG file which the DVD increases even though it goes well ?
DVD Control method ?
/*--------------MPEG Player----------*/
FUNCTION MAIN()
publ oDlg, oVideo, oTimer
DEFINE DIALOG oDlg
@ 1, 0 VIDEO oVideo FILE "d:\test.mpg" MPG
@0, 0 SAY oSay Prompt oVideo:Position()
DEFINE TIMER oTimer;
INTERVAL 100;
ACTION IF( oVideo:Position() = oVideo:Length(), oDlg:End() )
oDlg:bStart = { || oTimer:hWndOwner := oDlg:hWnd, oTimer:Activate(), oVideo:PlayFull() }
ACTIVATE DIALOG oDlg;
CENTER
oTimer:End()
RETURN NIL