Do this --
#if targetLittleEndian
dim m as MemoryBlock = eventClass
dim fourCharCode as new MemoryBlock(4)
fourCharCode.LittleEndian = false
fourCharCode.UInt32Value(0) = m.UInt32Value(0)
eventClass = fourCharCode
#endif
Then do the same thing for the eventID parameter. It would be
possible to extend this code to detect a bug fix, should one ever be
made.
Thanks for this Charles
#if targetLittleEndian
dim eventClassMemoryBlock as MemoryBlock = eventClass
dim eventIDMemoryBlock as MemoryBlock = eventID
dim fourCharCode as new MemoryBlock(4)
fourCharCode.LittleEndian = false
fourCharCode.UInt32Value(0) = eventClassMemoryBlock.UInt32Value(0)
eventClass = fourCharCode
fourCharCode.UInt32Value(0) = eventIDMemoryBlock.UInt32Value(0)
eventID = fourCharCode
#endif
--
Keith Hutchison
http://balance-infosystems.com http://realopen.org
_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>
Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>
