Xailer & OZ Software

Hi Jose or anyone who might know
Here's an ActiveX Event I'm having trouble with
EVENT EventChangedEx( @upEvent )
Does the "up" in the upEvent stand for unsigned pointer?
Here's what's in the type lib
void EventChangedEx(CalendarEvent* pEvent);
[id(0x0000000b), helpcontext(0x00001143)]
If I do ValType(upEvent) I get "P" returned
How do I get to the object that the pointer is pointing to?
I have spent ages playing with all this activex stuff and this is one of the
few things i have left.
Here's an example off the codejocj support group, I can't find much else
Private Sub CalendarControl_EventChangedEx(ByVal pEvent As
XtremeCalendarControl.CalendarEvent)
Set pEvent = CalendarControl.DataProvider.GetEvent(pEvent.Id)

Hi Jose
You seem to be the only one that knows anything about all this activex
stuff, can you please reply to this post.
Thanks
Nick
"Nick Hilder" <nick_Nospam#$%@capsol.com%NOSPAM%.au> wrote in message
news:[email=4803e747@ozsrv2.ozlan.local...]4803e747@ozsrv2.ozlan.local...[/email]
> Hi Jose or anyone who might know
>
> Here's an ActiveX Event I'm having trouble with
>
> EVENT EventChangedEx( @upEvent )
>
> Does the "up" in the upEvent stand for unsigned pointer?
>
> Here's what's in the type lib
>
> void EventChangedEx(CalendarEvent* pEvent);
> [id(0x0000000b), helpcontext(0x00001143)]
>
>
> If I do ValType(upEvent) I get "P" returned
>
> How do I get to the object that the pointer is pointing to?
>
> I have spent ages playing with all this activex stuff and this is one of
> the few things i have left.
>
> Here's an example off the codejocj support group, I can't find much else
> Private Sub CalendarControl_EventChangedEx(ByVal pEvent As
> XtremeCalendarControl.CalendarEvent)
> Set pEvent = CalendarControl.DataProvider.GetEvent(pEvent.Id)
>
>

Hi Jose
You seem to be the only one that knows anything about all this activex
stuff, can you please reply to this post.
Thanks
Nick
"Nick Hilder" <nick_Nospam#$%@capsol.com%NOSPAM%.au> wrote in message
news:[email=4803e747@ozsrv2.ozlan.local...]4803e747@ozsrv2.ozlan.local...[/email]
> Hi Jose or anyone who might know
>
> Here's an ActiveX Event I'm having trouble with
>
> EVENT EventChangedEx( @upEvent )
>
> Does the "up" in the upEvent stand for unsigned pointer?
>
> Here's what's in the type lib
>
> void EventChangedEx(CalendarEvent* pEvent);
> [id(0x0000000b), helpcontext(0x00001143)]
>
>
> If I do ValType(upEvent) I get "P" returned
>
> How do I get to the object that the pointer is pointing to?
>
> I have spent ages playing with all this activex stuff and this is one of
> the few things i have left.
>
> Here's an example off the codejocj support group, I can't find much else
> Private Sub CalendarControl_EventChangedEx(ByVal pEvent As
> XtremeCalendarControl.CalendarEvent)
> Set pEvent = CalendarControl.DataProvider.GetEvent(pEvent.Id)
>
>

Nick,
> You seem to be the only one that knows anything about all this activex
> stuff, can you please reply to this post.
Sorry, but it's not so easy to reply questions about specific OCX, because
I'd need to download it (if it's available), install it and test it.
Sometimes it's not possible, because it's part of another product. So, I can
only point some tricks to test.
Respecting your question, a Valtype() of "P" means "Pointer". Try to convert
that pointer into an integer and create an ActiveX object directly using
that value. Something like:
oObj := TOleAuto():New( PointerToInt( pPointer ) )
...
#pragma BEGINDUMP
#include "windows.h"
#include "xailer.h"
XA_FUNC( POINTERTOINT )
{
hb_retnl( (long) hb_parptr( 1 ) );
}
#pragma ENDDUMP
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

Nick,
> You seem to be the only one that knows anything about all this activex
> stuff, can you please reply to this post.
Sorry, but it's not so easy to reply questions about specific OCX, because
I'd need to download it (if it's available), install it and test it.
Sometimes it's not possible, because it's part of another product. So, I can
only point some tricks to test.
Respecting your question, a Valtype() of "P" means "Pointer". Try to convert
that pointer into an integer and create an ActiveX object directly using
that value. Something like:
oObj := TOleAuto():New( PointerToInt( pPointer ) )
...
#pragma BEGINDUMP
#include "windows.h"
#include "xailer.h"
XA_FUNC( POINTERTOINT )
{
hb_retnl( (long) hb_parptr( 1 ) );
}
#pragma ENDDUMP
--
Regards,
Jose F. Gimenez
http://www.xailer.com
http://www.xailer.info

Hi Jose
That worked, thanks for that
Nick
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote in message
news:[email=48085ebe@ozsrv2.ozlan.local...]48085ebe@ozsrv2.ozlan.local...[/email]
> Nick,
>
>> You seem to be the only one that knows anything about all this activex
>> stuff, can you please reply to this post.
>
> Sorry, but it's not so easy to reply questions about specific OCX, because
> I'd need to download it (if it's available), install it and test it.
> Sometimes it's not possible, because it's part of another product. So, I
> can only point some tricks to test.
>
> Respecting your question, a Valtype() of "P" means "Pointer". Try to
> convert that pointer into an integer and create an ActiveX object directly
> using that value. Something like:
>
> oObj := TOleAuto():New( PointerToInt( pPointer ) )
> ...
> #pragma BEGINDUMP
>
> #include "windows.h"
> #include "xailer.h"
>
> XA_FUNC( POINTERTOINT )
> {
> hb_retnl( (long) hb_parptr( 1 ) );
> }
>
> #pragma ENDDUMP
>
> --
> Regards,
>
> Jose F. Gimenez
> http://www.xailer.com
> http://www.xailer.info
>

Hi Jose
That worked, thanks for that
Nick
"Jose F. Gimenez" <jfgimenez@wanadoo.es> wrote in message
news:[email=48085ebe@ozsrv2.ozlan.local...]48085ebe@ozsrv2.ozlan.local...[/email]
> Nick,
>
>> You seem to be the only one that knows anything about all this activex
>> stuff, can you please reply to this post.
>
> Sorry, but it's not so easy to reply questions about specific OCX, because
> I'd need to download it (if it's available), install it and test it.
> Sometimes it's not possible, because it's part of another product. So, I
> can only point some tricks to test.
>
> Respecting your question, a Valtype() of "P" means "Pointer". Try to
> convert that pointer into an integer and create an ActiveX object directly
> using that value. Something like:
>
> oObj := TOleAuto():New( PointerToInt( pPointer ) )
> ...
> #pragma BEGINDUMP
>
> #include "windows.h"
> #include "xailer.h"
>
> XA_FUNC( POINTERTOINT )
> {
> hb_retnl( (long) hb_parptr( 1 ) );
> }
>
> #pragma ENDDUMP
>
> --
> Regards,
>
> Jose F. Gimenez
> http://www.xailer.com
> http://www.xailer.info
>