O meu erro inexplicável

[JoséQuintas]

Com isso encontrar o ponto em comum se torna mais fácil.(ADO/classes ?)

Aí é que está.
Datas aproximadas:
O que uso hoje já usava em 2015.
Os problemas começaram em 2018.
Não houve mudança de ferramenta nenhuma.

[dbsh]

Tenho uma teoria.
Passei por isto a alguns anos atrás.
Se a função abre o arquivo no disco, e tiver um antivírus, o antivírus bloqueia o acesso ao arquivo, pode ser que não retorne um array, o erro causa o retorno deste valor, neste caso o melhor e o Norton e o Microsoft Security, eles ficam no meio da sua solicitação e o arquivo, faz o seu sistema aguardar sem dar erro, outros antivírus não são muito eficiente.
problemáticos, AVG, node32, etc,..
Pode ser contornado o problema, tirando seu "sistema.exe" do monitoramento do antivírus.

[Itamar M. Lins Jr.]

Olá!

Passei por isto a alguns anos atrás.

Bom, sendo assim.
Agora o José Quintas vai precisar do Windows de 2018, até a data que rodava sem problema.
Dai se for uma atualização do Windows ?
Mas o problema é que o erro acontece quando o próprio erro quer.

Saudações,
Itamar M. Lins Jr.

[dbsh]

Tirar seu executável do monitoramento.
Só funciona se não desativar o firewall.
Alguns antivírus que não são da Microsoft, vão respeitar as regras do firewall, outros usam as suas própria regras.

salvar como BAT e executar pela linha de comando, executar de preferencia na instalação do seu sistema, uma única vez, regras.bat

Código: Selecionar todos

@echo.
@echo -- RETAGUARDA
@echo.

:: exclui regra anterior
netsh advfirewall firewall delete rule name="Retaguarda"

if /I "%1"=="-D" goto :eof

:: SOGEC - RETAGUARDA
if exist c:\dbsh\sogec\sogec.exe     netsh advfirewall firewall add rule name="Retaguarda" dir=in  program="c:\dbsh\sogec\sogec.exe"     action=allow enable=yes
if exist c:\dbsh\sogec\sogec.exe     netsh advfirewall firewall add rule name="Retaguarda" dir=out program="c:\dbsh\sogec\sogec.exe"     action=allow enable=yes

if exist d:\dbsh\sogec\sogec.exe     netsh advfirewall firewall add rule name="Retaguarda" dir=in  program="d:\dbsh\sogec\sogec.exe"     action=allow enable=yes
if exist d:\dbsh\sogec\sogec.exe     netsh advfirewall firewall add rule name="Retaguarda" dir=out program="d:\dbsh\sogec\sogec.exe"     action=allow enable=yes

if exist "%cd%\sogec\sogec.exe"      netsh advfirewall firewall add rule name="Retaguarda" dir=in  program="%cd%\sogec\sogec.exe"        action=allow enable=yes
if exist "%cd%\sogec\sogec.exe"      netsh advfirewall firewall add rule name="Retaguarda" dir=out program="%cd%\sogec\sogec.exe"        action=allow enable=yes

pause

[JoséQuintas]

Chegou a acontecer uma vez na minha máquina.
Não lembro se foi este ano ou no ano passado.

Pensando bem...
Esqueci de uma coisa...
Meu aplicativo também roda no meu servidor.
Roda 24 horas enviando email de nfe.
E também acessando mysql na internet.
Só para se der problema com internet ou se atualização do windows precisar reiniciar.

Nele nunca deu esse problema

[ivanil]

Ola Quintas;

Essa seria a última versão, não é a de novembro que mencionou.

As anomalias aqui só ocorre com a versão atual do GIT (02/2023), a versão de 11/2022 esta redondinho.

Vou aguardar, como está muito recente acho que poucos se aventuraram a testar a nova versão, quem sabe posteriormente aparece mais alguém.


Grande abraço.

[JoséQuintas]

Não sei se é o meu problema, mas achei um problema.
No Harbour 3.2 um retorno estava causando travamento.
No Harbour 3.4 não causava travamento, mas vai saber se não causava vários loops infinitos.

[JoséQuintas]

A mensagem de WM_QUERYENDSESSION é enviada quando o usuário opta por encerrar a sessão ou quando um aplicativo chama uma das funções de desligamento do sistema. Se algum aplicativo retornar zero, a sessão não será encerrada. O sistema pára de enviar mensagens WM_QUERYENDSESSION assim que um aplicativo retorna zero.

Depois de processar essa mensagem, o sistema envia a mensagem WM_ENDSESSION com o parâmetro wParam definido para os resultados da mensagem WM_QUERYENDSESSION.

Mas porque estaria circulando a mensagem de encerrar?

[JoséQuintas]

STATIC WM_EVENT 17
Called from WVGTSTICON:HANDLEEVENT(667)
Called from WVGTSTICON:CONTROLWNDPROC(558)
Called from (b)WVGWINDOW_SETWINDOWPROCCALLBACK(401)
Called from WVG_SHOWWINDOW(0)
Called from WVGTSTICON:SHOW(566)
Called from WVGTSTICON:CREATE(566)
Called from TELAENTRADA(24)
Called from SISTEMA(55)
Called from (b)MAIN(82)

Tentar acompanhar de onde surgiu esse 17.

[JoséQuintas]

Então....
Agora que encontrei falha no uso de API Windows, deixar no 3.4 pra confirmar se está resolvido.
Pelo menos mais duas semanas.

Funcionando ou não, depois volto na migração pra 3.2.

E só depois disso mais testes com hwgui, pra uma coisa não atrapalhar a outra.

[JoséQuintas]

Um usuário acabou de me passar uma coisa, que identificou UM dos problemas dele:

janela com Timer pra encerrar, que chama sub-janela

Se a janela tem timer, ela vai encerrar, mesmo que tenha aberto uma sub-janela.
A janela até pode continuar na tela, mas suas rotinas vão ter sido encerradas.

GUI confunde muito isso.

Uma janela travada não significa que o programa travou.
Pode significar que o programa fechou, mas abandonou a janela aberta aguardando instruções.
Pode não ter mais variáveis, pode não ter mais rotinas, mas a janela está lá na tela.

Foi o caso dessa janela com timer.

Um básico simples de API Windows/GUI:
A rotina envia o comando pro Windows pra janela fechar e já se encerra.
Por algum motivo, o Windows não fecha a janela.
Pronto, a janela ficou zumbi, pro programa ela não existe mais, mas pro Windows ela existe, e pra quem tá olhando a tela também.
Dependendo do que outras janelas façam.... tá aí aparecerem erros estranhos.
Este não foi meu caso, mas foi o caso dele.

[JoséQuintas]

NENHUM PROBLEMA COM HARBOUR 3.4

ESTOU MUDANDO PRA HARBOUR 3.2 PORQUE QUERO

Apenas acho algumas modificações interessantes, mas que não tem no 3.4.

E acho que meus problemas inexplicáveis foram resolvidos consertando os erros em API Windows.

Já que estou com a mão na massa.... mudar logo de vez.

[JoséQuintas]

Troquei hoje aonde estava mais crítico.

Como dá pra ver aí:

4 erros dia 22/02
1 erro dia 23/02
2 erros dia 27/02
3 erros hoje, mas dois deles foi durante backup/troca de versão, só um é o inexplicável.

São várias máquinas na empresa, acho que windows 7 e 10, não sei se ainda tem algum XP.
Por um coincidência curiosa: nesse período sempre máquinas diferentes

Vamos ver o que acontece daqui pra frente.

[JoséQuintas]

Por enquanto nenhum erro.

Os erros em outros locais são ocorrências normais.
O aplicativo avisa ao usuário, mas mesmo assim me manda email.
É apenas pra ficar de olho no que acontece, acho que está na hora de eliminar alguns desses emails.

Rejeição: Duplicidade de NF-e
Rejeição: Número da parcela inválido ou não informado [nOcor:3]
Rejeição: IE do destinatário não informada
[MySQL][ODBC 5.3(a) Driver][mysqld-5.6.50-log]Can't connect to MySQL server on '192.168.1.6' (10060)

[JoséQuintas]

NADA DOS ERROS ATÉ AGORA !!!

EM NENHUM LUGAR !!!

Nem mesmo aonde não troquei programa kkkkk

Detalhe:
Como mencionei durante o post, em multithread era mais difícil acontecerem os erros, e tinha deixado multithread como default.
Aonde troquei NÃO USA multithread.
Então... normal nos outros lugares estar mais tranquilo.