Fmod.dll richtig einbinden - wie?

Manuel

Hi @ all,

Tjoa, ich habe ein kleines Problem: Irgendwie kapiere ich die Syntax der Funktion DLLCALL nicht richtig.

Ich versuche, die sog. Fmod.dll in AutoIt einzubinden, bin aber leider des Englischen nicht besonders mächtig, weshalb mir die Fmod-Dokumentation nicht oder nur unzureichend weiterhilft.

Ich poste hier mal einen Beispielcode rein, wie man ihn in einer Basic-Variante in div. Programmiersprachen findet:

Code

#include "fmod.bi"
Dim Shared MusicHandle As long ptr
MusicHandle = FMUSIC_LoadSongEx("beispielmusik.it",0,0,FSOUND_LOOP_NORMAL,0,0)
if Musichandle then
    FMUSIC_PlaySong(MusicHandle)
    FMUSIC_SetOrder (MusicHandle,0)
end if

Davon bräuchte ich die Syntax in AutoIt. Normalerweise könnte ich die Basic-Variante verwenden, allerdings benötige ich Funktionen, die nur AutoIt auf einfache Weise bietet... Deshalb brauche ich diese Syntax eben für AutoIt. Ich habe es schon nach dem sog. Try-and-Error-Verfahren probiert, leider ohne Erfolg.

Für Hilfe wäre ich sehr dankbar

EDIT: Die Syntax für IF etc. weiß ich natürlich, mir geht es rein um die Einbindung der DLL-Datei mittels DLLCALL.

**bernd670**

Hallo!

Die Umsetzung mit DllCall sollte so gehen (nicht getestet):

Code

Global Const $FSOUND_LOOP_NORMAL = 0x00000002


$MusicHandle = FMUSIC_LoadSongEx("beispielmusik.it", 0, 0, $FSOUND_LOOP_NORMAL, 0, 0)


If $MusicHandle Then
    FMUSIC_PlaySong($MusicHandle)
    FMUSIC_SetOrder($MusicHandle,0)
EndIf






;~ Public Declare Function FMUSIC_LoadSongEx Lib "fmod.dll" Alias "_FMUSIC_LoadSongEx@24" (ByVal name As String, ByVal offset As Long, ByVal length As Long, ByVal mode As FSOUND_MODES, ByRef sentencelist As Long, ByVal numitems As Long) As Long
Func FMUSIC_LoadSongEx ($name, $offset, $length, $mode, $sentencelist, $numitems)
    $RetValue = DllCall("fmod.dll", "long", "_FMUSIC_LoadSongEx@24" _
                        , "str", $name _
                        , "long", $offset _
                        , "long", $length _
                        , "long", $mode _
                        , "long", $sentencelist _
                        , "long", $numitems _
                        )

    Return $RetValue[0]
EndFunc


;~ Public Declare Function FMUSIC_PlaySong Lib "fmod.dll" Alias "_FMUSIC_PlaySong@4" (ByVal module As Long) As Byte
Func FMUSIC_PlaySong ($module)
    $RetValue = DllCall("fmod.dll", "short", "_FMUSIC_PlaySong@4" _
                        , "long", $module _
                        )

    Return $RetValue[0]
EndFunc


;~ Public Declare Function FMUSIC_SetOrder Lib "fmod.dll" Alias "_FMUSIC_SetOrder@8" (ByVal module As Long, ByVal order As Long) As Byte
Func FMUSIC_SetOrder ($module, $order)
    $RetValue = DllCall("fmod.dll", "short", "_FMUSIC_SetOrder@8" _
                        , "long", $module _
                        , "long", $order _
                        )

    Return $RetValue[0]
EndFunc

Alles anzeigen

Manuel

Jemine... So kompliziert hatte ich mir das garnicht vorgestellt [Blockierte Grafik: http://i66.photobucket.com/albums/h276/DianneOnly/blink.gif]
Ok, danke... Ich habe die Funktionsweise einigermaßen verstanden, wie man da vorgehen muss... Danke dafür . Leider funktioniert dein Skript in dieser Form noch nicht richtig, aber wie gesagt: Die Funktionsweise hab' ich verstanden und irgendwie wird sich da auch ein Tut oder so finden^^.