Problemas en la version 3 con Componentes activex

[Michael Pavlich]

En la versiones 2.7 no tenemos ningún problema al insertar el active.
En las versiones 3.xx con Harbour al parecer existe algún problema con
las
variables contenedoras :
Les comento el problema ..............
**** Resumen de la clase ************* Importada con activex
CLASS TCZKEM FROM TOcx
PROPERTY cCLSID INIT "zkemkeeper.ZKEM.1"
PUBLIC:
(Estos metodos Funcionan perfectamente)
METHOD ClearAdministrators( ndwMachineNumber ) AS LOGICAL ID 3
METHOD Connect_Net( cIPAdd, nPort ) AS LOGICAL ID 39
En este caso no usan variables contenedoras.
En este método devuelve cSerial vací­o en las versiones 3xxx con Harbour
METHOD GetSerialNumber( ndwMachineNumber, @cSerial ) AS LOGICAL ID 29
Mientras en la 2.6 , 2.7 devuelve el valor correcto
En este caso devuelve 0 para numero en las versiones 3xxx con Harbour
METHOD GetDeviceInfo( ndwMachineNumber, ndwInfo, @numero ) AS LOGICAL ID
12
Mientras en la 2.6 , 2.7 devuelve el valor correcto
.... Mas Metodos
ENDCLASS
************************************************************ ***
Ejemplo breve del programa que llama a la clase
CLASS Tpro FROM TForm
COMPONENT oZkem
METHOD mcreaform()
ENDCLASS
#include "prueba.xfm"
//---------------------------------------------------------- --------------------
METHOD mCreaForm( oSender ) CLASS Tpro
local cSerial:=””, nreloj:=1,cip:”192.168.1.200”
Instanciamos la clase :
WITH OBJECT ::oZkem := TCZKEM():New(SELF)
:create()
END WITH
if ::oZkem :Connect_Net( cIp, 4370 ) /// En ambos casos funciona ok
*Funcion Verifica la Serie
if ::oZkem :GetSerialNumber(nReloj, @cSerial ) /// En ambos casos
devuelve el valor lógico verdadero
MsgInfo(cSerial,”Serie Equipo “)
(En 2.74 cSerial = “201231545600001”)
(En 3.xx cSerial = “ “) con harbour
endif
endif
RETURN Nil
Nota : He probado compilando con BCC e igualmente tengo el mismo problema
Alguna solución o algún cambio en Harbour?
************************************************************ ******
Otra pregunta :
Funciona fastreport 4.13 con Xailer 2.74 ? ,
Estuve probando y no levanta.
************************************************************ ******

[jfgimenez]

Michael,
por favor, enví­enos un ejemplo lo más pequeño posible para poder
probarlo nosotros aquí­.
La diferencia entre Harbour y xHarbour es que el soporte de OLE es
completamente diferente, y por eso puede haber cosas que no funcionen
del todo bien y que tengamos que depurar.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Michael Pavlich]

Saludos
El proyecto que envié a través del correo de Soporte lo tienen?
"Jose F. Gimenez" escribió en el mensaje de
noticias:5293936c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Michael,
por favor, enví­enos un ejemplo lo más pequeño posible para poder
probarlo nosotros aquí­.
La diferencia entre Harbour y xHarbour es que el soporte de OLE es
completamente diferente, y por eso puede haber cosas que no funcionen
del todo bien y que tengamos que depurar.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[Michael Pavlich]

Estimados Señores :
Alguna novedad para el problema de las variables contenedoras?
Quizás si les habilito una maquina con un acceso remoto, podrí­an probar?
En el proyecto que les envié, adjunte con las 2 versiones incluyendo los
OBJ
Algo mas que podrí­a ayudarles ?
Saludos
Michael Pavlich
"Michael Pavlich" escribió en el mensaje de
noticias:[email=52a15420@svctag-j7w3v3j....]52a15420@svctag-j7w3v3j....[/email]
Saludos
El proyecto que envié a través del correo de Soporte lo tienen?
"Jose F. Gimenez" escribió en el mensaje de
noticias:5293936c$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Michael,
por favor, enví­enos un ejemplo lo más pequeño posible para poder
probarlo nosotros aquí­.
La diferencia entre Harbour y xHarbour es que el soporte de OLE es
completamente diferente, y por eso puede haber cosas que no funcionen
del todo bien y que tengamos que depurar.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[jfgimenez]

Michael,
> Estimados Señores :
>
> Alguna novedad para el problema de las variables contenedoras?
> Quizás si les habilito una maquina con un acceso remoto, podrí­an
> probar?
> En el proyecto que les envié, adjunte con las 2 versiones incluyendo
> los OBJ
>
> Algo mas que podrí­a ayudarles ?
perdone, pero no hemos recibido el proyecto; o al menos yo no lo he
visto. Quizás haya terminado en spam, pero si hace más de 30 dí­as ya no
está.
Por favor, enví­emelo de nuevo a mí­ directamente (jfgimenez <en> xailer
<punto> com). Si es posible, evite incluir adjuntos en el mensaje. Es
preferible subir el archivo a dropbox o algún otro sistema de
almacenamiento en la nube y enviar el enlace para evitar que el mensaje
sea detenido en los servidores de correo.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info

[jfgimenez]

Michael,
por cierto, en el proyecto debe incluir todo lo necesario para hacer las
pruebas, incluido el OCX que esté fallando.
Un saludo,
José F. Giménez
http://www.xailer.com
http://www.xailer.info