se o SO é Win XP, tente mudar no setup da máquina a porta paralela de ECP
para SPP.
---Mensagem original---
De: sa_souza
Data: 10/11/05 13:50:29
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Testar Porta de Saida...
Olá pessoal...
tô com um probleminha aqui
Achei esse outro aqui tbem...
Verificando se a impressora está ativa
Na sua unit, faça a chamada abaixo:
While not PrinterOnline() dobegin MsgBox('Verifique a
Impressora!','ATENÇÃO');end; Function PrinterOnLine : Boolean;Const PrnStInt :
Byte = $17; StRq : Byte = $02; PrnNum : Word = 0; {
Eu achei esse texto aqui, ve se ajuda...
Verificar se Impressora esta Conectada
A dica abaixo apresenta o código para implementação de uma função para
verificar se a impressora esta conectada.
Para implementar esta função é necessário que o código gerado manipule algumas
interrupções da Bio
Olá pessoal...
tô com um probleminha aqui...
Function TForm1.VerificaImpressoraConectada(Porta:Word):Boolean;
Const Portas :Byte = $02;
Var Res :Byte;
Begin
Asm
mov ah,Portas;
mov dx,Porta;
Int $17; //-> aqui dá um Acces
4 matches
Mail list logo