[coolman145]

I'm trying to put a volume bar in my mp3 player in realbasic it's using quicktime to decode and i was wondering if there was a way i'm missing of using a slider control to change the volume on the movieplayer control. Is this Possible?

[ 07-28-2001: Message edited by: coolman145 ]

[graphiteman]

It is possible with a toolbox call, "SetMovieVolume". I'm working on trying to figure out how to pass the appropriate volume to the call, however(It wants a decimal in an integer - weird). I'll post here when I figure it out.

[graphiteman]

The folks on the REALbasic mailing lists are very helpful!

Create a method:
<BLOCKQUOTE><font size="1"face="Geneva, Verdana, Arial">code:</font><HR><pre><font size=1 face=courier>
Sub SetMoviePlayerVolume(Player As MoviePlayer, Volume As Integer)
<font color = brown>//See <A HREF=<font color = red>"http://developer.apple.com/techpubs/quicktime/qtdevdocs/INMAC/QTC/imMovieContComp.a.htm"</font> TARGET=_blank>http://developer.apple.com/techpubs/quicktime/qtdevdocs/INMAC/QTC/imMovieContComp.a.htm</A> </font>
<font color = brown>//The Volume should range from <font color = blue>0</font> to <font color = blue>255</font></font>
<font color = brown>//Thanks to <font color = red>"Mike D."</font> &lt;md@xochi.com&gt;</font>

#<font color = green>if</font> TargetMacOS Then
Declare Function MCDoAction Lib <font color = red>"QuickTimeLib"</font> (mc as integer, action as Short, params as Integer) as Integer

Dim HandleToPlayer,Junk As Integer
Const kMCActionSetVolume=<font color = blue>14</font>

If Player=Nil Then
Return
End If

HandleToPlayer=Player.QTMovieController

If HandleToPlayer&lt;&gt;<font color = blue>0</font> Then
Junk=MCDoAction(HandleToPlayer,kMCActionSetVolume, Volume)
End If
#EndIf
End Sub

</font>[/code]
Pass the movieplayer that you want to set the volume of, and the volume you want to set it at (a value between 0 and 255).

Hope that helps.

[ 07-30-2001: Message edited by: graphiteman ]