Travar o teclado - TEF

Question

Bom dia a todos.  Estou em fase de homologa��o do TEF e preciso travar o teclado enquanto a impressora imprime e destrav�-lo assim que ela parar de responder. Peguei este c�digo aqui no clube:  No OnC...

Nigro · Answer

Pode parecer muito �bvil, nunca tentei isso mas ser� que com par�metro 1 daria certo?...

Turbo Drive · Answer

Eu j� tentei colocar �msg.wParam := 1� e n�o deu certo. Algu�m tem alguma sugest�o ou outra forma de travar o teclado que n�o seja no evento onkeydown ou onkeypress ?

Grato pela aten��o.

E_gama · Answer

Tem uma fun��o em User32.DLL que faz isso. O problema � que bloquea o mouse tamb�m...

Segue exemplo...

procedure BlockInput(ABlockInput : boolean); stdcall; external �USER32.DLL�;

implementation

...

  BlockInput(True);  //--> Bloqueia

...  

  BlockInput(False); //--> Desbloqueia

Turbo Drive · Answer

Muito massa mermo, a fun��o do BlockInput. Valeu pela dica. O meu �nico receio � se todo windows vem com esta dll e se vier, esta fun��o tb estar� sempre presente ?
� por isso que ainda gostaria de saber como destravar com aquela fun��o que postei anteriormente.
Mesmo assim obrigado.

Kroki · Answer

Gostei tambem do Blockinput,mas n�o  consegui destravar o teclado em rede......

Aroldo Zanela · Answer

Colegas,A API BlockInput bloqueia o teclado e mouse geral, mas desbloqueia imediatamente aos pressionar Ctrl + Alt + Del. Idem para as rotinas em assembly do colega Kroki.De acordo com o manual de certifica��o Interface Padr�o/TEF-VISANET Vers�o 5.1 - Julho/2003, basta atribuir false para a propriedade enable do form no in�cio da impress�o e true ao final....

Turbo Drive · Answer

Caro Aroldo,
O esquema de desativar o form pode ser falho, pois assim que o GP das operadoras termina o servi�o n�s temos que recuperar o foco do cursor, o que � inclusive um dos testes.

O que as operadoras querem � que limpemos o Buffer do teclado enquanto a impressora est� em execu��o. Vc teria alguma id�ia de como fazer isso ?

Aroldo Zanela · Answer

[quote:f750d3459f=�Turbo Drive�]Caro Aroldo,
O esquema de desativar o form pode ser falho, pois assim que o GP das operadoras termina o servi�o n�s temos que recuperar o foco do cursor, o que � inclusive um dos testes.
[/quote:f750d3459f]

A recomenda��o anterior � da pr�pria VISANET. Quanto ao retorno do Foco, vc pode utilizar o SetForegroundWindow(Form.Handle);.

O que as operadoras querem � que limpemos o Buffer do teclado enquanto a impressora est� em execu��o. Vc teria alguma id�ia de como fazer isso ?

Para limpar o buffer:

var
  Msg: TMsg;
begin
  while PeekMessage( Msg, 0, WM_KEYFIRST, WM_KEYLAST,
                     PM_REMOVE or PM_NOYIELD ) do;

F�rum Travar o teclado - TEF #182999