HASAR OCX 2G CONVERSIÓN DE VB a Delphi

[DeG]

Buenos días, les comento que con el fin de integrar el soporte para impresoras fiscales HASAR a mi sistema de gestión, me baje el OCX y el emulador de la pagina oficial.
El mismo venia con un formulario en Visual Basic el cual me puse a convertir a Delphi y como me pareció que seria de utilidad para la comunidad lo publique en github https://github.com/DeGsoft/OCXIFH2GtoDELPHI.
Todo iba bien hasta la primer compilación cuando me surgió el error

[dcc32 Error] HasarUnit.pas(33): E2018 Record, object or class type required

en todas las lineas que llamaba al unit del ocx como esta

HASARNG.AbrirCajonDinero;

.
Si se preguntan de donde viene HASARNG lo había definido al comienzo con

type  HASARNG = ImpresoraFiscalRG3561;

.
Trate de solucionar el problema poniendo la dirección completa

HasarArgentina_TLB.ImpresoraFiscalRG3561.AbrirCajonDinero;

pero sigue igual.
Les agradezco si me pueden ayudar.
Saludos.

[DeG]

Ya lo solucione, cambie:

type  HASARNG = ImpresoraFiscalRG3561;

por

var HASARNG : ImpresoraFiscalRG3561;

y funciono.
Saludos.

[[AgustinOrtu]]

DeG,

Muchas gracias por compartirlo

[DeG]

Buenas tardes, continuando con el desafío anterior de la migración ya he logrado compilar el programa pero cuando ejecuto alguno de los metodos del ocx me surge el siguiente error

First chance exception at $00618CD8. Exception class $C0000005 with message 'access violation at 0x00618cd8: read of address 0x00000000'. Process Project1.exe (2600)

.
En la linea

respfyh := HASARNG.ConsultarFechaHora;

.
La verdad es que no entiendo el error y googleando tampoco encuentro ni siquiera el motivo, así que les agradezco que si alguien tuvo un problema similar por favor me ayude aunque sea describiéndome el motivo del mismo.
Gracias.

[DeG]

Buenas tardes, tratando de resolver el problema anterior encontré la solución al corregir la definición de HASARNG como

HASARNG: TImpresoraFiscalRG3561;

Ahora el error

First chance exception at $005E8852. Exception class $C0000005 with message 'access violation at 0x005e8852: read of address 0x00000328'. Process Project1.exe (5308)

surge dentro de unit del ocx (HasarArgentina_TLB) en la linea

  if FIntf = nil then DoCreate;

del procedimiento

procedure TImpresoraFiscalRG3561.CreateControl;

  procedure DoCreate;
  begin
    FIntf := IUnknown(OleObject) as _ImpresoraFiscalRG3561;
  end;

begin
  if FIntf = nil then DoCreate;
end;

Estoy tratando de probar el ocx con un emulador de HASAR que vino con el mismo.
Cualquier ayuda, aunque sea para orientarme en que estoy fallando, sería de mucha ayuda.
Gracias.

[DeG]

Estaba importando mal el ocx, lo volví a importar y agregue el componente al formulario y funcionó.
Ahora lo estoy testeando con el emulador, no me larga errores pero tampoco muestra nada en pantalla.
Les agradezco si alguien que tenga una impresora HASAR me pueden ayudar a testearlo.
Saludos.

[Marcefe]

Hola, estoy realizando la conexión de una Impresora fiscal Hasar de nueva tecnologia.
La consulta es pudiste realizar la conexión a traves de puerto Com? o utilizaste la conexion Lan?
Otra consulta: cuando creo la ocx no me esta creando la clase TImpresoraFiscalRG3561. Como fue que realizaste la importación de la ocx que te creo esa clase (TImpresoraFiscalRG3561)?

Saludos

Marcela

[Marcefe]

Solucionado

[Casimiro Notevi]

Bienvenido a clubdelphi, como siempre aconsejamos a los nuevos, no olvides leer nuestra guía de estilo, gracias por tu colaboración

[DeG]

Buenas tardes Marcela, la conexión la realice por lan por medio del emulador y te esta fallando la importación, por eso no te crea la clase, proba importarla de nuevo.
Te comento que puedes hacer un fork del repositorio de github y agregar allí tus mejoras.
Por otro lado te pido disculpas por la demora, pero a decir verdad he abandonado el proyecto debido a que mis clientes solo están interesados en la factura electronica.
Saludos.

[DeG]

Buenas, agrego el siguiente enlace en youtube que a mi me sirvió para importar el ocx de hasar, ya que he recibido varias consultas al respecto y me parece que este es el mejor lugar para comunicarlo.
Saludos.