Res: [delphi-br] Testar Porta de Saida...

2005-10-11 Por tôpico Surrute - Yahoo!
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

[delphi-br] Testar Porta de Saida (NOVO)

2005-10-11 Por tôpico thiago castro
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; {

Re: [delphi-br] Testar Porta de Saida...

2005-10-11 Por tôpico thiago castro
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

[delphi-br] Testar Porta de Saida...

2005-10-11 Por tôpico sa_souza
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