FWH64 : ERROR SE SALE DEL SISTEMA

[Antonio Linares]

Carlos,

El error fué reportado por Enrico a Ron Pinkas y de momento no hay respuesta

Si seguimos sin respuesta tendremos que intentar depurarlo nosotros

[CARLOS ATUNCAR]

Buenas noches Antonio, he compilado mi proyecto con harbour y no sale el error del hb_gcall() lo he descomentado y esta trabajando bien pero a la hora de cerrar la aplicación sigue sin salir y si le doy en la X de la ventana se cierra la ventana pero sigue en ejecución en al administrador de tareas del windows con xharbour si salia, espero noticias.

este es mi proceso de salida

Code: Select all  Expand view  RUN

Function Salir( lClean )

If lClean
   If !MsgYesNo("Desea Salir del Sistema ?","Aviso del Sistema" )
      Return .f.
   Endif
EndIf

If lExitPgm
   oWnd:End()
EndIf

lExitPgm    := .T.
SET RESOURCES TO
SET 3DLOOK OFF
oServer:End()
CLEAR MEMORY
DbCloseAll()
Quit

Return( lExitPgm )
 

y este mi archivo de entorno de xmate

Code: Select all  Expand view  RUN

[Environment]
Description 1=Harbour + FWH 24.07.64Bits+Bcc77+xMate 1.15
Description 2=
Description 3=
PRG Compiler ver=Harbour 3.2.0(r2407221137)
C compiler ver=Bcc77
Subsystem=
Author=Ing. Carlos Atuncar
Last update=09/18/2024

[Advanced]
Command types=1,1,1,1,1,1,1,1,1

[Harbour]
HB_INSTALL=E:\Tools64\harbour
HB_COMMAND=%HB_BIN_INSTALL%\harbour.Exe %PRG% /m /n /es2 /i%HB_INC_INSTALL% /d__64__ /iE:\Tools64\Fwh2407\include;%HB_INSTALL%\include /p
Option prefix=/

[C]
C_INSTALL=E:\Tools64\Bcc7.7
C_COMP_COMMAND=%C_INSTALL%\bin\bcc64.Exe -c -I%HB_INSTALL%\include -I%C_INC_INSTALL% -I%C_INC_INSTALL%\windows\sdk -I%C_INSTALL%\include\windows\crtl -o%OBJ% %C%
C_LIB_COMMAND=%C_BIN_INSTALL%\TLib.Exe %LIB% /P512 @%RSP% , %LST%
C_LINK_COMMAND=%C_BIN_INSTALL%\iLink32.Exe -Gn -aa -Tpe -s -v @%LNK%
C_RC_COMMAND=%C_BIN_INSTALL%\Brc32.Exe -r -D__64__ -I%C_BIN_INSTALL%\include -I%C_BIN_INSTALL%\include\windows\sdk %RES%  %RC%
C_DLL_COMMAND=%C_BIN_INSTALL%\iLink32.Exe -Gn -aa -Tpd -M -L%C_LIB_INSTALL% @%LNK%
Option prefix=-

[User]
POSTEXE_COMMAND=
POSTLIB_COMMAND=
POSTDLL_COMMAND=

[Files]
%C_LIB_INSTALL%\c0w64.o=1
E:\Tools64\Fwh2407\lib\Five64.a=2
E:\Tools64\Fwh2407\lib\FiveC64.a=3
E:\Tools64\Fwh2407\lib\libmariadb64.a=4
%HB_LIB_INSTALL%\hbwin.a=5
%HB_LIB_INSTALL%\gtgui.a=6
%HB_LIB_INSTALL%\hbrtl.a=7
%HB_LIB_INSTALL%\hbvm.a=8
%HB_LIB_INSTALL%\hblang.a=9
%HB_LIB_INSTALL%\hbmacro.a=10
%HB_LIB_INSTALL%\hbrdd.a=11
%HB_LIB_INSTALL%\rddntx.a=12
%HB_LIB_INSTALL%\rddcdx.a=13
%HB_LIB_INSTALL%\rddfpt.a=14
%HB_LIB_INSTALL%\hbsix.a=15
%HB_LIB_INSTALL%\hbdebug.a=16
%HB_LIB_INSTALL%\hbcommon.a=17
%HB_LIB_INSTALL%\hbpp.a=18
%HB_LIB_INSTALL%\hbcpage.a=19
%HB_LIB_INSTALL%\hbcplr.a=20
%HB_LIB_INSTALL%\hbct.a=21
%HB_LIB_INSTALL%\hbpcre.a=22
%HB_LIB_INSTALL%\xhb.a=23
%HB_LIB_INSTALL%\hbziparc.a=24
%HB_LIB_INSTALL%\hbmzip.a=25
%HB_LIB_INSTALL%\hbzlib.a=26
%HB_LIB_INSTALL%\minizip.a=27
%HB_LIB_INSTALL%\png.a=28
%HB_LIB_INSTALL%\hbusrrdd.a=29
%HB_LIB_INSTALL%\hbtip.a=30
%HB_LIB_INSTALL%\hbzebra.a=31
E:\Tools64\Fwh2407\lib\xmath.a=32
%C_LIB_INSTALL%\cw64.a=33
%C_LIB_INSTALL%\psdk\kernel32.a=34
%C_LIB_INSTALL%\psdk\user32.a=35
%C_LIB_INSTALL%\PSDK\iphlpapi.a=36
%C_LIB_INSTALL%\import64.a=37

[DLL Files]
%C_LIB_INSTALL%\import64.a=1
%HB_LIB_INSTALL%\harbour.a=2
%C_LIB_INSTALL%\c0w64.o=3
%C_LIB_INSTALL%\cw64.a=4
 

[CARLOS ATUNCAR]

Antonio lo solucione con PostQuitMessage(0), ahora esta asi mi proceso

Code: Select all  Expand view  RUN

Function Salir( lClean )

If lClean
   If !MsgYesNo("Desea Salir del Sistema ?","Aviso del Sistema" )
      Return .f.
   Endif
EndIf

If lExitPgm
   oWnd:End()
EndIf

lExitPgm    := .T.
SET RESOURCES TO
SET 3DLOOK OFF
oServer:End()
CLEAR MEMORY
DbCloseAll()
hb_gcall()
PostQuitMessage(0)

Return( lExitPgm )

No existe problemas de esta forma ?

[Antonio Linares]

Si así termina está muy bien