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.
Saludos
Rafa Carmona
REQUEST MsgInfo()
Recuerda que tienes que hacer el trabajo por el linker.
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