Page 1 of 1
__Obj en Harbour (RESUELTO)
Posted: Sat Oct 06, 2018 6:51 pm
by Compuin
Saludos
Quien podria indicarme el equivalente de esta estructura en Harbour
Code: Select all
__objAddData( Self, cName )
oSend(Self,cName,xValue)
Funciona bien en XHarbour
Gracias de antemano
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 3:59 am
by ruben Dario
Hola.
A mi me funciona asi.
__objAddData( Self, a )
__objSendMsg( Self, "_" + a , acp )
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 1:12 pm
by Compuin
ruben Dario wrote:Hola.
A mi me funciona asi.
__objAddData( Self, a )
__objSendMsg( Self, "_" + a , acp )
Muchas gracias Ruben,
Como podria ajustarlo en esta funcion? Como me lo indicastes no funciono (trabajo con Harbour 3.2 y BCC7)
Code: Select all
METHOD Set( cName, xValue ) CLASS TPublic
IF oSend(Self,cName)=NIL
__objAddData( Self, cName )
ENDIF
oSend(Self,cName,xValue)
RETURN Self
Gracias nuevamente
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 3:56 pm
by ruben Dario
Si trabajo con la misma version.
Podrias ajustarlso asi. te deberia de funcionar.
Estas modificando la Clase TPublic.
Saludos , mira si te funciona que error de da, me comentas o me escribes.
Code: Select all
METHOD Set( cName, xValue ) CLASS TPublic
IF oSend(Self,cName)=NIL
__objAddData( Self, cName )
ENDIF
__objSendMs(Self,cName,xValue)
RETURN Self
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 3:58 pm
by Compuin
ruben Dario wrote:Si trabajo con la misma version.
Podrias ajustarlso asi. te deberia de funcionar.
Estas modificando la Clase TPublic.
Saludos , mira si te funciona que error de da, me comentas o me escribes.
Code: Select all
METHOD Set( cName, xValue ) CLASS TPublic
IF oSend(Self,cName)=NIL
__objAddData( Self, cName )
ENDIF
__objSendMs(Self,cName,xValue)
RETURN Self
Si, la estoy modificando....tu la usas?
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 4:08 pm
by Compuin
No funciona....no inicio el ejecutable
Alguna sugerencia?
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 4:21 pm
by ruben Dario
No.
Pero solamente estas ejecutardo la CLase Tpublic.
Colocalo asi.
__objSendMsg( Self, "_" + cName,xValue )
Me imagino que pasas el Nombre (cName) y el valor para inicializarlo (xValue)
Muestrame como haces el llamado a esta clase.
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 4:27 pm
by Compuin
ruben Dario wrote:No.
Pero solamente estas ejecutardo la CLase Tpublic.
Colocalo asi.
__objSendMsg( Self, "_" + cName,xValue )
Me imagino que pasas el Nombre (cName) y el valor para inicializarlo (xValue)
Muestrame como haces el llamado a esta clase.
Sigue sin funcionar...no declara un array como variable
Ya funciona, solo era cambiarlo asi
Code: Select all
__objSendMsg( Self, "_" + cName,uValue )
Muchas gracias
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 4:40 pm
by ruben Dario
Tocaria probar la clase que modificaste para ver si es el problema.
Si gustas mandamela yo la reprodusco para ver que pasa.
o muestra el trozo de codigo donde defines el llamado de la clase.
Yo trabajo con Harbur 3.2 y Bcc 7.2 y Fwh 18.2
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 5:01 pm
by ruben Dario
Bueno ya se soluciono, era que no habias probado con el cambio sugerido.
Re: __Obj en Harbour
Posted: Mon Oct 08, 2018 5:03 pm
by Compuin
ruben Dario wrote:Bueno ya se soluciono, era que no habias probado con el cambio sugerido.
Muchas gracias Ruben
Saludos