Access violation at address

[elarys]

Buenas, al pasar codigo de visual basic a delphi, en basic viene un ocx y lo he pasado a delphi, no se si sera que esta mal pasado a delphi el ocx (creo que es para delphi3 y estoy con delphi6), cuando quiero pasar el ejemplo de visual a delphi me da el error que escribi en el titulo.
Cabe aclarar que es para imprimir en la impresora fiscal TM-U300A... en visual basic funciona correctamente.

Codigo Visual Basic para imprimir un ticket
'Tique
res = Me.PrinterFiscal1.OpenTicket("G")
If res Then res = Me.PrinterFiscal1.SendTicketItem("ARTICULO 1", "1000", "100", "2100", "M", "0", "0")
If res Then res = Me.PrinterFiscal1.GetTicketSubtotal("P", "LINDO SUB")
If res Then res = Me.PrinterFiscal1.SendTicketPayment("PAGO1", "200", "T")
If res Then res = Me.PrinterFiscal1.CloseTicket

Codigo en delphi

Código Delphi [-]
var
  res : boolean;
  CF : PrinterFiscal;
  tip : widestring;
begin
  tip := 'G';
  res := CF.OpenTicket(tip); //aqui me da el error
  //  if res then res := CF.SendTicketItem("ARTICULO 1", "1000", "100", "2100", "M", "0", "0");
  //  if res then res := CF.GetTicketSubtotal("P", "LINDO SUB");
  //  if res then res := CF.SendTicketPayment("PAGO1", "200", "T");
  //  if res then res := CF.CloseTicket;

En donde OpenTicket es una funcion

Código Delphi [-]
  function OpenTicket(var StorageDataType: WideString): WordBool; safecall;
 
  function OpenTicket(var StorageDataType: WideString): WordBool; dispid 1610809387;

El problema puede estar al pasar datos WideString?

[[basti]]

Te falta crear el objeto:

Código Delphi [-]
var
  res : boolean;
  CF : PrinterFiscal;
  tip : widestring;
begin
  tip := 'G';
  CF := PrinterFiscal.Create(self); // o algo así dependiendo de la definición de create
  res := CF.OpenTicket(tip);

[elarys]

Si si, pero lo extraño es que el Create no me lo hace
y me da el siguiente error en

Código Delphi [-]
  CF := PrinterFiscal.Create(self);

Object or class type required

[[eduarcol]]

estas seguro que PrinterFiscal es la clase y no una instanciacion???

por regla general en delphi es: TPrinterFiscal

[elarys]

Si estoy seguro, el problema es que el ocx es para una impresora vieja y parece que no funciona bien con delphi6.
De aqui baje el ocx, con codigo fuente en visual basic.

ftp://ftp.epson.com/latin/drivers/Im.../OCXFiscal.zip

[elarys]

Alguien con mas experiencia podria ayudarme con el ocx

[elarys]

Bueno al final la declaracion era en la parte privada de la unidad

Código Delphi [-]
private
  CF : _PrinterFiscalDisp;

Asi me funciono