Essa tua função usa assembler, e até onde me consta, as aplicações, no
WinXP, não podem executar este tipo de código.
No WinXp, até onde eu sei, não tem como verificar se a impressora está
on-line.... O procedimento é, basicamente... Você envia para a impressora,
se ela não estiver on-line, paciência...
[]'s
Francisco Thiago de Almeida
Enter&Plug Sistemas
Divisão: Desenvolvimento / Banco de dados
Franca - SP
----- Original Message -----
From: "Junior Terenzi" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, July 15, 2005 12:48 AM
Subject: [delphi-br] Erro Verificar Impressora On Line + winXP
Pessoal, achei a seguinte função para verificar se a impressora esta
on line na porta informada, mas esta dando um erro no WinXP. Não
testei em outras versóes pois náo tenho aqui.
{-------------------------------------------------------------------------}
function TForm1.PrinterOnLine(Porta: TPorts): Boolean;
var
nResult: Byte;
PrnNum : Word; // 0 para porta LPT1, 1 para porta LPT2, etc.
begin
PrnNum := ord( Porta );
asm
mov ah, $02;
mov dx,PrnNum;
// ------ linha onde aparece o erro
Int $17;
// ------ linha onde aparece o erro
mov nResult,ah;
end;
result := (nResult and $80) = $80; //decimal=128 Bin=10000000 ou
//seja, testando o 7º bit
end;
Alguem tem alguma dica sobre isso???
--
<<<<< 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
--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 14/07/2005
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< 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
