Sign in to follow this  
Followers 0
nobbe

trying to get "audiogenie" object to run

1 post in this topic

hi

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

;
; 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

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0