Hola a todos,
Estoy probando la ejecución de ficheros hrb desde mi aplicación con xHarbour, haciendo un simple MsgInfo('Hola') sin problema.
Construyo una ventana con un boton y dos gets sin problema, pero al pinchar en el botón, envia error. Al parecer, no esta soportando los eventos de los objetos.
#Include 'Fivewin.ch'
FUNCTION Test()
LOCAL sText := 'Implementando Scripts'
LOCAL oWnd2, oGet1, oGet2, cGet1, cGet2
Alert(sText)
//MsgInfo(sText)
DEFINE WINDOW oWnd2 FROM 0,0 TO 12,35 TITLE 'Test'
cGet1 := "Hola "
cGet2 := "Bye "
@ 10,10 BUTTON "Button 01" SIZE 100,20 PIXEL OF oWnd2 ACTION MsgInfo('Hola')
@ 40,10 GET oGet1 VAR cGet1 SIZE 100,20 PIXEL OF oWnd2
@ 70,10 GET oGet2 VAR cGet2 SIZE 100,20 PIXEL OF oWnd2
ACTIVATE WINDOW oWnd2
RETURN NIL
Este es el error:
Error description: Error BASE/1001 Undefined function: MSGINFO
Args:
[ 1] = C Hola
Stack Calls
===========
Called from: => MSGINFO(0)
Called from: PROGRAMS\Test_hrb.hrb => (b)TEST(12)
Alguna sugerencia?
Saludos,
Jairo
Error ejecutando script .hrb
Re: Error ejecutando script .hrb
Al ser un script, tienes que asegurarte que las funciones que vayan a usarse en el script, estén linkadas, para ello;
REQUEST MsgInfo()
Recuerda que tienes que hacer el trabajo por el linker.![Wink ;-)](./images/smilies/icon_wink.gif)
Saludos
Rafa Carmona
REQUEST MsgInfo()
Recuerda que tienes que hacer el trabajo por el linker.
![Wink ;-)](./images/smilies/icon_wink.gif)
Saludos
Rafa Carmona
Saludos
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
Re: Error ejecutando script .hrb
Estimado Rafa,
Gracias por tu sugerencia, probaré y te comento, pero el ejemplo también casca al pinchar el get.
molt amable
Saludos,
Jairo
Gracias por tu sugerencia, probaré y te comento, pero el ejemplo también casca al pinchar el get.
molt amable
Saludos,
Jairo
Re: Error ejecutando script .hrb
No ha funcionado al declarar REQUEST MsgInfo,
Comentar que, cualquier función no es reconocida desde el ACTION de un objeto.
@ 10,10 BUTTON "Button 01" SIZE 100,20 PIXEL OF oWnd2 ACTION (MsgInfo("Prueba"),oWnd2:End())
Esto es con xHarbour, alguién sabe si en Harbour hay funcionalidad completa?
Saludos,
Jairo
Comentar que, cualquier función no es reconocida desde el ACTION de un objeto.
@ 10,10 BUTTON "Button 01" SIZE 100,20 PIXEL OF oWnd2 ACTION (MsgInfo("Prueba"),oWnd2:End())
Esto es con xHarbour, alguién sabe si en Harbour hay funcionalidad completa?
Saludos,
Jairo