Impressora On-line

[Guest - Adriano Marcio -]

A função abaixo não está funcionando no XP on pode está o erro?

Obs: Mensagem de Erro: Access violation at address 00548761 in module PROJECT. Read of Address FFFFFFFFFF.

<==== Linha que o delphi relata como erro depois da mensagem.

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}

Int $17; {Chama a interrupção de Impressora} <=== linha especificada

mov Res,ah; {Guarda em Res o resultado da operação }

end;

Result := (Res and $80) = $80; {Testa o valor de saída}

end;

[Corposemalma]

Bem... essa impressora usa que tipo de interface? LPT? USB?

[Guest - Paulo -]

Pelo que li em um site de dicas, o XP não autoriza acesso de baixo nível, ou seja, alguns código em assembler.