OCX y Puntero a objeto

[jasm]

Hola,
Estoy usando un OCX que en uno de los eventos me devuelve como parámetro
un puntero a un objeto interno del OCX al que necesito acceder ¿alguna
idea de como se hace esto?
Saludos,
Alf+.

[Fernando Leal]

Justamente eso me pasa con el activex de un lector biometrico.
Tambien con el activex de FairPoint. Excel sin excel... está de lujo este
activex.
Al parecer esto es cosa de la versión del xharbour que se usa para
compilar....
Y para ver si hablamos de lo mismo...
local nContexto := 0
:Ocx:CreateContext( @nContexto )
nContexto está inicializado a 0, pero no importa el valor... El metodo
CreateContext siempre regresa el mismo valor y deberí­a regresar un valor
distinto.Vamos... no está haciendole nada a nContexto entonces.
Saludos
Fernando

[jasm]

Fernando,
Parecido pero no igual.
En el evento recibo dos parámetros ( numerodeserie, @puntero )....
Por supuesto para Xailer son tres ( oSender, numeroserie, @puntero )
y recibo un valor del tipo P para @puntero con una cadena del tipo
23E4BG87 (no interpretable, por supuesto).
Gracias y un saludo,
Alf+.
Fernando Leal escribió:
> Justamente eso me pasa con el activex de un lector biometrico.
> Tambien con el activex de FairPoint. Excel sin excel... está de lujo este
> activex.
>
> Al parecer esto es cosa de la versión del xharbour que se usa para
> compilar....
>
> Y para ver si hablamos de lo mismo...
>
> local nContexto := 0
>
> :Ocx:CreateContext( @nContexto )
>
> nContexto está inicializado a 0, pero no importa el valor... El metodo
> CreateContext siempre regresa el mismo valor y deberí­a regresar un valor
> distinto.Vamos... no está haciendole nada a nContexto entonces.
>
>
> Saludos
> Fernando
>

[Fernando Leal]

¿Qué estás intentando usar?
Me refiero al OCX

[jasm]

Fernando Leal escribió:
> ¿Qué estás intentando usar?
> Me refiero al OCX
>
No entiendo....

[david]

Jose,
A ver si lo que te digo puede servirte.
Entiendo que el puntero que te devuelve debe ser a alguna funcion interna
del ocx al que puedes acceder directamente (desde C). Entonces... si es lo
que digo... es como hacer una llamada a una funcion dentro de una dll.
No obstante lo anterior... mucho me temo que un OCX se deje hacer esas
cosas.
Saludos,
Jose Luis Capel
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:[email=488755a1@ozsrv2.ozlan.local...]488755a1@ozsrv2.ozlan.local...[/email]
> Fernando,
>
> Parecido pero no igual.
>
> En el evento recibo dos parámetros ( numerodeserie, @puntero )....
>
> Por supuesto para Xailer son tres ( oSender, numeroserie, @puntero )
>
> y recibo un valor del tipo P para @puntero con una cadena del tipo
> 23E4BG87 (no interpretable, por supuesto).
>
>
> Gracias y un saludo,
>
> Alf+.
>
>
>
> Fernando Leal escribió:
>> Justamente eso me pasa con el activex de un lector biometrico.
>> Tambien con el activex de FairPoint. Excel sin excel... está de lujo este
>> activex.
>>
>> Al parecer esto es cosa de la versión del xharbour que se usa para
>> compilar....
>>
>> Y para ver si hablamos de lo mismo...
>>
>> local nContexto := 0
>>
>> :Ocx:CreateContext( @nContexto )
>>
>> nContexto está inicializado a 0, pero no importa el valor... El metodo
>> CreateContext siempre regresa el mismo valor y debería regresar un valor
>> distinto.Vamos... no está haciendole nada a nContexto entonces.
>>
>>
>> Saludos
>> Fernando
>>

[Fernando Leal]

Quiero instalarlo en mi PC,
¿De donde lo bajo?
"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje de
noticias news:48875dd6$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Fernando Leal escribió:
>> ¿Qué estás intentando usar?
>> Me refiero al OCX
>>
> No entiendo....
>

[jasm]

Fernando,
Es un OCX del sistema Orderman (www.orderman.es), para el que tienes que
firmar y aceptar un acuerdo de confidencialidad por el tema de la patente.
Saludos
Alf+.

[jasm]

david escribió:
> Jose,
>
> A ver si lo que te digo puede servirte.
>
> Entiendo que el puntero que te devuelve debe ser a alguna funcion interna
> del ocx al que puedes acceder directamente (desde C). Entonces... si es lo
> que digo... es como hacer una llamada a una funcion dentro de una dll.
>
> No obstante lo anterior... mucho me temo que un OCX se deje hacer esas
> cosas.
Po vale, David-Jose Luis.
Saludos
Alf+.
>
> Saludos,
> Jose Luis Capel
>
> "José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
> news:[email=488755a1@ozsrv2.ozlan.local...]488755a1@ozsrv2.ozlan.local...[/email]
>> Fernando,
>>
>> Parecido pero no igual.
>>
>> En el evento recibo dos parámetros ( numerodeserie, @puntero )....
>>
>> Por supuesto para Xailer son tres ( oSender, numeroserie, @puntero )
>>
>> y recibo un valor del tipo P para @puntero con una cadena del tipo
>> 23E4BG87 (no interpretable, por supuesto).
>>
>>
>> Gracias y un saludo,
>>
>> Alf+.
>>
>>
>>
>> Fernando Leal escribió:
>>> Justamente eso me pasa con el activex de un lector biometrico.
>>> Tambien con el activex de FairPoint. Excel sin excel... está de lujo este
>>> activex.
>>>
>>> Al parecer esto es cosa de la versión del xharbour que se usa para
>>> compilar....
>>>
>>> Y para ver si hablamos de lo mismo...
>>>
>>> local nContexto := 0
>>>
>>> :Ocx:CreateContext( @nContexto )
>>>
>>> nContexto está inicializado a 0, pero no importa el valor... El metodo
>>> CreateContext siempre regresa el mismo valor y deberí­a regresar un valor
>>> distinto.Vamos... no está haciendole nada a nContexto entonces.
>>>
>>>
>>> Saludos
>>> Fernando
>>>
>
>

[jasm]

¡¡¡Caso resuelto!!!
Gracias a Jose Giménez que recordó un caso igual en el foro de inglés.
Aquí­ está la solución para quien pueda necesitarla, aunque Jose me
comentó que se incluirá en la proxima revisión.
oObj := TOleAuto():New( PointerToInt( pPointer ) )
...
#pragma BEGINDUMP
#include "windows.h"
#include "xailer.h"
XA_FUNC( POINTERTOINT )
{
hb_retnl( (long) hb_parptr( 1 ) );
}
#pragma ENDDUMP
Saludos,
Alf+.

[david]

"José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
news:488767ac$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> david escribió:
>> Jose,
>>
>> A ver si lo que te digo puede servirte.
>>
>> Entiendo que el puntero que te devuelve debe ser a alguna funcion interna
>> del ocx al que puedes acceder directamente (desde C). Entonces... si es
>> lo que digo... es como hacer una llamada a una funcion dentro de una dll.
>>
>> No obstante lo anterior... mucho me temo que un OCX se deje hacer esas
>> cosas.
>
> Po vale, David-Jose Luis.
>
Pos de nada, Alf+
> Saludos
>
> Alf+.
>
>>
>> Saludos,
>> Jose Luis Capel
>>
>> "José Alfonso Suárez Moreno" <jasm@tpvsoft.com> escribió en el mensaje
>> news:[email=488755a1@ozsrv2.ozlan.local...]488755a1@ozsrv2.ozlan.local...[/email]
>>> Fernando,
>>>
>>> Parecido pero no igual.
>>>
>>> En el evento recibo dos parámetros ( numerodeserie, @puntero )....
>>>
>>> Por supuesto para Xailer son tres ( oSender, numeroserie, @puntero )
>>>
>>> y recibo un valor del tipo P para @puntero con una cadena del tipo
>>> 23E4BG87 (no interpretable, por supuesto).
>>>
>>>
>>> Gracias y un saludo,
>>>
>>> Alf+.
>>>
>>>
>>>
>>> Fernando Leal escribió:
>>>> Justamente eso me pasa con el activex de un lector biometrico.
>>>> Tambien con el activex de FairPoint. Excel sin excel... está de lujo
>>>> este
>>>> activex.
>>>>
>>>> Al parecer esto es cosa de la versión del xharbour que se usa para
>>>> compilar....
>>>>
>>>> Y para ver si hablamos de lo mismo...
>>>>
>>>> local nContexto := 0
>>>>
>>>> :Ocx:CreateContext( @nContexto )
>>>>
>>>> nContexto está inicializado a 0, pero no importa el valor... El metodo
>>>> CreateContext siempre regresa el mismo valor y debería regresar un
>>>> valor
>>>> distinto.Vamos... no está haciendole nada a nContexto entonces.
>>>>
>>>>
>>>> Saludos
>>>> Fernando
>>>>
>>