[maiquemasque]

Hola;

No sabía si colocar esto en "Impresión" o "Varios".

Se trata de algo que me tiene ya quemado. No consigo, por más que he buscado y rebuscado en internet, abrir un cajón portamonedas que está conectado con cable RJ11 a una impresora OKIPOS 410.

Cuando intento hacerlo con alguno de los codigos que pongo más abajo, además de darme errores, desconfiguar totalmente las impresoras del sistema, las borra todas de un plumazo. Y esque lo que hace es detenerse el servicio "Cola de impresión". Tengo que activarlo para poder desinstalar la impresora OKI y despues volver a instalarla.

Este es el error que sale en pantalla:

"spooler subsystem app"

"ENUMPRINTERDRIVERS ERROR CODE: 1722"

Y al ejecutar el codigo, tambien aparece a veces esto:

"I/O ERROR 103"

Y además dice que no encontró el archivo.

La impresora está conectada en LPT1 y todo esto es en Windows XP

Y este es el codigo que he utilizado:

Código Delphi [-]
procedure AbreCaja; 
var 
nPrn:TextFile; 
abrir:string; 
begin 
AssignFile(nPrn, 'LPT1'); 
Rewrite(nPrn); 
WriteLn(nPrn,cadena); //cadena:='chr(27)+... dependiendo de la impresora' 
CloseFile(nPrn); 
end;

otro:

Código Delphi [-]
begin 
AssignFile(CajaRegistradora, tTipoCajon); 
Rewrite(CajaRegistradora); 
WriteLn(CajaRegistradora,#27+#112+#0); 
// . WriteLn(CajaRegistradora,#27+#112+#0+#10+#100); 
// . repite la secuencia SI observas que no va correctamente 
CloseFile(CajaRegistradora); 
end;

Código Delphi [-]
procedure AbrirCajon();
var
nPrn: TextFile;
begin
AssignFile(nPrn, 'COM2');
Rewrite(nPrn);
WriteLn(nPrn,#27+#112+#0+#27+#112+#0);
CloseFile(nPrn);
end;

La secuencia para las OKI 410 se supone que es esta:

27,112,0,25,255


Pero ya digo, da igual el codigo que utilice, se va todo el sistema de impresión a la porra.

Con las Epson y Samsung no tuve nunca este problema.

¿Alquien puede ayudarme?, gracias