🚀 go-pugleaf

Mario Sernicola wrote:

>Hi,
>
>To set volume of a TMediaPlayer Component I've used this code:
>
>//----------------------------------------------------------------
>
>MCI_DGV_SETAUDIO_PARMS p;
>      p.dwCallback = 0;
>      p.dwItem = MCI_DGV_SETAUDIO_VOLUME;
>      p.dwValue = volume;
>      p.dwOver = 0;
>      p.lpstrAlgorithm = NULL;
>      p.lpstrQuality = NULL;
>
>mciSendCommand(MediaPLayer1->DeviceID, MCI_SETAUDIO,MCI_DGV_SETAUDIO_VALUE |
>MCI_DGV_SETAUDIO_ITEM, Cardinal(&p));
>
>How can I retrieve te value of a TMediaPlayer component to implement (for
>example) a fade out effect?
>
>Thanks
>
>Mario Sernicola
>
>
>
>  
>
I think what you're looking for is the:   MCI_DGV_STATUS_VOLUME field of 
the MCI_STATUS command.

re ( the MMAPI reference )

Think of something like this:

DWORD dwTheVolume = 0;
MCI_STATUS_PARMS theParms;

theParms.dwCallback = 0;
theParms.dwReturn = MCI_SUCCESS;
theParms.dwItem = MCI_DGV_STATUS_VOLUME;
theParms.dwTrack = 0;

MCIERROR mciRC = mciSendCommand(MediaPLayer1->DeviceID, MCI_STATUS,
                                                             
MCI_STATUS_ITEM, (DWORD) (LPMCI_STATUS_PARMS) &theParms);

if ( mciRC == MCI_SUCCESS )
    dwTheVolume = theParms.dwReturn;  
else {
    // Handle the error.....
}

 From the MMAPI reference:

MCI_DGV_STATUS_VOLUME
The dwReturn member returns the average of the volume to the left and 
right speakers. Use MCI_DGV_STATUS_NOMINAL with this flag to obtain the 
nominal level.


Marcelo