COM Callback

[steinie]

I have opened a USB interface with COM and the send works fine.
I need a CallBack for the input.

Here is a short script, the first part works, just need callback.

' AH COM GUI script created on 09-10-2011 07:30:05 by: JDS  (ThinAIR)
   
    Uses "Console"
    Uses "UI"
    Uses "COM"  ' -- Create object   
    
    Dim Chndl As Long  
    Dim i As Single 
    Dim Params(7) As Variant   
    Dim RetVal As Variant  
  Chndl = Console_Alloc
     Function TBMain()
     
  DWord AHO = COM_CREATEOBJECT ("X10.ActiveHome", Params(7))
     ' -- Call method (parameters should be supplied in form of Variant array)
    
      Params(1) = "sendplc"
      Params(2) = "O09 on"
      COM_CALLMETHOD(AHO, "SendAction", 2, Params(),RetVal)  
            
         
      Params(2) = "o09 off"
      COM_CALLMETHOD(AHO, "SendAction", 2,  Params(), RetVal)       
  
  While Time$
 
  If GetAsyncKeyState(%VK_ESCAPE) Then Exit While  
  Wend    
  
   COM_RELEASE(AHO)   
  
  End Function          
'---------------------------------------           
   CallBack Function AHO_RecvAction (ByVal bszRecv As Variant _
                            , ByVal vParm1 As Variant _
                            , ByVal vParm2 As Variant _
                            , ByVal vParm3 As Variant _
                            , ByVal vParm4 As Variant _
                            , ByVal vParm5 As Variant _
                            , ByVal vReserved As Variant) As Long  'Handles ActiveHomeObj.RecvAction
     Console_WriteLine bszRecv
     Console_WriteLine vParm1
     Console_WriteLine vParm2
     Console_WriteLine vParm3
     Console_WriteLine vParm4
     Console_WriteLine vParm5
     Console_WriteLine vReserved
     Console_WriteLine
  
  End Function

Hope someone can help! Thanks

[ErosOlmi]

steinie,

I'm sorry but thinBasic has no possibility to create function callbacks other than the one used for Windows handling in UI module.
The problem is that script functions do not exists as compiled code at runtime but they are only source code to which I cannot derive a code pointer to be passed to a calling function.

In the past I had an idea on how to solve this puzzle but still had no time to try to implement it.
The idea was to have some many dummy functions in compiled code (Core module) to be linked to script functions at runtime. So each script function can have its counterpart in compiled code. In this way thinBasic, when asked, can pass the function pointer of the compiled function to which a script function was connected. Done that, the problem was how to parse and pass into the calling stack the needed function parameters.

Sorry but this is the current situation.
Eros