Clipper On Line • Ver Tópico - Hbmk2 nao mostra erros de compilação (Win 10)

Hbmk2 nao mostra erros de compilação (Win 10)

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

Moderador: Moderadores

 

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor lugab » 14 Jan 2019 19:27

Boa note, amigos, podem me ajudar ?

To com um problemão, após instalar o Windows 10.
Se der erro de compilação nem o erro, nem a linha errada é exibida.... só da pra saber qual foi o programa.
D:\MMV3\inscdx>hbmk2 inscdx.hbp
Harbour 3.2.0dev (r1812311432)
Copyright (c) 1999-2018, https://harbour.github.io/
Compiling 'InsSldIpi.prg'...
100
200
300
2 errors
No code generated.


Inscdx.HBP
-o32ins
-gui
-m
-compr=yes
-strip
-jobs=1
hbhpdf.hbc
xhb.hbc
InsSldIpi.prg
pdfclass.prg
TxtPdfHB.PRG
FunimpPDF.prg
pdf407.prg
ins408mo.prg
FunMsg.prg
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 14 Jan 2019 23:43

Nunca vi acontecer isso.
em todo caso, tente -ge1
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor lugab » 15 Jan 2019 21:44

Mestre Quintas, nem pude testar. Voltei atrás e reinstalei o Win 7-64

Quem tem ... , tem medo :(
lugab
lugab
Colaborador

Colaborador
 
Mensagens: 843
Data de registro: 19 Mai 2009 15:58
Curtiu: 126 vezes
Mens.Curtidas: 38 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 16 Jan 2019 14:39

Já não lembro mais, uso Windows 10 desde o prazo final de atualização grátis, julho/2016.
Então... Windows 10 não seria o problema.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor frazato » 09 Fev 2021 12:00

Bom dia!
Estou com o mesmo problema quando compilo, não aparece os erros utilizando "Harbour 3.2.0dev (r2101261627)" na versão 3.0 aparece os erros, existe algum parametro para isso?

hbmk2: Processando script local: hbmk.hbm
hbmk2: Harbour compiler command (built-in):
(c:\hb32\bin\harbour.exe) -n2 menunew.prg -DHBMK_HAS_GTWVW=1 -w3 -es2 -ge1 -w0 -oc:\tmp\compilacao\ -ic:\borland\bcc74\Include -ic:\borland\bcc74\Include\dinkumware -ic:\borland\bcc74\Include\windows\crtl -ic:\borland\bcc74\Include\windows\sdk -ic:\hb32\include -ic:\hb32\contrib\gtwvw
Harbour 3.2.0dev (r2101261627)
Copyright (c) 1999-2020, https://harbour.github.io/
Compiling 'menunew.prg'...

100

200

300

400

3 errors

No code generated.
frazato
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 219
Data de registro: 08 Jul 2004 07:45
Curtiu: 0 vez
Mens.Curtidas: 4 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor Itamar M. Lins Jr. » 09 Fev 2021 12:10

Olá!
Mostra o conteúdo do arquivo hbmk.hbm

Saudações,
Itamar M. Lins Jr.
Avatar de usuário

Itamar M. Lins Jr.
Colaborador

Colaborador
 
Mensagens: 6927
Data de registro: 30 Mai 2007 11:31
Cidade/Estado: Ilheus Bahia
Curtiu: 309 vezes
Mens.Curtidas: 503 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 09 Fev 2021 12:39

Não está usando um BAT com algo do tipo hbmk2 *.prg > arquivo.txt ??
Isso desviaria todos os textos para o arquivo.txt
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 09 Fev 2021 12:46

Só uma coisa:

Aqui uso -q, justamente pra não ficar mostrando número de linhas e progresso da compilação.
Só vai mostrar alguma coisa se der erro, ou algum aviso de alerta.
Em outras palavras.... -q esconde o que tá certo, que não precisa olhar, e não interessa.

E configure a janela de comandos com 1.000 linhas ou mais, mesmo que mostre somente 30 linhas por vez.
Talvez até 5.000 linhas.
Não faz diferença pra janela, porque pode configurar tamanho de visualização diferente do tamanho real.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 09 Fev 2021 12:58

Se o Harbour 3.2 está se auto-destruindo, use o Harbour 3.4.

Importante:

O HBMK2 captura os erros pra análise.
Com esse negócio do Harbour 3.2 ficar avançando de compilador C por conta própria, não sei se pode causar algum problema.
É APENAS SUPOSIÇÃO de minha parte.
Se não me engano, o mingw oficial do Harbour 3.2 era 5.x
Depois do problema com PNG, resolveram avançando a versão do mingw, LIBs gráficas usam o 9.x, e outros usam 10.x

Time que está ganhando não se mexe.
Uso mingw 7.3 há anos, tudo funciona bem, não tenho porque trocar.
Download de 60MB com 32 e 64 bits simultâneo.
Só não serve para o Harbour 3.2... fazer o que...
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 09 Fev 2021 13:04

Só reforçando: Uso Windows 10 desde a data limite, há uns 5 ou 6 anos.
Nunca mais usei Windows 7.
Tudo tranquilo.
Mas só uso Harbour 3.4, então não sei se serve como referência.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor frazato » 09 Fev 2021 14:22

Tarde!
Não utilizou nenhum bat para compilar!
hbmk2 menunew.hbp

fiz o mesmo teste usando o hb30 funciona e neste o problema q não gera os erros, e consigo compilar os exemplos demos e coisa tipo "alo mundo"

Esse codigo fonte faz parte do teste para eu mudar o meu erp.

Frazato

# ---------------------------
# Nome do Executável
# ---------------------------
-omenunew
#-w0 -es2
-mt
# ---------------------------
# Bibliotecas
# ---------------------------
-gtwvw
-lhbct
#-lrddleto
-lhbwin
-lxhb
-lhbmisc
#----------------------------
-lhbziparc
-lhbmzip
-lminizip
#----------------------------
# LINKAGEM INCREMENTAL
#----------------------------
#-Lc:\minigui\lib
#-gtgui
#-inc
#-trace
#-rebuild
#-strip
#-run
#-jobs=%NUMBER_OF_PROCESSORS%

-workdir=c:\tmp\compilacao
#-ldebug
#----------------------------
# COMPACTAÇAO TEM QUE TER UPX
#----------------------------
#-compr=yes

# ---------------------------
# PRG PRINCIPAL
# ---------------------------
menunew.prg


#include "icbrasil.ch"
#include "cxwin.ch"
#include "inkey.ch"
#include "common.ch"
#include "setcurs.ch"
#include "winuser.ch"  // from what32 contrib
#include "hbgtinfo.ch"

//---------------------------------------------
Function Main()
   local ch, hMenu, hMenuItem, hSubMenuItem
   public p_aListObjects := {}, p_nNormalMaxrow := wvw_maxmaxrow()+1 , p_nNormalMaxcol := wvw_maxmaxcol()+1

   set defa to C:\SERVIDOR\BKP-130520\

   Alert(version())

   mAcesso := Repli('S',1000)
   mTemporal := 'c:\temp\'
   musr      := 'teste menus'

   Iniciar()

   HB_GtInfo( HB_GTI_MAXIMIZED, .F. )

   SET( _SET_EVENTMASK, INKEY_ALL )



   CarregaMenuNovo()   // jafmenu.prg

   GERAMENU_NOVO()     // jafmenu.prg
           while .T.
                 if ( ch := inkey(0) ) == K_ESC
                    //If Alerta("Confirma Saída do Sistema",MB_YESNO,MB_ICONQUESTION) == IDYES
                    If MSGCONF("Confirma Saída do Sistema ?","1") == .T.
                        exit
                  Endif
                 Endif
           enddo
           Close All
Return nil

//---------------------------------------------
Function CarregaMenuNovo()
   Close all
   Public wMenus := {}, wModulos := {}

   Sele 1
        Use Modusys Alias Modu
        go top
       
        Go top
        Do While ! Eof()
           If Modu->ENABLE==.t.
              If ValidaUserModulo(Modu->VALIDACAO)==.t.
                 Aadd(wModulos,{Hb_OemToAnsi(Alltrim(Modu->Titulo)),Modu->MenuUsado})
              Endif
           Endif
           Skip+1
        Enddo

   Sele 2
        Use menusys alias menu
        Index on Menu->idmenu to (mTemporal+'menus')
        Go top
        nPosMenu := 0
        Do while ! Eof()
           If Menu->Enable== .t.
             If ValidaUserModulo(Menu->VALIDACAO)==.t.
                nPosMenu++
                nIdmenu   := Val(Menu->idmenu)+nPosMenu
                OpcaoMenu := 'OpcaoMenu_'+alltrim(Str(nIdmenu))
                lAcesso   := Menu->Enable
                Aadd(wMenus,{OpcaoMenu,;                          //1
                             Hb_OemToAnsi(Upper(Menu->BarraPromp)),;            //2
                             nIdmenu,;                            //3
                             '{||'+Alltrim(Menu->Commando)+'}',;  //4
                             lAcesso,;                            //5
                             Menu->idmenu })                      //6
             Endif
           Endif
           Skip+1
        Enddo
        * Retirado 07-04-2016 Ver melhor
        *Cria_Menu_Pasta_Padrao()
        *Carrega_Menu_Pasta()
Close All
Return Nil

*********************
FUNCTION GERAMENU_NOVO()
*********************
#define OPC_FIM              2851
#define OPC_LOGOFF           2852
#define OPC_LOGOFF_FRAZATO   2854
#define OPC_MENU_ATUALIZACAO 2855

Local hMenu

    hb_gtInfo( HB_GTI_INKEYFILTER, {|nkey| PROCESSAKEY(nkey) } )
    *hb_gtInfo( , {|nkey| PROCESSAKEY(nkey) } )
    CREATEMENU hMenu
    For n:= 1 to Len(wModulos)
         MENUITEM hMenuItem OF hMenu PROMPT "~"+wModulos[n,1]
                 cIdMenu := StrZero(Val(wModulos[n,2]),3)
                 For i:= 1 to Len(wMenus)
                     If StrZero(val(wMenus[i,6]),3) == cIdMenu
                         cAcao := wMenus[i,1]
                         cMenu := wMenus[i,2]
                         Public &cAcao := wMenus[i,3]
                         SUBMENUITEM hMenuItem PROMPT cMenu ACTION &(cAcao) FLAGS PERMITE(wMenus[i,5])
                      Endif
                 Next
    Next
    *If Len(wFuncoes_Hrp_pasta) > 0
     *       MENUITEM hMenuItem OF hMenu PROMPT "~ATUALIZACAO"
               * SUBMENUITEM hMenuItem PROMPT 'Atualizacoes' ACTION OPC_MENU_ATUALIZACAO FLAGS MF_ENABLED + MF_STRING
    *Endif

    MENUITEM hMenuItem OF hMenu PROMPT Upper("S~air")
             *SUBMENUITEM hMenuItem PROMPT "~LogOff - Destrava terminal Bloqueado"  ACTION OPC_LOGOFF         FLAGS MF_ENABLED + MF_STRING
             *SUBMENUITEM hMenuItem PROMPT "~LogOff - Lista Terminal a Bloqueado"   ACTION OPC_LOGOFF_FRAZATO FLAGS MF_ENABLED + MF_STRING
             SUBMENUITEM hMenuItem PROMPT "~Sair" ACTION OPC_FIM FLAGS MF_ENABLED + MF_STRING

    WVW_SetMenu(, hMenu )
*    PROCESSAKEY(nKey)
RETURN NIL

********************
Static FUNCTION PERMITE(lOk)
********************
If lOk==.t.
   RETURN ( MF_ENABLED + MF_STRING )
Else
   RETURN ( MF_DISABLED +MF_STRING )
Endif

// FUNCAO     : ProcessaKey()
// PARAMETROS : nKey - Codigo da tecla pressionada
// DESCRICAO  : Funcao chamada apos o pressionamento de uma tecla ou clique do
//              mouse e antes da funcao inkey(). Usada para acessar os menus
//              do sistema.
// RETORNO    : Acao configurada na funcao PROCESSAMENU() ou passa o codigo da
//              tecla para inkey()
//
****************************
FUNCTION PROCESSAKEY( nkey )
****************************
   local bAction

   if nkey == WVW_DEFAULT_MENUKEYEVENT
      return ProcessaMenu( WVW_GetLastMenuEvent() )
   elseif ( bAction := setkey(nKey) ) # NIL
      eval( bAction, Procname(), Procline(), Readvar() )
      return 0
  endif
RETURN nkey

//
// FUNCAO     : ProcessaMenu()
// PARAMETROS : cEvento - Evento gerado pela selecao de uma opcao do menu
// DESCRICAO  : Verifica se a acao selecionada tem um evento relacionado. Se
//              sim "dispara" essa chamada, caso contrario apresenta mensagem
//              padrao.
// RETORNO    : Se pressionada opcao de sair, retorna K_ESC para terminar a
//              execucao, caso contrario, limpa a tecla para nao re-chamar a
//              funcao.
//
********************************
static FUNCTION PROCESSAMENU( nEvento )
********************************
   local nKey := 0
   local cPesq

   do case
      case nEvento == OPC_FIM
         nKey := K_ESC
      Case nEvento == OPC_LOGOFF
         *FUNCAO_LOGOFF('')
      Case nEvento ==  OPC_LOGOFF_FRAZATO
         *FUNCAO_LOGOFF_GERAL()
      Case nEvento ==  OPC_MENU_ATUALIZACAO
         *CHAMAROTINAATUALIZACAO()

      otherwise
         cPesq:= nEvento
         nPos := Ascan(wMenus,{|x|x[3]==cPesq})
         If nPos == 0
            Alerta("Em Construção"+Str(cPesq,11),MB_OK)
         Else
             //Alerta('Evento '+Str(nEvento)+Chr(10)+wMenus[nPos,1]+chr(10)+wMenus[nPos,4])
             //Colocar a Funcao pra Gravar se permite ou n'ao!
             If wMenus[nPos,4]#Nil
                PROGRA := &(wMenus[nPos,4])
                If ValType(PROGRA)=='B'
                   EVAL(PROGRA)
                Endif
             Endif
             *SetInkeyAfterBlock({|nkey| ProcessaKey( nkey ) }) // jafmenu.prg
         Endif
   endcase
RETURN nKey

//---------------------------------------------------
Static Function ValidaUserModulo(cVerAcesso)
Local Permite := Val(cVerAcesso)
Local lOk    := .f.
Local Acesso := MACESSO   // Variavel Public Inicial no Login
IF SUBSTR(ACESSO,PERMITE,1) == "S"
   lOk:= .t.
Endif
Return lOk

*>----------------------------------------------------------------
FUNCTION MSGCONF(TEXTO,BOTAO)
Local nRet :=.F. //Iif(BOTAO==2,.F.,.T.)
Local cTitle := Alltrim(mUsr) //Lerparam("NOME_EMPRESA")
//If Alerta(TEXTO,MB_YESNO,MB_ICONQUESTION) == IDYES
If win_messagebox(WVW_GETWINDOWHANDLE(), TEXTO, cTitle, MB_YESNO + MB_ICONQUESTION + MB_SYSTEMMODAL)==IDYES
   nRet := .T.
Endif
RETURN (nRet)

//----------------------------------------------------------------------------
FUNCTION MSGALERT(TEXTO,ACAO)
LOCAL TELA01 := SAVESCREEN(00,00,24,79)
   CORES()
   CAIXATEXTO(12,20,16,55,"Aten‡Æo","BG+/NB+","NN/NN","N")
   @ 14,21 SAY PADC(TEXTO,33) COLOR("WW+*/BB+")
   IF ACAO!= NIL
       INKEY(0)
   ENDIF
RESTSCREEN(00,00,24,79, TELA01 )

//
// FUNCAO     : Alerta()
// PARAMETROS : cMessage    - Mensagem para exibir
//              nNumButtons - N§ de botoes para exibir
// DESCRICAO  : Apresenta mensagem no centro da tela e um n§ de botoes para o
//              usuario escolher a acao.
// RETORNO    : Codigo numerico ( em winuser.ch ) : IDYES, IDNO, etc.
//
************************************************
FUNCTION Alerta( cMessage, nNumButtons, nStyle )
************************************************
   local nCurButton, cmsg := Hb_OemToAnsi(cMessage)
   Local cTitle := Alltrim(mUsr)//Lerparam("NOME_EMPRESA")

   default nNumButtons to MB_OK ,;
           nStyle      to MB_ICONHAND

   //nCurButton := wvw_messagebox( 0, Hb_OemToAnsi(cMessage), "ATENÇÃO", nStyle + nNumButtons+MB_TASKMODAL )
   win_messagebox(WVW_GETWINDOWHANDLE(), cMsg, cTitle, MB_OK + MB_SYSTEMMODAL)
   VoltaFoco()
RETURN nCurButton

//------
FUNCTION CAIXATEXTO(LIN1,COL1,LIN2,COL2,TEXTO,COR,FUNDO,DEGRADE,CTITULO,lMenu)
Local hMenu, hMenuItem, nJanela
Local cCor := setcolor(), nWidth, nCol, nRow
local lMainCoord := WVW_SetMainCoord( .t. )
local nMaxRow := maxrow()-3, nMaxCol := maxcol()

Default lMenu to .t. // JANELA_COM_BOTAO

If xViaWts==.f.
    *nofoto := "Fundo.jpg"
    *nMaxRow := maxrow(); nMaxCol := maxcol()
    *Wvw_drawimage(0,00,00,nMaxRow,nMaxCol,nOfoto,.f.)
Endif

wQuantESCAntesF12 := 0 // Funcao Kill_System2()

nWLogin := AbreJanela( Hb_OemToAnsi(cArq_syssgerf+TEXTO) ,LIN1,COL1 , LIN2, COL2)

If lMenu == .t.
*   BuildMenu( @hMenu, @hMenuItem )
Endif
set confirm on
RETURN nWLogin

********************
FUNCTION VoltaFoco()
********************
RETURN WVW_xReposWindow()

function fRLock()
return nil

#pragma BEGINDUMP

#include "hbapi.h"

HB_FUNC( WVW_SIZE_READY )
{
   BOOL bIsReady;
   static BOOL s_bIsReady = FALSE;
   bIsReady = s_bIsReady;
   if (ISLOG(1))
   {
      s_bIsReady = hb_parl(1);
   }
   hb_retl(bIsReady);
}
#pragma ENDDUMP

*>----------------------------------------------------------------------------------
FUNCTION CORES()
setcolor("n/w,w+/b,n,n,n/w")
Return Nil //(SETCOLOR("I/b,N/GR,,,I/WW+"))

*********************************************************
FUNCTION AbreJanela( cTitulo, nLI, nCI, nLF, nCF, nTipo )
*********************************************************
   local nWin
   default nTipo to WS_CAPTION

   if ( nWin := WVW_nOpenWindow( cTitulo, nLI, nCI, nLF, nCF, nTipo ) ) == 0
      Alerta("Erro na criacao da janela " + cTitulo+;
             'Favor verificar o tamanho da resolucao da Tela!'+;
             'Linha Final:'+str(nLF,11))
      return 0
   endif
RETURN nWin

//
// FUNCAO     : FechaJanela()
// PARAMETROS : -
// DESCRICAO  : Jeito diferente de chamar WVW_lCloseWindow()
// RETORNO    : .T. se conseguiu fechar janela, caso contrario .F.
//
**********************
FUNCTION FechaJanela()
**********************
RETURN WVW_lCloseWindow()

//
// FUNCAO     : DbfToArray()
// PARAMETROS : aCampos - Matriz com nomes dos campos da area atual
// DESCRICAO  : Cria matriz com a mesma estrutura do arquivo da area atual e
//              preenche com o conteudo do registro atual
// RETORNO    : matriz com o registro atual
//

******************
FUNCTION Iniciar()
******************
   local lRet := .T.

*   dbsetdriver("DBFCDX")
   lRefreshTelaProduto := .t.
   wObj_Itens          := {}

   set confirm    on
   set deleted    on
   set bell       off
   set scoreboard off
   set eventmask  to INKEY_ALL
   set date       british
   set epoch      to 1950
   Set date format to "DD/MM/YYYY"
   set exclusive off
*  Set background Tasks On
   SET WRAP ON

   lRet := WVW_SetFont(,'Ms Sans Serif', 20, 10 )  // Nova teste melhor nos windows
   *If GetEnv("WINDOWS98")=='S'
   *    cTipoFonte := Lerparam("TIPODEFONTE")
   *    lRet := WVW_SetFont(,cTipoFonte)
   *Endif
   If !lRet
       wvw_messagebox(0, "Fonte não carregada", "JAF Desenv.", 0)
       lRet := WVW_SetFont(,'Ms Sans Serif', 16, 8 )  // LABORATORIO
       wvw_messagebox(0, "Fonte não carregada", "JAF Desenv.", 0)
   Endif

   Set(39,159)
   wvw_noclose()
   wvw_seticon(, "Jaf_xh.ico" )
   wvw_size_ready(.T.)
   wvw_setmaincoord(.T.)
   wvw_SetPaintRefresh(1) // 1
   WVW_SetCodePage(,255) // 250
   wvw_SetVertCaret(.T.)
   wvw_enableshortcuts(0,.T.)
   wvw_maximize(0)
   *COR_NORMAL
   *Toolbar(0)
   *Jta(0)
   cls
   lRet := .t.

//Win_OsNetRegOk(.t.,.t.)

*   Cria_Scrip_padrao()  //

RETURN lRet

frazato
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 219
Data de registro: 08 Jul 2004 07:45
Curtiu: 0 vez
Mens.Curtidas: 4 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 09 Fev 2021 14:59

Vamos ao contrário, tentar limpar tudo.

Porque HBM?

Imagino que se está começando a converter, nem deve saber o que é isso.
APAGUE o HBM.

Teste compilar direto o PRG.

hbmk2 teste.prg

Depois faça o contrário: comece com um HBP vazio, só com o fonte PRG.
hbmk2 nome.hbp

Veja se tudo ok, e só acrescente o que for pedido.

Sugestão como início: -m -n -q -oNOME_EXE

Nota:
HBM é quando você tem vários PRGs na pasta, quer compilar cada um separado, e quer uma mesma configuração pra todos.
Isso não é pra uso normal, talvez só pra quem desenvolve LIB, e tem vários exemplos numa única pasta.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor frazato » 09 Fev 2021 15:19

APAGUE o HBM --> Deu certo! gerou o executável!
Mais ainda não apresenta o erro na compilação mesmo de um unico prg e percebi que ele parece fazer a compilação em segundo plano é isso mesmo?

Frazato
frazato
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 219
Data de registro: 08 Jul 2004 07:45
Curtiu: 0 vez
Mens.Curtidas: 4 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 09 Fev 2021 15:35

frazato escreveu:Mais ainda não apresenta o erro na compilação mesmo de um unico prg e percebi que ele parece fazer a compilação em segundo plano é isso mesmo?


De certa forma, a compilação passa pelo HBMK2, pra ele analisar as mensagens de erro e algo mais.

Acho que a única referência seria usar uma mesma versão de Harbour, porque isso pode ser um problema específico da sua versão.

Pera aí, tive uma idéia....
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Hbmk2 nao mostra erros de compilação (Win 10)

Mensagempor JoséQuintas » 09 Fev 2021 15:55

Agora a coisa pode ficar legal.

https://github.com/JoseQuintas/test

Criei no github.
Agora dá pra brincar de enviar fonte e testar compilação com 3.2 e 3.4

test.png


Seu fonte.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18009
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Próximo



Retornar para Harbour

Quem está online

Usuários vendo este fórum: Google [Bot] e 5 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