Reproducir MP3

[gerencia]

Hola a todos,
Alguien sabe como reproducir un MP3 en Xailer

[Hurricane]

Olá,

veja o exemplo SAMPLES\VIDEO\VideoPlayer.XPJ
O arquivo fonte da classe TVideoPlayer esta junto.

Código: Seleccionar todo

METHOD FormInitialize( oSender ) CLASS TVideo

   DeleteMenu( GetSystemMenu( ::Handle ), 2, MF_BYPOSITION )
   WITH OBJECT ::oMCI := TVideoPlayer():New( Self )
      //:cMediaFile := "fp.avi"
      :cMediaFile := "teste.mp3"
      :Create()
      ::SetClientSize( :nWidth, :nHeight )
   END
   ::lCentered := .T.

RETURN Nil

Código: Seleccionar todo

METHOD FormShow( oSender ) CLASS TVideo

   ::oMCI:Play()

RETURN Nil

Alguien sabe como reproducir un MP3 en Xailer

[gerencia]

Magnifico.

Mil Gracias.