Olha, se você for mandar pra ele a função que circula aí na WEB, de checar se a impressora está on-line ou não, esta função NÃO FUNCIONA NOS SISTEMAS OPERACIONAIS BASEADOS NA TECNOLOGIA NT (Windows 2000, 2003, NT e XP). Esta função só funciona nos Win9x e me por causa do acesso ao hardware, que nos NT´s não deixam o seu programa fazê-lo.
[]s Walter Alves Chagas Junior Projeto e desenvolvimento Telemont Engenharia de telecomunicações [EMAIL PROTECTED] Fone: (31) 3389-8215 Fax: (31) 3389-8200 > -----Mensagem original----- > De: Eduardo Jedliczka [mailto:[EMAIL PROTECTED] > Enviada em: segunda-feira, 1 de novembro de 2004 07:26 > Para: [EMAIL PROTECTED] > Assunto: Re: [delphi-br] Testar se impressora esta on line no > windows XP > > > > 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_yshoppi > ng2.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=10v4acpp > 0/*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 > > > > > > > > [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
