Ver Mensaje Individual
  #3  
Antiguo 24-03-2004
josem josem is offline
Miembro
 
Registrado: mar 2004
Posts: 23
Reputación: 0
josem Va por buen camino
Hola.! No puedo resolver sus problemas de impresion directa a un puerto USB, pero como estan en la misma linea que yo con las impresoras de tickets y la impresion directa al puerto, aprovecho para consultarles algo:

Em mi aplicacion imprimo directamente al puerto LPT. Pero para saber si la impresora esta encendida o no antes de imprimir, utilizo una rutina en asembler..

// Controla el estado de una impresora
// Devuelve verdadero si existe impresora conectada.
function IsPrinter( iWord: Integer ) : Boolean;
const
PrnStInt : Byte = $17;
StRq : Byte = $02;
var
PrnNum : Word; { 0 para LPT1, 1 para LPT2, etc. }
nResult : byte;
begin
PrnNum := iWord;
Asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov nResult,ah;
end;
IsPrinter := (nResult and $80) = $80;
end;

..., la cual me devuelve el estado de la impresora y yo presento un mensaje al usuario si esta esta apagada o desconectada. En windows XP, esta rutina no me sirve. Ustedes saben como obtener el estado de la impresora desde una aplicacion corriendo con Windows XP.???

Gracias.
Saludos
Jose Miguel Bakulic V.
Responder Con Cita