TPV - Visor IBM

[[duilioisola]]

Normalmente van conectados al puerto serie del ordenador.
Tendrás que enviar datos a ese puerto.
Yo recuerdo un visor que utilizaba para un TPV y lo hacíamos con un simple:

Código Delphi [-]
procedure ImpresionDirecta(impresora: string; Data: string);
var
  Puerto:  string;
  Fichero: TextFile;
begin

  // Cojemos el puerto de la impresora a imprimir
  puerto := impresora;

  // Si no es un puerto normal, busco el puerto que pertenece a la impresora
  if ((impresora <> 'COM1:') and
    (impresora <> 'COM2:') and
    (impresora <> 'COM3:') and
    (impresora <> 'COM4:') and
    (impresora <> 'LPT1:') and
    (impresora <> 'LPT2:') and
    (impresora <> 'LPT3:') and
    (impresora <> 'LPT4:')) then
    PrinterPort(impresora, puerto);

  AssignFile(Fichero, Puerto);
  {$I-}
  ReWrite(Fichero);
  {$I+}
  if IOResult = 0 then
  begin
     Write(Fichero, Data);
     CloseFile(Fichero);
  end;
end;

ImpresionDirecta('COM1:', 'Siguiente Cliente' + chr(13));