PC Toledo

o que atrapalha é errorsys de lib gráfica.


Application Internal Error - d:\github\dlgauto\source\test.exe
Terminated at: 2025-08-25 20:10:43
Unrecoverable error 9003: Too many recursive error handler calls
Called from __ERRRT_SBASE(0)
Called from _HMGAPPCLASS:ERROR(0) in ../../../tobject.prg
Called ...

... PostQuitMessage(0)

RETURN Nil

FUNCTION HB_GTSYS

REQUEST HB_GT_WVG_DEFAULT

RETURN Nil


O HBP, incluindo o DLGAUTO


testmix.prg
errorsys.prg
-DDLGAUTO_AS_LIB
-I..\source

..\source\frm*.prg
..\source\test.prg
..\source\test_loadsetup.prg
..\source\test_setup.prg
..\source\test_dbf ...

Mais outra, agora na errorsys.
E só estou mexendo em samples pra incluir no demoall kkkkk


Error BASE/1070 Argument error: ==
Called from (b)HWG_ERRSYS(20)
Called from (b)HWG_FINDPARENT(542)
Called from ASCAN(0)
Called from HWG_FINDPARENT(542)
Called from HWG_FINDSELF(561)
Called from HWG ...

... é se preparar.
Multithread é igual ter vários EXEs, do mesmo jeito, variáveis, arquivos abertos, etc. não ficam visíveis.
Precisa confirmar se errorsys, gt, etc. vão estar disponíveis em todas as thread, geralmente não.
No caso de erros, pode acontecer de ter programa sem tela ou tela sem programa ...

... tarefas.

Outra coisa é o contrário.
O programa não encerrar direito, e não ter tela, aí não dá pra usar tecla.

cada caso é um caso.

Também a errorsys, que pode não entrar na segunda thread, e pode entrar a errorsys normal do harbour, e não a da hwgui, que contém pra fechar tudo (não apenas a ...

... 0.0/../../../../i686-w64-mingw32/bin/ld.exe: d:/github/fivewin/lib\fivehg.lib(errsysw.o):errsysw.c:(.text+0x3a): multiple definition of `HB_FUN_ERRORSYS'; c:/temp/errorsys.o:errorsys.c:(.text+0x40): first defined here
d:/harbour/comp/mingw32/bin/../lib/gcc/i686-w64-mingw32/15.0.0/../../../../i686 ...

Uso isto


BEGIN SEQUENCE WITH __BreakBlock()
:Execute( "SELECT @@global.max_allowed_packet AS QTD" )
IF :Number( "QTD" ) < 16000000
Errorsys_WriteErrorLog( ;
"Max Allowed Packet=" + NumberSQL( :Number( "QTD" ) ) + hb_Eol() + ;
"Alterar seção [mysqld] em my.ini no servidor" + hb_Eol() + ;
"max ...

... uso normal, fazemos rotinas pra reduzir fonte.

O que acontece ?

É uma chamada multithread fora da rotina normal de chamadas. Preciso trocar a errorsys dessa thread.

E a dialog fivewin ?
Ela tem lá o VALID ::lCanClose, não vai deixar fechar, MESMO SE DER ERRO
Então acrescento na rotina de erros ...

... Outra coisa é janela ZUMBI: a janela não foi destruída mas ficou sem programa, também tem que fechar no gerenciador de tarefas.
Aqui alterei a errorsys com uma chamada a uma função do fivewin: PostQuitMessage(0).
Isso fecha a thread, e destrói tudo que ela criou, não existe mais janela ZUMBI ...

... hwgui atualizada
- multithread
- DBF e ADO/MySQL
- sefazclass
- pdfclass
- rmchartclass
- wvgtest (adicionais gtwvg)
- debug do harbour
- errorsys do harbour modificada pra gravar erro em disco.
- Fivewin anulando algumas coisas fora de uso, só pra reduzir tamanho do EXE

hwgui apenas ...

... melhor no fonte.


/*
BUILD - PRE-COMPILACAO
José Quintas

2024.11.03 - win_RegRead()/win_RegWrite() parcial
*/

ANNOUNCE HB_GTSYS
REQUEST errorsys

#include "directry.ch"

STATIC lErrorMsg := .F.

FUNCTION Main( ... )

LOCAL aParamList, aSignList := {}, aCmdList := {}

SetMode( 33, 100 ...

... bat é só aquilo mesmo.
O build.exe vai alterar o conteúdo após a chamada.


/*
BUILD - PRE-COMPILACAO
José Quintas
*/

ANNOUNCE HB_GTSYS
REQUEST errorsys

#include "directry.ch"

STATIC stErro := .F.

FUNCTION Main( ... )

LOCAL aParamList, aSignList := {}, cDirMask, aCmdList := {}

SetMode( 33 ...

... Extended





E aí ? que erro é esse.

Quer ver de novo ?





Não sabe que erro é esse ? nem eu.

Mesmo assim descobri depois:

É a famosa errorsys de LIB GUI, que quer mostrar mensagem enfeitada, mas quando o enfeite não funciona, fica sem mensagem.

Isso não acontece no meu aplicativo ...

... 1,12,2}},{"JPPEDIDOCLASS",{1}}} )
(2) = Tipo: C Valor: ""


Quem usa GUI já viu isso.
Pelo menos quem usa GUI orientada a objeto.
E que tem uma errorsys que mostra conteúdo das variáveis aonde aconteceu o erro.

É só a variável da minha classe, com objetos GTWVG, ADO, etc.
Coisa que não se vê em ...

... s -static


E o projeto completo, ficou assim:


*.prg
libjpa/prg/*.prg
#d:\github\fivewin\source\winapi\instance.c
#PostQuitMessage(0) on errorsys
jpa.rc
topnfe/*.prg

-ojpa

#force harbour debug
-lforcedebug

## force libjpa
-Llibjpa
libjpa.hbc
-llibjpa

-DDLGAUTO_AS_LIB
-DDLGAUTO_AS_SQL
-Id ...