trying to get "audiogenie" object to run

[nobbe]

hi

im trying to get the audiogenie obj to run , but recieve always error : method not found .. ?

expandcollapse popup

;
; OCX from www.audiogenie.de/
;
#include <GUIConstants.au3> 
GUICreate("program",400,200) 
$load=GUICtrlCreateButton ("load",50,50) 
GUISetState () 
While 1 
   $msg = GUIGetMsg() 
   Select 
       Case $msg = $GUI_EVENT_CLOSE 
           ExitLoop 
       Case $msg = $load
                loadit()
   EndSelect 
Wend

exit;

; should load object audiogenie 
func loadit()
; should be -.
    $genie = ObjCreate("AUDIOGENIE.AudioGenieCtrl.1")
    If Not IsObj($genie) Then
        _DebugPrint ("obj AUDIOGENIE 0 could not be created");
    Else
        _DebugPrint ("obj AUDIOGENIE 0 OK ! ");
    endif

    ; genie.AUDIOGetFileSiz
    $ret = $genie.GetAudioGenieVersion() ; : ==> The requested action with this object has failed.: 
    _DebugPrint ("$genie.GetAudioGenieVersion ret " & $ret );


EndFunc

;
; print s debug text in CONSOLE view of scite..
;
Func _DebugPrint($s_text)
    $s_text = StringReplace($s_text, @LF, @LF & "-->")

    ;    ConsoleWrite("!===========================================================" & @LF & _
    ;           "+===========================================================" & @LF & _
    ;           "-->" & $s_text & @LF & _
    ;           "+===========================================================" & @LF)

    ConsoleWrite($s_text & @LF & _
            "+===========================================================" & @LF)

EndFunc   ;==>_DebugPrint