ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

verificar se a impressora esta ligada antes de imprimir

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
gbt
Profissional
Profissional


Registrado: Quarta-Feira, 17 de Janeiro de 2007
Mensagens: 672

MensagemEnviada: Seg Mar 12, 2007 2:17 pm    Assunto: verificar se a impressora esta ligada antes de imprimir Responder com Citação

ola, pessoal! dei uma olhada nesse comando aqui mesmo no forum, mais não entendi como fazelo funcionar, alguem pode me ajudar por favor.

While not PrinterOnline() do
begin
MsgBox('Verifique a Impressora!','ATENÇÃO');
end;

Function PrinterOnLine : Boolean;
Const
PrnStInt : Byte = $17;
StRq : Byte = $02;
PrnNum : Word = 0; { 0 para LPT1, 1 para LPT2, etc. }
Var
nResult : byte;
Begin (* PrinterOnLine*)
Asm
mov ah,StRq;
mov dx,PrnNum;
Int $17;
mov nResult,ah;
end;
PrinterOnLine := (nResult and $80) = $80;
End;

desde ja agradeço
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
omaximo
Novato
Novato


Registrado: Quarta-Feira, 29 de Junho de 2005
Mensagens: 19

MensagemEnviada: Ter Mar 13, 2007 11:35 pm    Assunto: Verificar se a impressora esta ligada antes de imprimir Responder com Citação

Aí, eu também estou com o mesmo problema.

Quando implemento o código no meu sistema dá a seguinte mensagem de erro: Unsafe code 'ASM'.

Ou seja, parece que o delphi não reconhece o comando de entrada para o código Assembler.

Será que está faltando alguma coisa na cláusula Units??
Alguém sabe o que é? No help do Delphi não diz nada.

Agradeço qualquer ajuda.
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB