Hola gente del foro.... les comento cual es el problema que tengo, que la verdad me está volviendo loco ya que he probado de todo y no se que mas hacer.
Estoy utilizando el OCX de Epson para comunicarme con un controlador fiscal Epson, y tengo el siguiente problema (escribo unas lineas de código de ejemplo)
Procedure <XXXXX>
var PrnFisc : _PrinterFiscalDisp;
Aux:WideString;
begin
inherited;
//Crear obj. de comunicación con el controlador y setear parametros.
PrnFisc := CreateComObject(CLASS_PrinterFiscal) as _PrinterFiscalDisp;
PrnFisc.PortNumber := 1;
PrnFisc.BaudRate := '9600';
Aux:= 'LInea a imprimir';
PrnFisc.OpenNoFiscal;
prnfisc.SendNoFiscalText(Aux);
prnfisc.CloseNoFiscal;
MessageDlg('error', mtInformation, [mbOk], 0);
end;
Ojo tener en cuenta que solo es un ejemplo, no le busquen sentido porque está la linea del MessageDlg, ahora paso a explicar...
Lo que hago es, crear la instancia que se comunica con el controlador, abrir doc. no fiscal , imprimir linea y cerrar No fiscal.
Despues muestro el cartel, Hasta aca todo bien pero cuando cierro la aplicación me tira este tipo de error:
"
Error de aplicación : La instrucción en "0x21c14667" hace referencia a la memoria en "0x21c14667". La memoria no se puede "read"."
Lo raro es que si saco la linea "MessageDlg('error', mtInformation, [mbOk], 0);", el error no me lo dá.
Es más (otra cosa que más me confunde), si inserto un punto de corte justo en la linea indicada cuando estoy haciendo debbug, tampoco me lo tira.
Alguien me puede explicar que está pasando ?
PD. Trabajo en D7 y WinXP.
Saludos a todos y espero que se entienda....