Mais uma vez rola essa dica falida sobre Impressora On-Line! Essa dica aí da int 17h não funciona em ambientes operacionais baseados no Windows NT (NT/2000/XP). Motivo: esses sistemas operacionais restringem muito o acesso a recursos de baixo nível do computador, como acesso direto à memória, uso de interrupções da BIOS (como é esse o caso) e acesso à portas de I/O.
Pra saber o status da impressora, o melhor mesmo é pesquisar (mas pesquisar mesmo!) na API do Windows com obter isso de forma mais genérica, pq só acessar a porta da impressora não acho vantagem, pois de repente a impressora pode estar em rede, e ficar lendo dados de uma porta que está mapeada para um recurso de rede (no caso, uma impressora) é uma verdadeira incoerência. Sds. >From: "willian leal" <[EMAIL PROTECTED]> >Reply-To: delphi-br@yahoogrupos.com.br >To: delphi-br@yahoogrupos.com.br >Subject: Re: [delphi-br] Verificar se impressora está online >Date: Fri, 6 Oct 2006 15:54:18 -0300 > >Sim, estou usando o XP, alguém sabe qual função eu posso usar para fazer >essa verificação? > >2006/10/6, Guionardo Furlan <[EMAIL PROTECTED]>: > > > > Hmm, vc está usando o Windows XP? > > Se sim, acho que o acesso direto ao hardware não funciona direito. > > > > 2006/10/6, willian leal <[EMAIL PROTECTED]>: > > > > > > Olá galera boa tarde, estou usando essa função para verificar se a > > > impressora está online antes de imprimir. Porém ela está dando um erro > > no > > > comando Int $17. Ela dá um Access Violation, alguém já teve esse > > problema? > > > Desde já agradeço a ajuda de todos, abraços. > > > > > > function ImpressoraOnLine(Porta: Word): Boolean; > > > const > > > Portas: Byte = $02; > > > var > > > Resultado: Byte; > > > begin > > > Asm > > > mov ah, Portas; > > > mov dx, Porta; > > > Int $17; > > > mov Resultado, ah; > > > end; > > > Result := (Resultado and $80) = $80; > > > end; > > > > > > -- > > > Willian Leal > > > Desenvolvedor de Softwares > > > MSN: [EMAIL PROTECTED] > > > Cel:(32) 8821 - 9182 > > > Tel:(32) 3711 - 5012 > > > Muriaé - MG > > > > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > > > > > > > > > -- > > Timeo hominem unius libri > > Cogito ergo sum - Carpe diem > > > > []s > > Guionardo Furlan > > http://guionardo.antiblog.com > > > > > > [As partes desta mensagem que não continham texto foram removidas] > > > > > > > > > >-- >Willian Leal >Desenvolvedor de Softwares >MSN: [EMAIL PROTECTED] >Cel:(32) 8821 - 9182 >Tel:(32) 3711 - 5012 >Muriaé - MG > > >[As partes desta mensagem que não continham texto foram removidas] > _________________________________________________________________ MSN Messenger: converse com os seus amigos online. http://messenger.msn.com.br -- <<<<< 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] 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