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
