enviar codigos ESC a impresora

[JuanHC]

Hola,
Necesito enviar los codigos de ESC a la impresora para la apertura del CAJON, CORTE DE TIQUET, Estos codigos se piden en campo EDIT

He probabo de varias formas, pero no consigo que me funcione, lo que envio me lo interpreta como si fuera un texto normal.

Agradeceria si alguien puede ayudarme.

[[seoane]]

No estaría de mas que pusieras el código que estas usando, y los códigos (el numero) que quieres mandar.

[[basti]]

Hay varias formas de enviar esos datos a la impresora.

Ejemplo de Abrir cajón (funciona en impresoras epson y compatibles):

Código Delphi [-]
var
  f : TextFile;
  CadenaCajon : string;

begin
  CadenaCajon := chr(27) + chr(112) + chr(0) + chr(100) + chr(200);

  AssignPrn(f);
  Rewrite(f);
  Write(f, CadenaCajon);
  CloseFile(f);
end;

[Onti]

Aqui hay algunos ejemplos

[JuanHC]

TIenes razon,

Los codigos que yo quiero enviar a la impresora son:

ESC + 'p 0 5 20'

es para que se abra el cajon portamonedas.

como he dicho antes, me lo interpreta como un texto,

LineaTexto = chr(27)+ 'p 0 5 20'
Writeln ( Fichero, LineaTexto);

[[seoane]]

Segun creo, lo que tienes que mandar a la impresora son los caracteres #27#112#0#5#20, siendo el #112 = 'p'. Esto no seria un problema, lo malo es si necesitas introducir los comandos en un edit, en otro hilo dí la siguiente solución al problema, espero que te sirva:

Código Delphi [-]
// Esta funcion decodifica una cadena, donde los caracteres no imprimibles
// estan sustituidos por % seguido de su valor hexadecimal.
function Decode(Str: string): string;
var
  i: integer;
begin
  Result:= '';
  while Length(Str) > 0 do
  begin
    if Copy(Str, 1, 1) = '%' then
    begin
      if not TryStrToInt('$' + Copy(Str, 2, 2),i) then
      begin
        Result:= '';
        Exit;
      end;
      Result:= Result + Char(i);
      Delete(Str, 1, 2);
    end else Result:= Result + Copy(Str, 1, 1);
    Delete(Str,1,1);
  end;
end;

// Por ejemplo para mandar Esc + p 0 5 20
LineaTexto = '%1Bp%00%05%14
Writeln ( Fichero,Decode(LineaTexto));

[[basti]]

Empezado por JuanHC

LineaTexto = chr(27)+ 'p 0 5 20'
Writeln ( Fichero, LineaTexto);

Claro, es que lo que estás enviando es un texto, no los códigos correspondientes.

LineaTexto := chr(27) + 'p' + chr(0) + chr(5) + chr(20);

Fíjate que '0' no es lo mismo que chr(0). En el primer caso envías el carácter '0' (carácter número 48 de la tabla ASCII) a la impresora, eso te imprimirá un 0. En el segundo enviarás el carácter número 0 de la tabla ASCII, que en este caso se usa como carácter de control.

[JuanHC]

Gracias por vuestras respuestas. Creo que me servira.