OO4O and AQ Callback - Help

Question

Am using AQ (8.1.6). Looking for information on how to implement the callback functionality in VB 6.0...Documentation says that this possible but have found few examples...Have everything else working fine..
Ron Music

Answer 1

You have to implement a COM interface in your application (or your own OLE object) that exposes the NotifyMe interface as described in the docs. You then use the MonitorStart method to have the object called asynchronously. If memory serves, the interface was:
void NotifyMe(LPDISPATCH)
and the LPDISPATCH pointer was a reference to an OraAQMsg object which contained the message payload.
Suppose you created your own COM object that exposed this interface and called it MyNotify. You then do something like this:
Dim MyQ as OraAQ
Dim Notifier as MyNotify
Dim DB as OraDatabase
Dim OraS as Object
. 'Connect to the RDBMS and init the session (code ommitted for brevity)
Set MyQ = DB.CreateAQ("TEST")
Set Notifier = new MyNotify
MyQ.MonitorStart(Notifer)
Then your object will have the NotifyMe method invoked as messages are dequeued.