>>>Hello Everyone,
>>>
>>>Can anyone get this to work? If I can get past this code I'll be able to finish the rest (I think) myself.
>>>
>>>Thanks in advance...
>>>
>>>
>>>CLEAR
>>>
>>>PUBLIC oComUtil, oFoxEvent, oMSMQEvent
>>>
>>>* Setup up event handler to receive the messages
>>>oMSMQEvent = create("msmq.msmqevent")
>>>oComUtil = create("vfpcom.comutil")
>>>oFoxEvents = create("FoxEvent")
>>>
>>>? EVENTHANDLER(oMSMQEvent,oFoxEvent)
>>>
>>>
>>>DEFINE CLASS FoxEvent AS custom OLEPUBLIC
>>> IMPLEMENTS FoxEvents IN "MSMQ.Msmqevent"
>>>
>>> Procedure FoxEvents_Arrived(oQueue,Cursor)
>>> WAIT WINDOW "Message Arrived" TIMEOUT 1
>>> ENDPROC
>>>
>>> Procedure FoxEvents_ArrivedError(Queue,ErrorCode,Cursor)
>>> WAIT WINDOW "Message Arrived Error" TIMEOUT 1
>>> ENDPROC
>>>
>>>ENDDEFINE
>>>
>>
>>Is that all the events in FoxEvents? A class that implements an interface has to have methods for every event in the interface, even if they do nothing.
>>
>>Tamar
>
>The problem begins for me with >oMSMQEvent = create("msmq.msmqevent"), which creates an empty class. When I tried the example from MS Office Automation w/VFP Pg pg 363, .ExportEvents(), MSMQ_Events.prg never gets created.
>
>oVFPCOM = CREATEOBJECT("vfpcom.comutil")
>oMSMQ = CREATEOBJECT("MSMQ.MSMQEvent")
>
>oVfpCom.ExportEvents(oMSMQ, "MSMQ_Events.prg")
If this is VFP 7 or later, forget VFPCOM; you don't need it. All this is built into the language. Open MSMQ in the Object Browser, find the interface you want to implement and drag it into a code window. That'll create the object definition you need to fill in.
Also, are you sure that MSMQ is installed in your version of Windows? Looks like it's not automatic in newer versions.
Tamar