Se puede reproducir archivos .xm en vb6 ??

[DarkStreaM]

 :huh:wenu hola seguro que no me conocen pero no encuentro la sección indicada xD wenu al grano queria saber si es que en vb se pueden reproducir archivos xm o it , esas cancioncillas de los keygens , es que encontre una muy chula , y la tengo que convertir a mp3 , lo que hace que el app se haga mucho mas pesa

PD: un cm pesa alrededor de 200 kb y un mp3 2 a 3 mb
PD2:Cargo el archivo de los recursos
desde ya muchas gracias

[CICOLO_111234]

mmmmmmmmmmmm.......................................................

k yo sepa no.....................................................................

aunk no estoy muy seguro

[BlackZeroX]

Compruebalo lo mismo intenta con esto:

En un proyecto SIN formulario solo un modulo agrega lo siguiente
configura el proyecto para que lo primero que arranque sea el proseso Sub Main()

Código (vb) [Seleccionar] Expandir


Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

sub main()
dim res as long
ruta="c:\musica\bla\bla\bla\...\music.mp3" '<-- indica la ruta COMPLETA del archivo mutimedia en tu caso el archivo xm
res=mciSendString("play " & Ruta, 0, 0, 0)
end sub


P.D.: Yo no tengo ningun tipo de archivo de musica o cancion con esa extensión, por ende te pongo esto que si no se reproduce entonces se tendria que convertir a otro formato como no se, desconozco plenamente su extructura xP

[byway]

Reproducirlos directamente no vi pero si con ayuda de una libreria hecha en otro lenguaje si ...

aki les pongo la libreria necsaria y el codigo fuente... 

Código (vb) [Seleccionar] Expandir

' *********************************************************
' EJEMPLO DEL USO DE aRC_XM.DLL v.2.2
' *********************************************************
'
'   * Requiere aRC_XM.dll v.2.2
'       CopyLeft (c) 2004 aRC - aDVANCED rESEARCH cOMMUNITY
'   * Solamente lee módulos Fastracker II (.XM)
'   * Código: Furious Logic [aRC] - División DemoScene
'   * Pista musical: "Ida's hashkaka" por dubmood [Razor1911]
'   * Basado en MiniMod.h Copyright Firelight Multimedia, 1999-2001.
'   * Soporte solo para módulos Fastracker II (.XM)
'   * Utilícese libremente bajo su propia responsabilidad
'
' ********************************************************* }

Descarga : http://www.gigasize.com/get.php/3197813753/c_digo_fuente.rar

[DarkStreaM]

Compruebalo lo mismo intenta con esto:

En un proyecto SIN formulario solo un modulo agrega lo siguiente
configura el proyecto para que lo primero que arranque sea el proseso Sub Main()

Código (vb) [Seleccionar] Expandir


Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
    (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

sub main()
dim res as long
ruta="c:\musica\bla\bla\bla\...\music.mp3" '<-- indica la ruta COMPLETA del archivo mutimedia en tu caso el archivo xm
res=mciSendString("play " & Ruta, 0, 0, 0)
end sub


P.D.: Yo no tengo ningun tipo de archivo de musica o cancion con esa extensión, por ende te pongo esto que si no se reproduce entonces se tendria que convertir a otro formato como no se, desconozco plenamente su extructura xP

Amigo eso es para mp3,wav y MIDI xD

[DarkStreaM]

Reproducirlos directamente no vi pero si con ayuda de una libreria hecha en otro lenguaje si ...

aki les pongo la libreria necsaria y el codigo fuente... 

Código (vb) [Seleccionar] Expandir

' *********************************************************
' EJEMPLO DEL USO DE aRC_XM.DLL v.2.2
' *********************************************************
'
'   * Requiere aRC_XM.dll v.2.2
'       CopyLeft (c) 2004 aRC - aDVANCED rESEARCH cOMMUNITY
'   * Solamente lee módulos Fastracker II (.XM)
'   * Código: Furious Logic [aRC] - División DemoScene
'   * Pista musical: "Ida's hashkaka" por dubmood [Razor1911]
'   * Basado en MiniMod.h Copyright Firelight Multimedia, 1999-2001.
'   * Soporte solo para módulos Fastracker II (.XM)
'   * Utilícese libremente bajo su propia responsabilidad
'
' ********************************************************* }

Descarga : http://www.gigasize.com/get.php/3197813753/c_digo_fuente.rar

Gracias tendre que cargar la dll a los recursos .. o con el fusion xD gracias