Ver Mensaje Individual
  #3  
Antiguo 18-04-2012
Avatar de duilioisola
[duilioisola] duilioisola is offline
Miembro Premium
 
Registrado: ago 2007
Ubicación: Barcelona, España
Posts: 1.806
Reputación: 22
duilioisola Es un diamante en brutoduilioisola Es un diamante en brutoduilioisola Es un diamante en bruto
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));
Responder Con Cita