UFMOD [Résolu]

Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008
- - Dernière réponse : Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
- 20 juin 2007 à 14:47
Bonjour,

je viens de poster un source concernant l'utilisation de la librairie UFMOD dans VB
toutefois je n'arrive pas à utiliser la fonction XM_FILE ou encore XM_RESSOURCE
( http://www.vbfrance.com/code.aspx?ID=43181 )

Quelqu'un à réussi ? ou un exemple fonctionnel à donner ?

Merci  d'avance
Afficher la suite 

8 réponses

Meilleure réponse
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
3
Merci
le fichier Link.exe a été supprimé du zip, faut le renommer si tu veux que l'on puisse t'aider malgré tout


j'ai recupéré l'Exe du zip sur sourceforge...


mode WimMM  testé et compilé nikel...
mode DirectX testé également fonctionne...


reste a tester avec le mode file ^^ surement une histroire de passage de parametres
le XM_MEMORY fonctionne nikel aussi...



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(0)), 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<hr />,

----

By Renfield
pourquoi cette transformation ? tout simplement parce que VB stocke les chaines en Unicode, et qu'il n'est pas géré par la lib XM...
donc après avoir testé l'envoi de ma chaine direct, j'ai testé en la convertissant en ASCII ^^

voilà, probleme régle... libre a toi de faire des fonction qui warpent ces appels, tant qu'au final ca appelle ufMOD_Playsong, pas de soucis...

(genre PlaySongFromFile ( Byref vsFileName As String)...)

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 209 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
3
Merci
pas de soucis, ca m'a occupé une petite demi heure ce matin...

si tu as des sons a jouer souvent, le mode memory peut etre a favoriser, tu gardes tout en mémoire une fois, pas besoin d'ouvrir fermer le fichier sans cesse...

Renfield
Admin CodeS-SourceS- MVP Visual Basic

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 209 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Renfield
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008
3
Merci
petite info aussi, je viens de bloquer sur un truc....

IL NE PAS COMPILER EN P-CODE Sinon cela ne fonctionne PAS !

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 209 internautes nous ont dit merci ce mois-ci

Commenter la réponse de KaFarD
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
Pas confondre dépot de sources et forum, Merci !


> Ce code utilise une librairie GRATUITE: UFMOD ( http://ufmod.sourceforge.net/ )
> Ce code correspond a l'exemple prensent dans l'archive d'origine.
>
> 2 Rendus possibles, par WinMM ou DirectX
>
> Toutefois, cette exemple utilise une ressource ( .RES ) du fichier à lire
> mais je n'arrive pas à utiliser le mode: XM_FILE ou encore XM_MEMORY...
>
> pour info sur des question posé sur l'application XM_MEMORY en VB:
> http://sourceforge.net/forum/forum.php?thread_id=1738942&forum_id=533992
>
> Bref si quelqu'un à une idée....
>
> a+
Commenter la réponse de Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
qu'avais tu essayé, comme code ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008
0
Merci
Grand merci a toi
et bien j'y été presque

car j'avais tester la meme chose que toi sauf l'utilisation des fonctions:
StrConv
StrPtr
VarPtr

que je ne connais pas :-P

bref, pour la version XM_MEMORY j'avais ouvert en binaire mon fichier et converti chaque caractere en hex(asc(x))... et apres pour le traitement je galeré ....

Donc grand MERCI !!!!
Commenter la réponse de KaFarD
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008
0
Merci
Ah ok !!! merci de l'info ;-)
Commenter la réponse de KaFarD
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57
0
Merci
normal ^^

le Link va patcher les adresse mémoiers etc...
en P-Code, "l'exe" est simplement interpreté, plus la même mécanique en interne :p

mais tu fais bien de le mentionner néanmoins

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Commenter la réponse de Renfield