14 respuestas en este tema

[Nikolas]

Trabajo con Lz V1.2.4
El problema me surgió al enviar una cadena de comandos a una impresora fiscal.
Le debo enviar:

Cadena = Comando + separador + dato + separador + dato;

Donde:
Comando es: ô (ASCII 147)
Separador es: (ASCII 28)
Dato es: datos del comando

Me funciona este comando:

delphi

cadena := '9' + #28 + 'X';  (Comando + separador + dato)

Lo que no me funciona es:

delphi

cadena:= 'ô' + #28 + '1' + #28 + '0002-00000123';
ni
cadena:= Chr(147)+ #28 + '1' + #28 + '0002-00000123';
ni
cadena:= #147+ #28  + '1' + #28  + '0002-00000123';
ni
cadena:= UTF8ToCP437(#147) + #28  +'1' + #28  + '0002-00000123';
ni
cadena:= UTF8ToSys('c3 b4')  + #28  + '1' + #28 + '0002-00000123';

Entiendo que Lazarus codifica en UTF8 por defecto y que debo utilizar ASCII extendido.

Pero sigo sin lograrlo 
¿Sugerencias? 

[jdepaz]

Hola a todos,

¿Yá probaste a enviar cada caracter de DATO en formato HEX?


Saludos

[Nikolas]

Hola a todos,

¿Yá probaste a enviar cada caracter de DATO en formato HEX?
Saludos

en realidad no porque me dejaron bien claro que debe ser ASCII.

pd:

por si no me explique, el error es unicamente en el "comando".

[Nikolas]

Hola a todos,

¿Yá probaste a enviar cada caracter de DATO en formato HEX?
Saludos

en realidad no porque me dejaron bien claro que debe ser ASCII.

pd:

por si no me explique, el error es unicamente en el "comando".

[jdepaz]

Hola,

¿Y lo siguiente te funciona?:


cadena := '9' + #28 + '0002-00000123';

cadena := '9' + #28 + #41+#42; // AB

Saludos

[Nikolas]

Hola,

¿Y lo siguiente te funciona?:


cadena := '9' + #28 + '0002-00000123';

cadena := '9' + #28 + #41+#42; // AB

Saludos

si pero es incorrecto por los datos.
Osea:
el "9" esta bien por ser el comando
el "#28" esta bien por ser el separador
el "0002-00000123" no es un dato valido para ese comando.

[jdepaz]

Hola,

Bien, en el comando específicamente que es DATO, o bien DATO es lo que tiene que imprimir, recalco:

¿Qué resultado muestra lo siguiente?


cadena := '9' + #28+#48+#48+#48+#50+#45+#48+#48+#48+#48+#49+#50+#51;


Saludos

[Nikolas]

cadena := '9' + #28+#48+#48+#48+#50+#45+#48+#48+#48+#48+#49+#50+#51;

eso me dice:

- que reconoce el comando pero los N datos son incorrectos.

[jdepaz]

Hola,

Revisa estos enlaces:


http://stackoverflow...ctly-to-printer

http://www.scalabium...faq/dct0087.htm

http://stackoverflow...ecific-commands

De pronto te pueden orientar a encontrar la solución




Saludos

[jdepaz]

También encontré esto en los foros:

http://forum.lazarus....html#msg133226

Al final dice que en los ejemplos de Lazarus se encuentra uno sobre envío de comandos.


Saludos

[Nikolas]

Hola,

Revisa estos enlaces:


http://stackoverflow...ctly-to-printer

http://www.scalabium...faq/dct0087.htm

http://stackoverflow...ecific-commands

De pronto te pueden orientar a encontrar la solución

Saludos

En realidad no, porque se envian por un metodo quien se encarga de la comunicacion.

[Nikolas]

También encontré esto en los foros:

http://forum.lazarus....html#msg133226

Al final dice que en los ejemplos de Lazarus se encuentra uno sobre envío de comandos.

Saludos

Deberia probarlo de todas maneras.

[jdepaz]

Hola,

¿Lograste solucionar tu problema?


Saludos

[Nikolas]

Aun no.
con este codigo veo el simbolo pero no lo recibo correctamente en la impresora.

delphi

uses
 Windows;
..
procedure TForm1.Button1Click(Sender: TObject);
var
  ws: WideString;
begin
  ws := UTF8Decode('Test this char: ô');
  MessageBoxW(0, @ws[1], 'Test', MB_OK);
end;

no estoy seguro donde esta problema ahora.

[Nikolas]

Para poder continuar con este proyecto, lo solucione momentaneamente con un .exe hecho en visual studio 2013 
pero no cierro el tema por si alguien le encuentra la vuelta a este problema.

saludos.