In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Active X Events

Xailer professional forum in English
Responder
Nick Hilder
Mensajes: 328
Registrado: Mar Nov 21, 2006 2:10 am

Active X Events

Mensaje por Nick Hilder »

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 Hilder
Mensajes: 328
Registrado: Mar Nov 21, 2006 2:10 am

Active X Events

Mensaje por Nick Hilder »

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 Hilder
Mensajes: 328
Registrado: Mar Nov 21, 2006 2:10 am

Active X Events

Mensaje por Nick Hilder »

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)
>
>
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Active X Events

Mensaje por jfgimenez »

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
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Avatar de Usuario
jfgimenez
Site Admin
Mensajes: 5718
Registrado: Lun Abr 06, 2015 8:48 pm
Contactar:

Active X Events

Mensaje por jfgimenez »

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
José F. Giménez
[Equipo de Xailer / Xailer team]
http://www.xailer.com
http://www.xailer.info
Nick Hilder
Mensajes: 328
Registrado: Mar Nov 21, 2006 2:10 am

Active X Events

Mensaje por Nick Hilder »

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
>
Nick Hilder
Mensajes: 328
Registrado: Mar Nov 21, 2006 2:10 am

Active X Events

Mensaje por Nick Hilder »

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
>
Responder