KeyBoard() ERROR

[triumvirato]

Code: Select all  Expand view  RUN

KEYBOARD Chr( 13 )

Al utilizar este comando (implementa en buffer el carácter indicado), obtengo el error al compilar:

Error: Unresolved external '_HB_FUN_KEYBOARD' referenced from C:\FIVEWIN\GESCO\VENTAS.OBJ

Utilizo FWH 805 y xHarbour, qué me falta por enlazar?
xHarbour no tiene implementado ese comando?

Gracias!
Saludos!

[FranciscoA]

Code: Select all  Expand view  RUN

KeyBoard( Chr( 13 ) )

Al utilizar esa función (implemente en buffer el carácter indicado), obtengo el error al compilar:

Error: Unresolved external '_HB_FUN_KEYBOARD' referenced from C:\FIVEWIN\GESCO\VENTAS.OBJ

Utilizo FWH 805 y xHarbour, qué me falta por enlazar?

Gracias!
Saludos!

Intentalo asi, a ver si te resuelve:
#include "Inkey.ch"

KEYBOARD Chr(13)

[triumvirato]

Intentalo asi, a ver si te resuelve:
#include "Inkey.ch"

KEYBOARD Chr(13)

Gracias Francisco, lo había probado ya y con idéntico resultado... parece que me falte algo por enlazar... y no doy con ello o xHarbour no lo tiene ya...

Saludos!

[triumvirato]

Bueno, pues buscando y buscando y rebuscando, he encontrado estos dos hilos:
http://67.222.39.232/forums/viewtopic.p ... oard#49283
http://67.222.39.232/forums/viewtopic.p ... oard#63059

Donde se utiliza __Keyboard() como función en lugar de comando, lo he probado y perfecto.

Saludos!

[Antonio Linares]

David,

Bien!

No habia leido este mensaje y me alegro que hayas encontrado la solución

[Armando]

triumvirato:

Desde luego que la solución que encontraste te va a funcionar, perooooo
(nunca falta un pero), las teclas que estas emulando estan dirigidas al diálogo o ventana activo.

Lo recomendable es que indiques el diálogo o ventana a la que deseas enviar las teclas para evitarte dolores de cabeza, te muestro un ejemplo:

Code: Select all  Expand view  RUN

Teclado(oDlg,13,1)


En este pedazo de código estoy llamando a la función Teclado() enviando el diálogo al que quiero dirigir las teclas, el código de la tecla a "oprimir" en este caso es RETURN y el número de repeticiones que deseo.

Y esta es la función Teclado()

Code: Select all  Expand view  RUN

FUNCTION Teclado(oDlg,nKey,nVeces)
   LOCAL nVez
   DEFAULT nVeces := 1
   oDlg:SETFOCUS()
   FOR nVez := 1 TO nVeces
      oDlg:POSTMSG(WM_KEYDOWN,nKey,0)
   NEXT
RETURN (NIL)


Mira que primero hago activo el Diálogo al que envío la tecla, despues con un FOR - NEXT emulo el teclado nVeces y con POSTMSG se envia la tecla.

Saludos

[triumvirato]

Armando,

Muchas gracias por tu advertencia y recomendación, las hago mías!!!!

Y con tu permiso clono tu código.

Gracias y Saludos!

[jnavas]

Colega,
Agregé éste metodo en la clase TCONTROL

// JN
METHOD KeyBoard( nKey ) INLINE (::SetFocus() , ::PostMsg( WM_KEYDOWN, nKey, 0 ))

y lo aplico asi

oGet:KeyBoard(13)

Code: Select all  Expand view  RUN

KEYBOARD Chr( 13 )

Al utilizar este comando (implementa en buffer el carácter indicado), obtengo el error al compilar:

Error: Unresolved external '_HB_FUN_KEYBOARD' referenced from C:\FIVEWIN\GESCO\VENTAS.OBJ

Utilizo FWH 805 y xHarbour, qué me falta por enlazar?
xHarbour no tiene implementado ese comando?

Gracias!
Saludos!

[triumvirato]

Juan,

Muchas gracias, muy buena implementación, aunque de momento las clases a mí me quedan muy lejos!!

Gracias y Saludos!

[jnavas]

Colega

También puedes implementarla así

KEYBOARD(13,oGet)

l
/ JN

function KeyBoard( nKey , oControl)

oControl:SetFocus()
oControl:PostMsg( WM_KEYDOWN, nKey, 0 )

return nil

Juan,

Muchas gracias, muy buena implementación, aunque de momento las clases a mí me quedan muy lejos!!

Gracias y Saludos!

[triumvirato]

Juan,

Perfecto, esto es más o menos lo que sugirió el compañero Armando y por lo que he optado, es más sencillo, sin necesidad de modificar la clase, aunque evidentemente sea más "profesional" ese sistema, el de agregar el método a la clase TControl.

Muchas gracias!!!!!