LIRE UN FICHIER MOD XM SANS DLL !!! ( XM = MOD DE FAST TRACKER )
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
20 juin 2007 à 06:48
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 20 juin 2007 à 07:20
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 20 juin 2007 à 07:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/43181-lire-un-fichier-mod-xm-sans-dll-xm-mod-de-fast-tracker
https://codes-sources.commentcamarche.net/source/43181-lire-un-fichier-mod-xm-sans-dll-xm-mod-de-fast-tracker
20 juin 2007 à 07:20
Dim sBuffer As String
sBuffer = StrConv(App.Path & "\mini.xm", vbFromUnicode)
If uFMOD_PlaySong(StrPtr(sBuffer), 0, XM_FILE) <> 0 Then
' Pop-up a message box to let uFMOD play the XM till user input
MsgBox "uFMOD ruleZ!", vbOKOnly, "Visual Basic"
' Stop playback
uFMOD_PlaySong 0, 0, 0
End If
End Sub
20 juin 2007 à 07:15
20 juin 2007 à 07:14
Sub Main()
Dim sBuffer As String
Dim pMem() As Byte
Dim nLength As Long
sBuffer = App.Path & "\mini.xm"
Open sBuffer For Binary Access Read As #1
nLength = LOF(1)
ReDim pMem(nLength)
Get #1, , pMem
Close #1
If uFMOD_PlaySong(VarPtr(pMem(O)), nLength, XM_MEMORY) <> 0 Then
' Pop-up a message box to let uFMOD play the XM till user input
MsgBox "uFMOD ruleZ!", vbOKOnly, "Visual Basic"
' Stop playback
uFMOD_PlaySong 0, 0, 0
End If
End Sub
20 juin 2007 à 07:07
reste a tester avec le mode file ^^ surement une histroire de passage de parametres
20 juin 2007 à 07:05
mode WimMM testé et compilé nikel...
20 juin 2007 à 06:58
20 juin 2007 à 06:48