topic-12928

Posts: 199

Joined: Tue Apr 22, 2008 09:54 AM

KeyBoard() ERROR
Posted: Mon Sep 29, 2008 09:43 AM

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

Posts: 2170

Joined: Fri Jul 18, 2008 01:24 AM

Re: KeyBoard() ERROR
Posted: Mon Sep 29, 2008 01:41 PM

triumvirato wrote:
Code: Select all Collapse
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)

Francisco J. Alegría P.

Chinandega, Nicaragua.

Fwxh-MySql-TMySql

triumvirato

Posts: 199

Joined: Tue Apr 22, 2008 09:54 AM

Re: KeyBoard() ERROR
Posted: Mon Sep 29, 2008 02:05 PM

FranciscoA wrote:
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

Posts: 199

Joined: Tue Apr 22, 2008 09:54 AM

KeyBoard() ERROR
Posted: Tue Sep 30, 2008 03:36 PM

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

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

KeyBoard() ERROR
Posted: Tue Sep 30, 2008 04:50 PM

David,

Bien! :-)

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

KeyBoard() ERROR
Posted: Tue Sep 30, 2008 05:21 PM

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 Collapse

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 Collapse

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

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

triumvirato

Posts: 199

Joined: Tue Apr 22, 2008 09:54 AM

KeyBoard() ERROR
Posted: Wed Oct 01, 2008 07:55 AM

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

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

Re: KeyBoard() ERROR
Posted: Wed Oct 01, 2008 02:34 PM

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)

triumvirato wrote:
Code: Select all Collapse
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!

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

triumvirato

Posts: 199

Joined: Tue Apr 22, 2008 09:54 AM

KeyBoard() ERROR
Posted: Wed Oct 01, 2008 03:51 PM

Juan,

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

Gracias y Saludos!

jnavas

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

KeyBoard() ERROR
Posted: Wed Oct 01, 2008 04:32 PM

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

triumvirato wrote:Juan,

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

Gracias y Saludos!

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

triumvirato

Posts: 199

Joined: Tue Apr 22, 2008 09:54 AM

KeyBoard() ERROR
Posted: Wed Oct 01, 2008 04:49 PM

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!!!!!

FiveTech Support Forums

Continue the discussion