tem como prever se tem impressora instalada na porta LPT1

Delphi

14/10/2003

me passarao ou esta funcao pra ver se a impressora esta online

mas ta dando um erro de access violetion
qdo chega nesta liga
[b:6b673670d9]int $17[/b:6b673670d9]

a funcao é esta

Function OnLine(Porta:Word):Boolean;
Const
Portas :Byte = $02;
Var
Res :Byte;
Begin
{ Código em Assembler }
Asm
mov ah,Portas; {Requisita o acesso as portas}
mov dx,Porta;{Define a porta de teste}
[b:6b673670d9]Int $17; {Chama a interrupção de Impressora} [/b:6b673670d9]
mov Res,ah; {Guarda em Res o resultado da operação }
end;
Result := (Res and $80) = $80; {Testa o valor de saída}
End;

alguem pode me ajudar

felipe.cremm@itelefonica.com.br

fcremm


Fcremm

Fcremm

Curtidas 0

Respostas

Tkramer

Tkramer

14/10/2003

//declare teste como TPrinter e impressora como boolean

Try
teste := Printer.Orientation;
impressora := True;
Except
on EPrinter do impressora := False;
End;

//ai vc checa e :

if (not impressora) then
showMessage(´nao existe impressora instalada´);

//eu nao testei mas acho que assim funciona! flw.


GOSTEI 0
Fcremm

Fcremm

14/10/2003

[b:aae3b5ad43]Printer.Orientation;[/b:aae3b5ad43]
este comando que vc me passor, qdo igualo ao teste é tipo incompativel
pq printer.Orientation é a posicao do papel que vc deseja
paisagem ou vertical


GOSTEI 0
Tkramer

Tkramer

14/10/2003

a variável Teste foi declarada como TPrinter???


GOSTEI 0
POSTAR