Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Secuencia de Escape para impresora ? (https://www.clubdelphi.com/foros/showthread.php?t=20454)

Raptor 15-04-2005 16:44:33

Secuencia de Escape para impresora ?
 
hola chico como estan espero que bien...

bueno mi problema es el sigte. tengo una impreso Epson TM-U220 de punto de venta y tambien tengo la secuencia de escape (no la tengo a mano ahora mismo), si creo una variable o constante y asigno las secuencia y lo envio al printer funciona muy bien, pero mi interes es poder poner esta secuencia en una tabla(ya la tengo ejeml. Negrita_on,negrita_of,expande_on,expande_of , etc.) cuando tomo los valores de la tabla se envia a la impresora tal y como aparecen los carateres pongo un ejemplo para que se me entienda mejor.

Ejemp. creanto Constantes.
const
Exp_ON = chr(27)+chr(18); //--este no es el codigo pero es mas o meno
Exp_OF = chr(27)+chr(19);

write(f,Exp_On+'Probando'+Exp_Of); // Esto funciona muy bien.

en el papel aparece la palabra Probando en un tamano mayor

Ejemp con Tabla
en la tabla tengo los campos
Exp_on Exp_of
chr(27)+chr(18) chr(27)+chr(19)


en el programa
var
EXP_ON,EXP_OF :String;

Aqui tomo los valores de la tabla
With query do begin
EXP_ON :=query['Exp_on'];
EXP_OF :=query['Exp_of'];
end

Luego imprimo
write(f,Exp_On+'Probando'+Exp_Of); // Esto no funciona

en el papel me sale la sigte informacion

chr(27)+chr(18)probandochr(27)+chr(19)

pueden ayudarme :confused:

gracias de antemo

jachguate 15-04-2005 16:53:29

Hola. Estaras de acuerdo conmigo en que:

Código Delphi [-]

Var
  a, b : String;

Begin
  a := chr(27)+chr(18) + 'probando' + chr(27) + chr(19);
  b := 'chr(27)+chr(18)probandochr(27) + chr(19)';
  if a = b Then
    ShowMessage('esto es un milagro')
  else
    ShowMessage('Las cadenas de caracteres con llamadas a funciones '
          + 'no son evaluadas por delphi, que produce ejecutables y no interpretados ');
end;

Para enfrentar tu requerimiento, te comento que podrias almacenar en la base de datos directamene los caracteres ascii que corresponden con la secuencia de escape, o bien almacenar una serie de números que luego evaluarias y concatenarias con el texto a imprimir...

Hasta luego.

;)

Raptor 17-04-2005 00:24:37

Gracias por la idea probare a ver que sale


La franja horaria es GMT +2. Ahora son las 13:24:46.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi