Bom, neste caso o seu sistema não vai funcionar...
Deixe-me repetir a pergunta, mas de uma forma diferente... Nossos sistemas são
desenvolvidos fazendo impressão em modo DOS (Caracter) para impressoras Epson e HP,
para não ter que testar a impressora, ou seja, exatamente para não ter o"seu"
problema, decidimos utilizarmos o gerenciador de impressão do Windows, ou seja,
impressão rápida, sem dor de cabeça e ainda funciona em rede sem ter que "capturar" a
Lpt1.
No momento não tenho o código para isto aqui comigo, mas posso lhe fornecer depois do
"feriado"...
[s]
=====================
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=====================
----- Original Message -----
From: Alessandro Fernandes ><>
To: [EMAIL PROTECTED]
Sent: Saturday, October 30, 2004 6:30 PM
Subject: RES: [delphi-br] Testar se impressora esta on line no windows XP
Eduardo, o programa em questão não usa o gerenciador de impressão do
windows. Ele manda comandos diretamente para a porta LPT1 da máquina e
preciso alertar o usuário se a impressora estiver desligada.
_______________________________
Alessandro Cunha Fernandes ><>
SoftTI - Software e Consultoria em TI
_____
De: Eduardo Jedliczka [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 28 de outubro de 2004 18:05
Para: [EMAIL PROTECTED]
Assunto: Re: [delphi-br] Testar se impressora esta on line no windows XP
Desculpe a pergunta, mas testar a impressora para Quê ??? Sabia que existe o
gerenciador de impressão no Windows ??? E que ao ligar a impressora o
documento é impresso imediatamente ???
[s]
=====================
Eduardo Jedliczka
GeraSoft Informática
Apucarana - PR
=====================
----- Original Message -----
From: Rubem Rocha
To: [EMAIL PROTECTED]
Sent: Thursday, October 28, 2004 4:41 PM
Subject: RES: [delphi-br] Testar se impressora esta on line no windows XP
Não funciona pq todos os ambientes operacionais baseados em plataforma NT
(NT/2000/XP) são muito restritivos quanto aos programas acessarem recursos
de baixo nível do computador, como esse acesso a uma porta de I/O que é
mostrada na dica que vc pegou pra usar no seu programa. Uma sáida seria
fazer chamadas a uma camada COM disponível para todas as plataformas Windows
chamada WMI. Ela possui informações de hardware e software que podem ser
coletadas para computadores locais ou em rede. Pesquise mais em
http://msdn.microsoft.com.
Agora, se vc quer uma solução pra 'pronta entrega', eu não disponho no
momento. Algum colega mais experiente possui alguma chamada de função da API
do Windows que faça o que o Alessandro precisa?
[]s
-----Mensagem original-----
De: Alessandro Fernandes ><> [mailto:[EMAIL PROTECTED]
Enviada em: quinta-feira, 28 de outubro de 2004 13:38
Para: [EMAIL PROTECTED]
Assunto: [delphi-br] Testar se impressora esta on line no windows XP
Colegas
Gostaria de saber como testar se uma impressora ligada à porta LPT1 esta
on line. A rotina abaixo não funciona no windows XP. Da um erro de violação
de acesso.
While not PrinterOnline() do
begin
MsgBox('Verifique a Impressora!','ATENÇÃO');
end;
Function PrinterOnLine : Boolean;
Const
PrnStInt : Byte = $17;
StRq : Byte = $02;
PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }
Var
nResult : byte;
Begin (* PrinterOnLine*)
Asm
mov ah,StRq;
mov dx,PrnNum;
Int $17; <===== o erro ocorre aqui.
mov nResult,ah;
end;
PrinterOnLine := (nResult and $80) = $80;
End;
Obrigado,
_______________________________
Alessandro Cunha Fernandes ><>
SoftTI - Software e Consultoria em TI
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED]
ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
----------------------------------------------------------------------------
--
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do
Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
<http://br.i1.yimg.com/br.yimg.com/i/br/ads4/2309_lrec_yshopping2.gif>
<http://br.rd.yahoo.com/SIG=12a7gq7uu/M=264105.3931087.6562589.1588051/D=brc
lubs/S=2137111264:HM/EXP=1099083815/A=2361264/R=6/SIG=10v4acpp0/*http:/br.sh
opping.yahoo.com/>
_____
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>
* O uso que você faz do Yahoo! Grupos está sujeito aos Termos
<http://br.yahoo.com/info/utos.html> do Serviço do Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE
------------------------------------------------------------------------------
Links do Yahoo! Grupos
a.. Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
b.. Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
c.. O uso que você faz do Yahoo! Grupos está sujeito aos Termos do Serviço do
Yahoo!.
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
