Re: [delphi-br] Verificar se impressora está online

2006-10-06 Por tôpico Guionardo Furlan
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]



-- 
 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

 




Re: [delphi-br] Verificar se impressora está online

2006-10-06 Por tôpico willian leal
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]



-- 
 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