Simulando pressionamento de teclas no Forms

[dr_gori]

É possível simular o pressionamento de algumas teclas no Forms. Para isso, usa-se uma procedure da WIN_API_SHELL chamada SENDKEYS:

Selecionar tudo

Sintaxe:
PROCEDURE Win_Api_Shell.SendKeys 
(hWnd			IN	PLS_INTEGER,
 Keys			IN	VARCHAR2,
 RaiseExceptions	IN	BOOLEAN	DEFAULT FALSE);

Veja um pequeno exemplo, que simula o pressionamento da tecla DOWN:

Selecionar tudo

Win_Api_Shell.SendKeys (Win_Api_Utility.Get_Active_Window(TRUE)   ,'{Down}',FALSE);

Abaixo, outras teclas que podem ser usadas:

Selecionar tudo

                        {Backspace}
			{Break}
			{CapsLock}
			{Clear}
			{Delete}
			{End}
			{Enter}
			{Esc}
			{Help}
			{Home}
			{Insert}
			{NumLock}
			{PgDown}
			{PgUp}
			{PrtSc}
			{ScrollLock}
			{Tab}
			{F1} - {F12}
			{Up}
			{Down}
			{Left}
			{Right}

Pode ser feito combinações também! Elas devem estar dentro de parenteses.

[LC_JK]

mas onde eu posso colocar essa procedure?! no PROGRAM_UNIT?! ou coloco direto em uma trigger?!

como q faço pra simular?!
por exemplo

if ....
else..?!

[dr_gori]

Sim, pode ser numa trigger, num botão, etc. Lembrando que o pressionamento de tecla acontecerá onde o cursor estiver.

Qual é a utilidade de "simular" o pressionamento de alguma tecla?

* Digamos que você quer sempre posicionar o cursor num item no quinto caractere. (sei lá porque, mas quer.. heheh). Daí, basta você simular o pressionamento do RIGHT 5 vezes no campo desejado...

Eu não pensei em tudo que pode ser feito... Sinceramente, eu nunca usei iso numa aplicação. Mas existe, e pode ser usado com criatividade em algum caso específico...

[]'s

[jbruning]

Fiz o seguinte comando no WHEN-NEW-ITEM-INSTANCE:

Selecionar tudo

declare
hMDIWin PLS_INTEGER;
begin
  MDIWin := get_window_property  
                  (FORMS_MDI_WINDOW,WINDOW_HANDLE);
  Win_API_Shell.SendKeys(hMDIWin,'{End}',TRUE);
end;

Mas quando entro no campo aparece a mensagem: "Erro Interno do Oracle, ocorreu um erro de PL/SQL."

[dr_gori]

você conseguiu fazer essa rotina funcionar?
Já tentou colocar ela em algum botão pra testar?

Eu acabei de testar aqui e funcionou perfeitamente!
Lembrando que é necessario atachar a pll d2kwutil.pll no forms.
http://www.oracle.com/technology/softwa ... index.html

Ah... e também tem um errinho no código que você postou:
a variável é hMDIWin e não MDIWin !!!

Selecionar tudo

declare
hMDIWin PLS_INTEGER;
begin
  --arrumei abaixo
  hMDIWin := get_window_property  
                  (FORMS_MDI_WINDOW,WINDOW_HANDLE);
  Win_API_Shell.SendKeys(hMDIWin,'{End}',TRUE);
end;

[tfg]

Sobre a d2kwutil.pll :

Pra fazer ela funcionar, é necessário criar uma chave no registro apontando pro diretório onde ela está.

Selecionar tudo

HKEY_LOCAL_MACHINE\Software\Oracle\D2KWUTIL60_PATH

(penei pra descobrir isso!!! )

[]´s

[Toad]

Poxa tfg, você penou, mas por ter postado aqui, me ajudou e muito. Obrigado.

[elkabong]

aí,

JBRUNING, o seu problema de erro interno foi resolvido com a dica do TFG ???
Pra mim continua apresentando "Erro Interno do Oracle, ocorreu um erro de PL/SQL."

Será que tem alguma coisa a ver com o fato de estar conectado remotamente ??? Sei lá....
Alguém teria alguma outra idéia ???

[]´s
Fábio Vitorino

[Toad]

Quais versões você está utilizando?

[elkabong]

Forms [32 Bit] Version 6.0.8.23.2 (Production)
Windows 2000

[]´s

[jramiro]

ola pessoal, eu tb estou com esse erro.
já criei o registro apontando para onde esta dll, mas não corrigiu o erro?


estou usando a versao: Forms [32 Bit] Version 6.0.8.15.0 (Production)

desde já grato

[Renan Orati]

aí... será que com a D2KWUTIL tem como eu capturar a tecla que foi digitada também???? Ou ela apenas simula o pressionamento da tecla???

Porque eu estou querendo identificar quado o usuário pressiona a tecla ALT !!!

alguém tem uma dica?

[dr_gori]

aí... será que com a D2KWUTIL tem como eu capturar a tecla que foi digitada também???? Ou ela apenas simula o pressionamento da tecla???

Porque eu estou querendo identificar quado o usuário pressiona a tecla ALT !!!

alguém tem uma dica?

Acho que você não vai conseguir isso com a D2KWUTIL... Na verdade acho pouco provável você conseguir isso

[Toad]

Isso porque o Forms não gera evento de pressionamento de tecla.
Ele não tem uma trigger "on_key_press" por exemplo.
Concordo com o dr_gori, acho difícil conseguir algo assim.

[davidmeloboy]

Ta certo já estou conseguindo dar o print, mas agora tem um porém, tem como eu jogar este printe para algum lugar automaticamente?
por exemplo: anexado em um email.
ou jogar para algum diretório?

[davidmeloboy]

Galera estou aguardando uma resposta! É muito importante!