Congelamento do programa no windows 10

[leandrolinauer]

Boa tarde a todos.
Gerei o HARBOUR 3.4 novo e depois de algumas alterações internas cheguei a uma versão pronta para uso.
Fiz testes e não congelou mais o sistema, resolvido o problema, pelo menos por enquanto.

Não coloquei em produção, vou testar por mais um pouquinho e tbem tenho que resolver uns erros:
"
auto-detected C compiler 'mingw64' skipped because required harbour core libraries are not found
"
Fala que falta bibliotecas, não fala quais, como descobrir?
Também necessito da HBSSL e ela não foi gerada junto com o harbour, outras foram esta não.

Se alguem souber, no aguardo.

[JoséQuintas]

auto-detected C compiler 'mingw64' skipped because required harbour core libraries are not found

Parecem faltar as LIBs 64 bits.

Vamos dividir em partes:

- O mingw
pode baixar 32, 64 bits, ou os dois juntos, o tamanho é quase igual, desde que o "fornecedor" seja bom.

- O harbour/hbmk2 (os EXEs do Harbour)
tanto faz se são 32 ou 64 bits, suponho que 64 bits seja mais interessante

- As LIBs do Harbour
Quando gera 32 bits, são geradas as libs na pasta mingw
Quando gera 64 bits, são geradas as libs na pasta mingw64

- O aplicativo
Se compilar pra 32 bits, vai precisar das libs na pasta mingw
Se compilar pra 64 bits, vai precisar das libs na pasta mingw64

Então, se baixou o mingw 32/64 bits juntos (x86_x64)
gera harbour pra 32 bits ( SET HB_COMPILER=mingw)
gera harbour pra 64 bits ( SET HB_COMPILER=mingw64)
assim, vai ter os EXEs do Harbour em 64 bits, e vai ter as pastas mingw e mingw64 com as LIBs em cada formato
A diferença na geração é criar a variável de ambiente HB_COMPILER, contendo mingw ou mingw64
Na compilação, pode usar a variável de ambiente, ou o -comp=mingw64
Se não definir nada, o default é o sistema operacional, provavelmente 64 bits.

Baseado nisso, e na mensagem de erro, provavelmente gerou 32 bits.
E por não indicar 32 bits na compilação do aplicativo, o Harbour tentou usar 64 bits.

[JoséQuintas]

Acréscimo:

Aqui deixo no windows como default HB_COMPILER=mingw

Só na geração do Harbour, pra 64 bits, altero pra mingw64, e retorno depois pra mingw.

Meu default é só 32 bits, SET HB_COMPILER=mingw

Se eu precisar 64 bits, apenas acrescento na compilação -comp=mingw64
Se um dia eu alterar meu default, deixo HB_COMPILER=mingw64
Enquanto isso não acontece, faço do jeito que mostrei.

Mas, em muitas vezes, deixo só mingw, nem gero 64 bits.
E fica só o HB_COMPILER=mingw o tempo todo

[JoséQuintas]

Acrescentando:

É uma pena que não integrem de vez tudo do Harbour 3.4 no 3.2, e volte a ser uma única versão de Harbour.

No Harbour 3.2, a GTWVW é apenas um acrésimo sem suporte, fica em EXTRAS nos fontes.
No Harbour 3.4, que o Viktor deu uma geral, a GTWVW fica em CONTRIBS, portanto, faz parte do Harbour.

[leandrolinauer]

Boa tarde Quintas.
Blz, vou ter que analisar os fontes que baixei, porque não entendi pq baixei mingw64 e gerou só 32 bits na pasta vou analisar, pq ele gera o executavel e funcionando entao creio que não da problema ficar desta forma por enquanto.

Quanto a HBSSL que não entendi pq não compilou.

Valeu por enquanto

[JoséQuintas]

Quanto a HBSSL que não entendi pq não compilou.

hbssl é opcional/adicional.
Não bastam só os fontes do Harbour.

[jelias]

Olá amigos,

resposta do Itamar - São duas pessoas com o mesmo problema. Porém o Leandro usa muita coisa da WVW e o Júlio que não usa nada, apenas a tela inicial. Então o problema do Júlio está resolvido.

Irei fazer um teste retirando os comandos da WVW abaixo:

Código: Selecionar todos

wvw_noclose()
wvw_seticon(,"people.ico" )
wvw_setmaincoord(.T.)
WVw_SetCodePage(,255)
SETMODE(25,80)
nWidth:=wvw_GetScreenWidth()
do case
   case nWidth >= 1024
         WVw_SetFont(,'courier New', 28, 14,,2)
   case nWidth >= 800
          WVw_SetFont(,'Courier New', 20, 11,,2)
   otherwise
          WVw_SetFont(,'Courier New', 15,  7,,2)
endc
wvw_maximize(0)

Alguém saberia como substituir estes comando para a biblioteca WVG? No modo console não consigo definir uma fonte padrão e um tamanho como consigo usando as funções acima.

Saudações,

Júlio.

[Itamar M. Lins Jr.]

Olá!

Código: Selecionar todos

#include "hbgtinfo.ch"
#include "inkey.ch"
#include "setcurs.ch"
REQUEST DBFCDX, DBFFPT, DBFDBT
REQUEST HB_GT_WVT_DEFAULT
Function Main
HB_CDPSELECT([PTISO])
hb_langselect("PT")
HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" ) 
HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
HB_GtInfo( HB_GTI_MAXIMIZED, .T. )

hb_gtInfo( HB_GTI_ICONFILE, "imagens\MeuIcone.ico" )
hb_gtInfo( HB_GTI_WINTITLE, "XYZ - SISTEMA XYZ ETC e TAL's" )

Sendo 80 colunas x 24 linhas
PS Eu usava MaxRow(), MaxCol().

Tem uma outra que ajusta a fonte conforme a resolução 800x600, 1024...
Teste assim, que é mínimo o ajuste.

Saudações,
Itamar M. Lins Jr.

[jelias]

Olá Itamar,

Grato pela sua colaboração.
Fiz a cópia do código conforme você postou, entretanto me deparei com este erro.

Código: Selecionar todos

REQUEST HB_GT_WVT_DEFAULT
HB_CDPSELECT([PTISO])
hb_langselect("PT")
HB_GtInfo( HB_GTI_FONTNAME, "Lucida Console" )
HB_GtInfo( HB_GTI_ISFULLSCREEN, .F. )
HB_GtInfo( HB_GTI_MAXIMIZED, .T. )
	 
hb_gtInfo( HB_GTI_ICONFILE, "imagens\MeuIcone.ico" )
hb_gtInfo( HB_GTI_WINTITLE, "XYZ - SISTEMA XYZ ETC e TAL's" )

Error BASE/1003 Variável não existe: HB_GTI_ISFULLSCREEN

Comentei a linha mais o problema aconteceu na próxima linha.

Saudações,

Júlio.

[Itamar M. Lins Jr.]

Olá!
Esqueci que é xHb... então veja lá no hbgtinfo.ch seu.

Código: Selecionar todos

#define HB_GTI_ISSCREENPOS      13  /* Is full screen cursor positioning supported by GT driver? */
#define HB_GTI_FULLSCREEN       HB_GTI_ISSCREENPOS /* Compatibility. Do not use it. */

Olha lá para ajustar. Vi no xHarbour do SVN. Não sei se na sua versão do xHB tem.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!

Comentei a linha mais o problema aconteceu na próxima linha.

Pois é! No xHarbour do SVN tem. xHarbour ver 1.2.3

#define HB_GTI_MAXIMIZED 66 /* Get/Set Window's Maximized status (supported by: GTWVT) */

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Esqueci que é xHb... então veja lá no hbgtinfo.ch seu.

É Harbour 3.4.

A função hb_gtInfo() faz parte do Harbour, e usa os #defines de hbgtinfo.ch

No início do fonte:

Código: Selecionar todos

#include "hbgtinfo.ch"

Pode ver que no fonte do Itamar tem isso, mas parece que no seu não.

[Itamar M. Lins Jr.]

Olá!

É Harbour 3.4.

Esse é o Júlio... kkkk Ele usa o xHarbour 1.2.1 está desatualizado e relação ao xHarbour do SVN.
Quintas, veja a assinatura do Júlio.

Saudações,
Itamar M. Lins Jr.

[jelias]

Caros amigos,

Fiz da seguinte forma e consegui compilar. Agora irei fazer o teste com o windows 10 e espero ficar livre do "congelamento".

Código: Selecionar todos

//------------------------------------------------------------------------------------------------------------------
// Configura‡Æo da LIB nas configura‡äes de fonte, linha e coluna. 
REQUEST HB_GT_WVT_DEFAULT
HB_CDPSELECT([PTISO])
hb_langselect("PT")
HB_GtInfo( HB_GTI_FONTNAME, "courier New" )
HB_GtInfo( HB_GTI_FULLSCREEN, .T. )
HB_GtInfo( HB_GTI_FONTSIZE , 28 )
HB_GtInfo( HB_GTI_FONTWIDTH , 14 )	 
hb_gtInfo( HB_GTI_ICONFILE, "people.ico" )
hb_gtInfo( HB_GTI_WINTITLE, "ERP Grupo ........" )

Saudações,

Júlio

[JoséQuintas]

Esse é o Júlio... kkkk Ele usa o xHarbour 1.2.1 está desatualizado e relação ao xHarbour do SVN.
Quintas, veja a assinatura do Júlio.

Até eu me confundi agora, pelo seguinte:

Ele testou com Harbour 3.4, e com Harbour 3.4 a GTWVW NÃO congela.

Mas agora está trocando a GT, colocando no fonte WVT, já não sei se Harbour ou XHarbour.

Sobre o tamanho do fonte:
Nem me preocupo com isso.
Na saída salvo do jeito que o usuário deixou, e na entrada leio a configuração.
O usuário ajusta do jeito que quiser, e sempre volta do jeito que ele deixou.

Deixei de usar tela cheia desde os tempos do Clipper e Windows 98 e messenger.
Mas parece que pra alguns aplicativos relacionados ao governo, tela cheia é obrigatória.