UFMOD [Résolu]

Signaler
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
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

8 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
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
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
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
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008

petite info aussi, je viens de bloquer sur un truc....

IL NE PAS COMPILER EN P-CODE Sinon cela ne fonctionne PAS !
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
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+
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
qu'avais tu essayé, comme code ?

Renfield
Admin CodeS-SourceS- MVP Visual Basic
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008

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 !!!!
Messages postés
38
Date d'inscription
mercredi 12 mars 2003
Statut
Membre
Dernière intervention
29 mai 2008

Ah ok !!! merci de l'info ;-)
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
65
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