Home

Add

Edit

With Linenumbers

Code in Textfield

Download

'-----------------------------------------------------------------------------------------------------------------
Function IRC_SetCallbackSet(Byref R_IRCID As Uinteger, V_CallbackSet As IRC_Int_Callback_Type) As IRC_Return_Enum
Mutexlock(IRC_Int_Com_Mutex)
Dim TPtr As IRC_Int_Com_Type Ptr = IRC_Int_ComGet_ByIRCID(R_IRCID)
If TPtr = 0 Then Mutexunlock(IRC_Int_Com_Mutex): Return IRCRE_IRCIDnotFound
TPtr->V_Callbacks = V_CallbackSet
Mutexunlock(IRC_Int_Com_Mutex)
Return IRCRE_NoError
End Function



Dim tcallbacks As IRC_Int_Callback_Type
With tcallbacks
   .C_Connected = @foo
   .C_Disonnected = @bar
End With
SetCallbackSet(123, tcallbacks)