En una aplicaci贸n compilada con la versi贸n 0906, al producirse un error, no aparece la ventana de error, y el efecto es que la aplicacion se queda colgada, puedo cerrar la ventana principal, pero el proceso permanece activo en windows.
Me he vuelto loco buscando, hasta que se me ocurrio compilar con la version FWH 0905, y el problema era un fallo del programa que provocaba un error al no encontrar un alias abierto, en la 0905 el gestor de errores se comporta ok, salta el error e informa de la pila de llamadas.
Board index FiveWin para Harbour/xHarbour Gestion Errores FWH 0906
A nadie le ha pasado.
Teien que ver con las librerias que estoy linkando?
Teien que ver con las librerias que estoy linkando?
- %C_LIB_INSTALL%\c0w32.obj=1
C:\FW\0906\FWH\LIB\FiveH.lib=2
C:\FW\0906\FWH\lib\FiveHC.lib=3
%HB_LIB_INSTALL%\hbrtl.lib=4
%HB_LIB_INSTALL%\hbvm.lib=5
%HB_LIB_INSTALL%\gtgui.lib=6
%HB_LIB_INSTALL%\hblang.lib=7
%HB_LIB_INSTALL%\hbmacro.lib=8
%HB_LIB_INSTALL%\hbrdd.lib=9
%HB_LIB_INSTALL%\rddcdx.lib=10
%HB_LIB_INSTALL%\rddfpt.lib=11
%HB_LIB_INSTALL%\hbsix.lib=12
%HB_LIB_INSTALL%\rddntx.lib=13
%HB_LIB_INSTALL%\hbcommon.lib=14
%HB_LIB_INSTALL%\hbpp.lib=15
%HB_LIB_INSTALL%\hbcpage.lib=16
%HB_LIB_INSTALL%\hbwin.lib=17
%C_LIB_INSTALL%\CW32.LIB=18
%C_LIB_INSTALL%\IMPORT32.LIB=19
%C_LIB_INSTALL%\WS2_32.LIB=20
%C_LIB_INSTALL%\PSDK\odbc32.lib=21
%C_LIB_INSTALL%\PSDK\nddeapi.lib=22
%C_LIB_INSTALL%\PSDK\iphlpapi.lib=23
%C_LIB_INSTALL%\PSDK\msimg32.lib=24
%C_LIB_INSTALL%\PSDK\rassapi.lib=25
%C_LIB_INSTALL%\wininet.lib=26
%HB_LIB_INSTALL%\hbziparc.lib=27
%HB_LIB_INSTALL%\hbmzip.lib=28
%HB_LIB_INSTALL%\hbzlib.lib=29
%HB_LIB_INSTALL%\xhb.lib=30[/list:u]
Biel,
Si mal no recuerdo, se localiz贸 y se solucion贸 
Por favor prueba FWH\samples\TestErro.prg. Aqui salta bien el gestor de errores en ese ejemplo.
Antonio,
el ejemplo se comporta Ok, si fuerzo un error en mi programa, depende del lugar.
En este caso donde no funciona es si tengo un error en una funcion que es llamada desde el codeblock bRead de la clase tSocket.
Intentare hacer un ejemplo autocontenido.
Biel,
Algunos codeblocks de los sockets no permiten mostrar ni MsgInfo() o similares, ni di谩logos. Posiblemente sean procesos de Windows que no permiten que se interrumpan con interacci贸n del usuario.
En todo caso, podrias cambiar el gestor de errores antes de usarlos, y hacer que generen un fichero en disco sin mostrar ningun di谩logo.
Es complicado el hacer un ejemplo autocontenido.
Lo que comentas puede que sea el motivo, pero si compilo y linko con FWH0905, si que aparece la ventana de error.
Hay alg煤n cambio entre estas dos versiones que pueda afectar.
El problema est谩 en la clase xBrowse.
Este c贸digo compilado con FWH0905, visualiza el dialogo de error. Compilado con FWH0906, no visualiza el dialog de error, el aplicativo se cuelga, la ventana puede cerrarse, pero el proceso queda activo en el administrador de tareas.
Si quitamos el browse, y compilamos con FWH0906, visualiza el dialogo de error.
#include "FiveWin.ch"
#include "xBrowse.ch"
STATIC oSocket
FUNCTION Main()
LOCAL oWnd,oSocket,cIp,oBrw
LOCAL ADir:=Directory('*.*')
DEFINE WINDOW oWnd
oBrw:=txBrowse():New(oWnd)
WITH OBJECT oBrw
:nMarqueeStyle := MARQSTYLE_HIGHLROW
:nColDividerStyle := LINESTYLE_BLACK
:lColDividerComplete := .T.
:SetArray(Directory('*.*'))
*--
:aCols[1]:cHeader:='Titulo'
*
:CreateFromCode()
END
oWnd:oClient:=oBrw
ACTIVATE WINDOW oWnd ON INIT CrtSocket()
RETURN NIL
FUNCTION CrtSocket()
oSocket :=tSocket():New(23)
oSocket:bConnect:={|| Falla(),MsgInfo('Conecta')}
oSocket:Connect(GetHostByName('eadx.net'))
RETURN NIL
FUNCTION falla()
MsgInfo( "An error is going to be generated", "Press to continue" )
USE NotFound
RETURN NILEste c贸digo compilado con FWH0905, visualiza el dialogo de error. Compilado con FWH0906, no visualiza el dialog de error, el aplicativo se cuelga, la ventana puede cerrarse, pero el proceso queda activo en el administrador de tareas.
Si quitamos el browse, y compilamos con FWH0906, visualiza el dialogo de error.
#include "FiveWin.ch"
STATIC oSocket
FUNCTION Main()
LOCAL oWnd,oSocket,cIp,oBrw
LOCAL ADir:=Directory('*.*')
DEFINE WINDOW oWnd
ACTIVATE WINDOW oWnd ON INIT CrtSocket()
RETURN NIL
FUNCTION CrtSocket()
oSocket :=tSocket():New(23)
oSocket:bConnect:={|| Falla(),MsgInfo('Conecta')}
oSocket:Connect(GetHostByName('eadx.net'))
RETURN NIL
FUNCTION falla()
MsgInfo( "An error is going to be generated", "Press to continue" )
USE NotFound
RETURN NILBiel,
Puedes probar a enlazar en tu ejemplo el fichero xbrowse.prg de la version 9.05 ? gracias
Compilado con FW0906, y a帽adido al proyecto xBrowse 0905, funciona ok, aparece el dialogo de error.
Biel,
gracias por las pruebas
Ahora faltaria comparar xbrowse 9.05 y 9.06 y ver de donde viene el problema...
y sobre todo ver si con 9.08 el problema persiste o no
Antonio Linares wrote:Biel,
gracias por las pruebas
Ahora faltaria comparar xbrowse 9.05 y 9.06 y ver de donde viene el problema...
y sobre todo ver si con 9.08 el problema persiste o no
Bueno despues de un buen tiempo revisando la clase xBrowse y txBrwColumn, el problema est谩 en el metodo Value de la clase txBrwColumn.
No se si est谩 arreglado en la versi贸n actual, pero los cambios introducidos en este metodo en la ver 9.06, son los causantes de que no aparezca el dialog de error.