Funcionou perfeito agora 
Gracias Quique e Antonio,
Rossine.
Obrigado, Regards, Saludos
Rossine.
Harbour and Harbour++
Rossine.
Harbour and Harbour++
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour "swaping" de funciones
Page: 1 2 (20 posts)
Anotnio ¿que necesito hacer para que funcione esto? marca error en el ultimo msgInfo()
#INCLUDE "hbclass.CH"
function main
miTWindow()
funSwap( @time(), @miTime() )
msgInfo( time() )
funSwap( @tWindow(), @miTWindow() )
msgInfo( tWindow():prueba )
msgInfo( tMdiClient():prueba )
return nil
function miTime()
return "Hola"
class miTWindow from tWindow
data prueba
endClass
#pragma BEGINDUMP
HB_FUNC( FUNSWAP )
{
PHB_SYMB pFirst = ( PHB_SYMB ) hb_parptr( 1 );
PHB_SYMB pLast = ( PHB_SYMB ) hb_parptr( 2 );
if( pFirst && pLast )
{
pFirst->value.pFunPtr = pLast->value.pFunPtr;
}
}
#pragma ENDDUMPSaludos
Quique
Quique
Quique,
Por lo visto la clase derivada sigue usando el puntero antiguo, de alguna forma.
Sip, por eso la consulta ¿hay manera de solucionar ese problema?
Saludos
Quique
Quique
Quique,
Debe estar usandose el puntero antiguo, el cual debe estar almacenado en otro lugar tambien.
Habria que revisar el modulo de classes en C de Harbour/xHarbour y localizar en donde esté ese puntero guardado.
Page: 1 2 (20 posts)