Fórum tem como prever se tem impressora instalada na porta LPT1 #188626
14/10/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
14/10/2003
Tkramer
//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.
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.
Responder
Gostei + 0
15/10/2003
Fcremm
[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
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
Responder
Gostei + 0
20/10/2003
Tkramer
a variável Teste foi declarada como TPrinter???
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)