O controle de erros da HMG é pior que péssimo, deveria ser eliminado da face da terra.
Como faço para acabar com ele, e usar somente o padrão do Harbour?

Moderador: Moderadores
FUNCTION Main
SetMode( 25, 80 )
CLS
hb_ThreadStart( { || HmgMain() } )
hb_ThreadStart( { || HmgMain() } )
? "Ola"
Inkey(0)
RETURN
#include "hmg.ch"
Function HMGMain
DEFINE WINDOW Win_1 ;
ROW 0 ;
COL 0 ;
WIDTH 400 ;
HEIGHT 400 ;
TITLE 'Hello World!' ;
WINDOWTYPE MAIN
END WINDOW
Win_1.Center
Win_1.Activate
Return
FUNCTON WriteErrorLog( cTexto, nNivel )
FUNCTION Main()
IF File( "hb_out.log" )
EnviaPorEmail()
ENDIF
JoséQuintas escreveu:
E aÃ?
Deu erro aonde?
Em qual linha?
Em qual fonte?
A mensagem de erro está linda, mas não serve pra nada.
Já ao fabricar um erro... lá vém ele em html....
Lá vém os problemas de navegador, plugins, programas de proteção de banco, etc.
O que tem de errado em abrir no bloco de notas, simples, leve e sem interferência?
Existen msg de error como el que muestra tu imagen que en la práctica diaria del programador no importa demasiado donde ocurrió porque son fallas tÃpicas del llamado a una función del API y un programador familiarizado con Windows va a saber que ese tipo de error se produce al crear una ventana
PROCEDURE Main
hb_ThreadStart( { || HMGMain() } )
hb_ThreadStart( { || HMGMain() } )
hb_ThreadStart( { || HMGMain() } )
hb_ThreadStart( { || HMGMain() } )
hb_ThreadWaitForAll()
RETURN
Function HMGMain
Init()
DEFINE WINDOW Form_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'MiniGUI ToolBar Demo' ;
ICON 'DEMO.ICO' ;
MAIN ;
FONT 'Arial' SIZE 10
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes