[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?