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);
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?