https://foro.gambas-es.org/viewtopic.php?f=5&t=1792&p=14635#p14635
-----------------------------------
sos-fan
Sabado, 01 Septiembre 2012, 14:29

Re: Rockola Programada En Gambas
-----------------------------------
La parte de mpProcess_read la modifique, quedando de esta manera.

[code linenumbers=false syntax=gambas]
Public Sub mpProcess_read()

   Dim sData As String

   Read #Last, sData, -250

   ' We delegate the output parsing to a listener
   Raise mpOutput(sData)

End
[/code]

Tambien modifique Play.

[code linenumbers=false syntax=gambas]

Public Sub play(filePath As String)

   'Print filePath

   If Not mplayer Then Return

   'Print mplayer.Id
   'filePath = Quote$(Conv(filePath, Desktop.Charset, System.Charset))
  
   ' Pause the current playing file, then load the new one
   Print #mplayer, "pausing_keep_force pt_step 1"
   'Print #mplayer, "get_property pause"
   Print #mplayer, "loadfile \"" & filePath & "\""

End
[/code]

La parte en FMain lo puse de esta manera.

[code linenumbers=false syntax=gambas]
PUBLIC SUB Form_Open()
 
 DIM mp AS NEW mplayer

 mp.play(User.Home & "/Música/Re Mikus/12.Heart Beat.mp3")

END
[/code]

Así reproduce, pero aun no se como usar MetaAlbum, setVolume, MetaArtist, etc.  :?:


