New method for TMci

[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

[Antonio Linares]

Enrico,

Added, many thanks!

[Enrico Maria Giordano]

Thank you. You may add this to TVideo too:

Code: Select all

METHOD PlayFull() INLINE ::oMci:PlayFull()

EMG

[Antonio Linares]

Enrico,

big thanks,

you are truly inspired

[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

[Antonio Linares]

Yes, please

All enhancement are welcome!

[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

[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?

[Enrico Maria Giordano]

No, sorry. Maybe the codec?

EMG