New method for TMci
Posted:
Mon Feb 06, 2006 8:26 pmby Enrico Maria Giordano
Here it is (for playing fullscreen):
- Code: Select all Expand view
#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 amby Antonio Linares
Enrico,
Added, many thanks!
Posted:
Tue Feb 07, 2006 10:44 amby Enrico Maria Giordano
Thank you. You may add this to TVideo too:
- Code: Select all Expand view
METHOD PlayFull() INLINE ::oMci:PlayFull()
EMG
Posted:
Tue Feb 07, 2006 10:52 amby 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 amby Antonio Linares
Yes, please
All enhancement are welcome!
Posted:
Tue Feb 07, 2006 11:32 amby Enrico Maria Giordano
It is enough to change this in New() and Redefine() methods:
- Code: Select all Expand view
::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 pmby 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 pmby Enrico Maria Giordano
No, sorry. Maybe the codec?
EMG