驴Alguien ha probado el soporte multithread en Xharbour?. 驴Es robusto y estable?.
Estoy pensando en migrar un proyecto con sockets de FWH a sockets de xHarbour con multithreads pero quisiera estar seguro de no encontrar problemas antes de iniciarlo.
Agradezco opiniones.
Si no entiendo mal, el multithreading con Harbour y parte de FWH funciona, pero Harbour no tiene soporte para sockets, o me equivoco?.
Antonio,
驴Se puede con Harbour incluir objetos de FWH como TSocket o Ttimer dentro de un thread?
Salvador,
Por lo visto la limitaci贸n que impone Windows para el uso de threads es que los mensajes de Windows han de procesarse en el mismo thread en donde se haya creado la ventana. De no seguir esta regla se producir铆an GPFs propios de Windows.
En caso de ser asi, hay que prestar atenci贸n a no procesar ningun mensaje de Windows en un thread distinto al thread principal, suponiendo que en el thread principal se haya creado la ventana.
Tanto TSocket como TTimer hacen que Windows envie mensajes a la ventana, mensajes que hay que procesar en el mismo thread de la ventana. Es por esto que te comento lo anterior 
Nosotros aun no hemos probado este tipo de c贸digo, pero supuestamente si queremos procesar mensajes en un thread, entonces la ventana que reciba los mensajes ha de ser creada en ese mismo thread.
function Main()
Local 聽oWnd
聽
聽聽 聽PUBLIC oApp
聽 聽
聽 聽DEFINE WINDOW oWnd
聽 聽
聽 聽ACTIVATE WINDOW oWnd MAXIMIZED;
聽 聽ON INIT 聽( oApp := Tapp():New( oWnd ), 聽StartThread(@StartServer(), oApp), WaitForThreads() ) 聽;
return nil
procedure StartServer(oApp )
local oSocket
LOCAL pMutex 聽 := HB_MutexCreate()
oSocket = TSocket():New( 8083 )
oApp:oSocket := oSocket
oSocket:bAccept := { || StartThread( {|| Tserver():New( TSocket():Accept( oSocket:nSocket ), pMutex, oApp 聽)} ) }
oSocket:Listen()
LogFile( "thread.log",{"Inicia Server Thread: ", Str( GetSystemThreadID() )} ) // thread 2
returnSalvador,
Ese c贸digo te funciona bien ?
En caso de que no te funcionase, prueba a crear la ventana desde la misma funci贸n en donde creas el socket.
Si funciona perfecto, pero GetSystemThreadID() llamado desde el objeto siempre retorna 1 a pesar de que hay varios objetos creados al mismo tiempo, por lo que parece que el objeto no se ejecuta desde un nuevo thread cada vez.
METHOD End() 聽
self := nil
return nilSalvador,
No es necesario hacer nada. El recolector de basuras lo destruye automaticamente una vez ya no est茅 en uso, es decir, no est茅 guardado en una variable est谩tica, elemento de un array, etc.
La forma de llamar al recolector de basuras es usando hb_gcAll(). FWH lo llama automaticamente cuando se sale desde un di谩logo.
Function Main()
local oWnd
聽 聽 DEFINE WINDOW oWnd 聽
聽 聽 ACTIVATE WINDOW oWnd;
聽 聽 ON INIT Tobjeto():New(oWnd)
return nil
CLAS Tobjeto
METHOD New(oWnd)
METHOD End()
ENDCLASS
METHOD New(oWnd) CLASS Tobjeto
local oTimer 聽 聽:= Ttimer():New( 3000, { || ::End() }, oWnd)
oTimer:Activate()
return self
METHOD End() CLASS Tobjeto
hb_gcall()
return nilSalvador...
si se "autodestruye"... cuando cierras la ventana, envias un mensaje WM_CLOSE a la misma, este mensaje es capturado por FW para llamar al metodo destroy que a su vez "mata" todos los controles hijos que le pertenescan, window se encarga de enviar el mismo mensaje (WM_CLOSE) a sus hijos, en este caso elimina el timer que tienes activo sin necesidad que llames a "END" propio del timer
Gracias Daniel, queda claro.
Pero creando una CLASSDATA {} y a帽adiendo cada objeto creado, despu茅s pueden ser eliminados desde la misma clase liberando la memoria 驴no?
ACTIVATE WINDOW oWnd;
ON INIT Tobjeto():New(oWnd)