O sistema Operacional (XP ou Vista) não esta permitindo o acesso direto
ao hardware !!
[ ]´s
Moacir
Bruno Lepesqueur escreveu:
> Não sei se fiz certo, mas eu coloquei a Function:
>
>
>
> "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;"
>
>
>
> logo abaixo das units (no início dos códigos) e criei um botão somente com
> o código:
>
>
>
> "While not PrinterOnline() do
>
> begin
>
> MsgBox('Verifique a Impressora!','ATENÇÃO');
>
> end;"
>
>
>
> mas qdo eu clico no botão o sistema trava!
>
>
>
> Obrigado pela força!
>
> Aguardo outra dica!
>
>
>
> -------Mensagem original-------
>
>
>
> De: Rosberg Soares
>
> Data: 30/01/2009 16:09:33
>
> Para: delphi-br@yahoogrupos.com.br
>
> Assunto: Res: Res: Re: Res: [delphi-br] Impressão rave direto na impressora
>
>
>
> Na sua unit, faça a chamada abaixo:
>
> 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;
>
>
>
>
>
>
>
>
>
> ________________________________
>
> De: Bruno Lepesqueur <brunolbra...@yahoo.com.br>
>
> Para: delphi-br@yahoogrupos.com.br
>
> Enviadas: Sexta-feira, 30 de Janeiro de 2009 9:42:28
>
> Assunto: Res: Re: Res: [delphi-br] Impressão rave direto na impressora
>
>
>
> Pessoal... obrigado, mas ainda gostaria de saber se tem como ele checar se a
>
> impressora está em modo de uso ou não, por exemplo:
>
>
>
> Esse código que vcs me passaram informa quais as impressoras que estão
>
> instaladas no micro, mas não se elas estão ligadas ou conectadas (pronta
>
> para uso). Tem algum código q me informa o status dela?
>
>
>
> Obrigado!
>
>
>
> -------Mensagem original---- ---
>
>
>
> De: Moacir - GMail
>
> Data: 30/01/2009 09:09:42
>
> Para: delphi...@yahoogrup os.com.br
>
> Assunto: Re: Res: [delphi-br] Impressão rave direto na impressora
>
>
>
> Bruno,
>
>
>
> Inclua na clausula USES (lá no inicio do teu fonte) a unit Printers;
>
>
>
> Após isto vc poderá fazer como abaixo descrito:
>
>
>
> Label1.Caption: =Printer. Printers. Text;
>
>
>
> ou algo do tipo
>
>
>
> If Printer.Printers. Text='' then
>
> ShowMessage( 'Nenhuma impressora configurada !!')
>
> else
>
> ShowMessage( 'Impressoras configuradas: '+#13+Printer. Printers. Text);
>
>
>
> Sucesso !!
>
>
>
> Moacir
>
>
>
> Bruno Lepesqueur escreveu:
>
>
>> Amigo... esses comandos eu uso no próprio Delphi ou são comandos do
>>
>
> windows?
>
>
>
>
>> Eu digitei esses comandos no delphi em um bitbtn, mas o delphi não aceita!
>>
>
>
>
>
>
>
>
>
>
>> Obrigado pela força!
>>
>
>
>
>
>
>
>
>
>> -------Mensagem original---- ---
>>
>
>
>
>
>
>
>
>
>> De: Rosberg Soares
>>
>
>
>
>
>> Data: 29/01/2009 18:41:25
>>
>
>
>
>
>> Para: delphi...@yahoogrup os.com.br
>>
>
>
>
>
>> Assunto: Res: [delphi-br] Impressão rave direto na impressora
>>
>
>
>
>
>
>
>
>
>> Com esse comando vc consegue o nome de todas as empressoas no windows.
>>
>
>
>
>
>
>
>
>
>> USES Printers
>>
>
>
>
>
>
>
>
>
>> IMPRESSORA_NO_ SISTEMA := printer.Printers. Text;
>>
>
>
>
>
>
>
>
>
>> ____________ _________ _________ __
>>
>
>
>
>
>> De: Bruno Lepesqueur <brunolbrasil@ yahoo.com. br>
>>
>
>
>
>
>> Para: delphi...@yahoogrup os.com.br
>>
>
>
>
>
>> Enviadas: Quinta-feira, 29 de Janeiro de 2009 15:04:18
>>
>
>
>
>
>> Assunto: [delphi-br] Impressão rave direto na impressora
>>
>
>
>
>
>
>
>
>
>> Boa tarde pessoal!
>>
>
>
>
>
>
>
>
>
>> Seguinte... criei o seguinte código para imprimir no rave direto na
>>
>
>
>
>
>> impressora:
>>
>
>
>
>
>
>
>
>
>> dmoRelatorios. rvsPedidosPre. DefaultDest := rdPrinter;
>>
>
>
>
>
>> dmoRelatorios. rvsPedidosPre. SystemSetups := dmoRelatorios. rvsPedidosPre
>>
>
>
>
>
>
>> SystemSetups - [ssAllowSetup] ;
>>
>
>
>
>
>> dmoRelatorios. rvPedidosPre. ProjectFile := 'C:\RelPedidoNF. rav';
>>
>
>
>
>
>> dmoRelatorios. rvPedidosPre. ExecuteReport( 'Report1' );
>>
>
>
>
>
>
>
>
>
>> Dessa forma ele imprime direto na impressora que eu tenho configurada como
>>
>
>
>
>
>
>> padrão, mas acontece uns erros qdo eu não tenho nehuma impressora
>>
>
>
>
>
>> configurada em meu micro e o sistema trava.
>>
>
>
>
>
>> Teria como antes de executar esses código eu pedir para o delphi verificar
>>
>
> a
>
>
>
>
>> comunicação com a impressora pra ver se ela está presente e pronta pra
>>
>
>
>
>
>> imprimir?
>>
>
>
>
>
>
>
>
>
>> Obrigado!
>>
>
>
>
>
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> Veja quais são os assuntos do momento no Yahoo! +Buscados
>
> http://br.maisbuscados.yahoo.com
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
>
>
>
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> ------------------------------------
>
>
[As partes desta mensagem que não continham texto foram removidas]
