Clipper On Line • Ver Tópico - Congelamento do programa no windows 10

Congelamento do programa no windows 10

Projeto Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

 

Congelamento do programa no windows 10

Mensagempor leandrolinauer » 16 Mai 2022 12:30

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.
Harbour 3.2 + GtWVW + QT + SQLite3 + DBF + SQL (Firebird)
leandrolinauer
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 330
Data de registro: 16 Out 2006 10:59
Cidade/Estado: Paranaíba-MS
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Congelamento do programa no windows 10

Mensagempor JoséQuintas » 16 Mai 2022 13:06

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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 18915
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 14 vezes
Mens.Curtidas: 1013 vezes

Congelamento do programa no windows 10

Mensagempor JoséQuintas » 16 Mai 2022 13:12

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é M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 18915
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 14 vezes
Mens.Curtidas: 1013 vezes

Congelamento do programa no windows 10

Mensagempor JoséQuintas » 16 Mai 2022 13:16

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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 18915
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 14 vezes
Mens.Curtidas: 1013 vezes

Congelamento do programa no windows 10

Mensagempor leandrolinauer » 16 Mai 2022 16:51

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
Harbour 3.2 + GtWVW + QT + SQLite3 + DBF + SQL (Firebird)
leandrolinauer
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 330
Data de registro: 16 Out 2006 10:59
Cidade/Estado: Paranaíba-MS
Curtiu: 0 vez
Mens.Curtidas: 6 vezes

Congelamento do programa no windows 10

Mensagempor JoséQuintas » 17 Mai 2022 09:20

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


hbssl é opcional/adicional.
Não bastam só os fontes do Harbour.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 18915
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 14 vezes
Mens.Curtidas: 1013 vezes

Congelamento do programa no windows 10

Mensagempor jelias » 18 Mai 2022 14:14

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:

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.
xHarbour 1.2.1 (simplex) + BCC 5.8.2 + Hwgui + SQLRDD
Clipper 5.2e / Blinker 7
Júlio Cézar Elias
e-mail: jelias@tpnet.psi.br
jelias
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 249
Data de registro: 27 Ago 2008 11:32
Cidade/Estado: Minas Gerais
Curtiu: 0 vez
Mens.Curtidas: 16 vezes

Congelamento do programa no windows 10

Mensagempor Itamar M. Lins Jr. » 18 Mai 2022 14:39

Olá!
#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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6007
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 241 vezes
Mens.Curtidas: 358 vezes

Congelamento do programa no windows 10

Mensagempor jelias » 18 Mai 2022 15:30

Olá Itamar,

Grato pela sua colaboração.
Fiz a cópia do código conforme você postou, entretanto me deparei com este erro.
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.
xHarbour 1.2.1 (simplex) + BCC 5.8.2 + Hwgui + SQLRDD
Clipper 5.2e / Blinker 7
Júlio Cézar Elias
e-mail: jelias@tpnet.psi.br
jelias
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 249
Data de registro: 27 Ago 2008 11:32
Cidade/Estado: Minas Gerais
Curtiu: 0 vez
Mens.Curtidas: 16 vezes

Congelamento do programa no windows 10

Mensagempor Itamar M. Lins Jr. » 18 Mai 2022 15:44

Olá!
Esqueci que é xHb... então veja lá no hbgtinfo.ch seu.
#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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6007
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 241 vezes
Mens.Curtidas: 358 vezes

Congelamento do programa no windows 10

Mensagempor Itamar M. Lins Jr. » 18 Mai 2022 15:50

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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6007
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 241 vezes
Mens.Curtidas: 358 vezes

Congelamento do programa no windows 10

Mensagempor JoséQuintas » 18 Mai 2022 15:52

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:

#include "hbgtinfo.ch"


Pode ver que no fonte do Itamar tem isso, mas parece que no seu não.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 18915
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 14 vezes
Mens.Curtidas: 1013 vezes

Congelamento do programa no windows 10

Mensagempor Itamar M. Lins Jr. » 18 Mai 2022 15:55

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.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6007
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 241 vezes
Mens.Curtidas: 358 vezes

Congelamento do programa no windows 10

Mensagempor jelias » 18 Mai 2022 17:02

Caros amigos,

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

//------------------------------------------------------------------------------------------------------------------
// 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
xHarbour 1.2.1 (simplex) + BCC 5.8.2 + Hwgui + SQLRDD
Clipper 5.2e / Blinker 7
Júlio Cézar Elias
e-mail: jelias@tpnet.psi.br
jelias
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 249
Data de registro: 27 Ago 2008 11:32
Cidade/Estado: Minas Gerais
Curtiu: 0 vez
Mens.Curtidas: 16 vezes

Congelamento do programa no windows 10

Mensagempor JoséQuintas » 18 Mai 2022 17:31

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.
José M. C. Quintas
Harbour 3.4, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, hbnetio, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
Avatar de usuário

JoséQuintas
Colaborador

Colaborador
 
Mensagens: 18915
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 14 vezes
Mens.Curtidas: 1013 vezes

Anterior Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google Adsense [Bot] e 9 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro