Midi UDF Help

[eynstyne]

$msg = _MidiOutGetDevCaps(0,4)

Func _MidiOutGetDevCaps($deviceid=0,$getinfo=0)
$struct = DllStructCreate("udword;udword;uint;char[128];udword;udword;udword;udword;dword")
$ret = Dllcall("winmm.dll","long","midiOutGetDevCapsA","long",$deviceid,"ptr",Dllstructgetptr($struct),"int",99)
    if not @error Then
        $get = Dllstructgetdata($struct,$getinfo)
        return $get
    EndIf
EndFunc

$msg returns "osoft GS Wavetable SW Synth"

WTF happened to "Micr" part of the return? I have set the length to 99 so it should return all characters.

Why?

[Jos]

$msg = _MidiOutGetDevCaps(0,4)

Func _MidiOutGetDevCaps($deviceid=0,$getinfo=0)
$struct = DllStructCreate("udword;udword;uint;char[128];udword;udword;udword;udword;dword")
$ret = Dllcall("winmm.dll","long","midiOutGetDevCapsA","long",$deviceid,"ptr",Dllstructgetptr($struct),"int",99)
    if not @error Then
        $get = Dllstructgetdata($struct,$getinfo)
        return $get
    EndIf
EndFunc

$msg returns "osoft GS Wavetable SW Synth"

WTF happened to "Micr" part of the return? I have set the length to 99 so it should return all characters.

Why?

Where did you find that the structure starts with 2 DoubleWords? shouldn;t those be words ?

[eynstyne]

so in place of word put byte?

[Jos]

Func _MidiOutGetDevCaps($deviceid = 0, $getinfo = 0)
    $struct = DllStructCreate("ushort;ushort;udword;char[128];ushort;ushort;ushort;ushort;dword")
    $ret = DllCall("winmm.dll", "long", "midiOutGetDevCapsA", "long", $deviceid, "ptr", DllStructGetPtr($struct), "int", 99)
    If Not @error Then
        $get = DllStructGetData($struct, $getinfo)
        Return $get
    EndIf
EndFunc   ;==>_MidiOutGetDevCaps

[eynstyne]

Thank you JdeB. I knew something strange was happening!

I just looked in Microsoft knowledge base an misread things...