PC Toledo

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.

leandrolinauer escreveu: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.

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

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.

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

leandrolinauer escreveu:Quanto a HBSSL que não entendi pq não compilou.

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

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.

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.

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.

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.

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.

Itamar M. Lins Jr. escreveu: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.

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.

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

Itamar M. Lins Jr. escreveu: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.

PC Toledo

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10

Congelamento do programa no windows 10