Page 1 of 1
New method for TMci
Posted: Mon Feb 06, 2006 8:26 pm
by Enrico Maria Giordano
Here it is (for playing fullscreen):
Code: Select all
#define MCI_PLAY 2054
#define MCI_MCIAVI_PLAY_FULLSCREEN 33554432
METHOD PlayFull() INLINE MciSendCommand( ::nId, MCI_PLAY, MCI_MCIAVI_PLAY_FULLSCREEN, "" )
EMG
Posted: Tue Feb 07, 2006 10:21 am
by Antonio Linares
Enrico,
Added, many thanks!
Posted: Tue Feb 07, 2006 10:44 am
by Enrico Maria Giordano
Thank you. You may add this to TVideo too:
Code: Select all
METHOD PlayFull() INLINE ::oMci:PlayFull()
EMG
Posted: Tue Feb 07, 2006 10:48 am
by Antonio Linares
Enrico,
big thanks,
you are truly inspired
Posted: Tue Feb 07, 2006 10:52 am
by Enrico Maria Giordano
I think it could be useful to add MPEG playing capability to TVideo. Do you want my modified TVideo (very little changes)?
EMG
Posted: Tue Feb 07, 2006 10:53 am
by Antonio Linares
Yes, please
All enhancement are welcome!
Posted: Tue Feb 07, 2006 11:32 am
by Enrico Maria Giordano
It is enough to change this in New() and Redefine() methods:
Code: Select all
::oMci = TMci():New( "mpegvideo", cFileName )
We may use the filename extension to automatically switch from AVI to MPG or add a new clause in VIDEO command and leave the choice to the user.
EMG
Posted: Wed Mar 14, 2007 1:11 pm
by vilian
Hi Enrico,
When I show archives avi(divx) with the "Video" class, some times the image alone I appear if to make some movement in the window!
You know why this you happen?
Posted: Wed Mar 14, 2007 1:36 pm
by Enrico Maria Giordano
No, sorry. Maybe the codec?
EMG