topic-14617

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

ErrSysW y Rebars
Posted: Wed Feb 18, 2009 01:52 AM

Hola Antonio y amigos:

Al intentar crear el ejecutable del programa de ejemplo Rebars.prg se genera el siguiente error:

By manuelmercado
Necesito que me digan por favor 2 cosas:

1.- Como soluciono ese error de ejecución.

2.- Que debo hacer para que no aparezcan ceros (0) en las llamadas a ProcLine(n) del manejador de errores de FiveWin. Para encontrar un error no es de gran (o de ninguna) ayuda el error.log

Estoy usando FWH 9.01

Gracias anticipadas por su ayuda.

Manuel Mercado

manuelmercado at prodigy dot net dot mx

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: ErrSysW y Rebars
Posted: Thu Feb 19, 2009 03:02 PM

Ninguna ayuda?

El problema del manejador de errores es algo muy importante.

Gracias de nuevo.

Manuel Mercado

manuelmercado at prodigy dot net dot mx

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: ErrSysW y Rebars
Posted: Thu Feb 19, 2009 04:01 PM

Estoy teniendo el mismo síntoma con el procline en el control de errores al usaR la versión 7.12. !No aparece el numero de la linea del error sino el CERO¡

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

Patricio Avalos Aguirre

Posts: 1074

Joined: Fri Oct 07, 2005 01:56 PM

Re: ErrSysW y Rebars
Posted: Thu Feb 19, 2009 06:42 PM

Hola

Posiblemente la libreria este compilada con la opcion /l
por eso de los cero(0)

Saludos
Patricio

__________________________________________________________________
Version: Harbour 3.2.0dev (r1307082134),Compiler: Borland C++ 5.8.2 (32-bit)
PCode version: 0.3, FWH 13.2
http://www.sialm.cl

Armando Picon

Posts: 446

Joined: Mon Dec 26, 2005 09:11 PM

Re: ErrSysW y Rebars
Posted: Thu Feb 19, 2009 06:46 PM

¿significa que debemos reconstruir la librería de Fivewin? ¡No asustes!

Patricio Avalos Aguirre wrote:Hola

Posiblemente la libreria este compilada con la opcion /l
por eso de los cero(0)

/l suppress line number information
/m compile module only
/n[<type>] no implicit starting procedure (default)
<type>: 0=no implicit starting procedure
1=no starting procedure at all
[/list:u]

FWH + BCC582 + WorkShop 4.5 + Resource Hacker + Mingw
Mis nuevas herramientas
Comunicacion via WhatsApp (+51) 957549 665
Comunicación via Correo: apic1002002 at yahoo dot es; apic1002002@gmail.com

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: ErrSysW y Rebars
Posted: Thu Feb 19, 2009 07:57 PM

Hay que utilizar estos FLAGS al compilar el PRG o los PRG ( s)

xharbour uso yo.

$(HBDIR)\bin\harbour $< /N /m /es2 /gc1 /Oobj\ /I$(FWDIR)\include;$(HBDIR)\include

/n /m /es2 /gc1

saludos..

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: ErrSysW y Rebars
Posted: Thu Feb 19, 2009 08:26 PM

Cesar, que haces /gc1 ??

Gracias,

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: ErrSysW y Rebars
Posted: Thu Feb 19, 2009 09:02 PM

/gc[<type>] output type: C source (.c) (default)
<type>: 0=compact 1=normal 2=verbose (default)
3=generate variable list (.var) file

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

sysctrl2

Posts: 1144

Joined: Mon Feb 05, 2007 07:15 PM

Re: ErrSysW y Rebars
Posted: Thu Feb 19, 2009 09:06 PM

HARBOUR COMMAND S

Options: /a automatic memvar declaration
/b debug info
/build display detailed version info
/credits display credits
/d<id>[=<val>] #define <id>
/es[<level>] set exit severity
/g<type> output type generated is <type> (see below)
/gc[<type>] output type: C source (.c) (default)
<type>: 0=compact 1=normal 2=verbose (default)
3=generate variable list (.var) file
/go output type: Platform dependant object module
/gw output type: Windows/DOS OBJ32 (.obj)
/gh output type: Harbour Portable Object (.hrb)
/i<path> #include file search path
/j[<file>] output i18n support [to <file>] to .hil
/k compilation mode (type -k? for more data)
/l suppress line number information
/m compile module only
/n[<type>] no implicit starting procedure (default)
<type>: 0=no implicit starting procedure
1=no starting procedure at all
2=force application starting procedure
/o<path> object file drive and/or path
/p[o<path>] generate pre-processed output (.ppo) file in <path>
/pt[o<path>] generate pre-processor trace (.ppt) file in <path>
/q quiet
/q0 quiet and don't display program header
/s syntax check only
/u[[+]<file>] use command def set in <file> (or none)
/undef:<id> #undef <id>
/v variables are assumed M->
/vd external functions are assumed as dynamic functions
/w[<level>] set warning level number (0..3, default 1)
/x[<prefix>] set symbol init function name prefix (for .c only)
/z suppress shortcutting (.and. & .or.)
@<file> compile list of modules in <file>

Cesar Cortes Cruz

SysCtrl Software

Mexico

' Sin +- FWH es mejor "

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: ErrSysW y Rebars
Posted: Fri Feb 20, 2009 02:01 AM

Hola nuevamente:

Soy el único con este problema?

Alquien que tenga la versión 9.01 de FWH ha podido compilar con xHarbour y ejecutar el programa de ejemplo (FWH\SAMPLES) Rebars.prg?

Necesito saber si el problema es exclusivamente mío para dedicarme a resolverlo. El programa (Rebars.prg) para mí no es importante, lo que sí afectaría todos mis desarrollos es el problema del manejador de errores.

Un abrazo.

Manuel Mercado.

manuelmercado at prodigy dot net dot mx

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: ErrSysW y Rebars
Posted: Fri Feb 20, 2009 05:37 AM

Pienso que todo esta bien... voy a decir solo una teoria personal, lo he visto en varios casos y pienso que ese efecto es por lo siguiente....

Code (text): Select all Collapse

<div class="text" id="{CB}" style="font-family: monospace;">  Called from:  => NCOUNT(0)
   Called from: .\source\classes\WINDOW.PRG => (b)TWINDOW(545)
   Called from:  => TPANEL:SETBRUSH(0)
   Called from:  => TPANEL:NEW(56)
   Called from: C:\fivewin\VER901\FWH\samples\rebars.prg => MAIN(15)</div>

la llamada en la linea (56) de TPANEL es al methodo SETBRUSH(), pero TPANEL no tiene ese methodo como tal es heredado desde TWINDOW en la linea (545), que no es mas que un INLINE, por eso muestra (0) en la linea ya que realmente no tiene numeracion, ese CERO nos indica que es una llamada a un METHOD ... INLINE, cuando vemos eso debemos es preocuparnos de donde viene y no hasta donde llego...

ahora la pregunta esta porque se genera ese error?
sigo en teorias... son ejemplos algo viejos las clases han mejorado, supongo que son cosas del avance y formas distintas del manejo de las mismas o queda algun cabo suelto

si estoy equivocado en mis 2 teorias pido porfavor alguien me corrija o en el mejor de los casos que la den por ciertas

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: ErrSysW y Rebars
Posted: Fri Feb 20, 2009 07:00 AM

Daniel Garcia-Gil wrote:ahora la pregunta esta porque se genera ese error?
sigo en teorias... son ejemplos algo viejos las clases han mejorado, supongo que son cosas del avance y formas distintas del manejo de las mismas o queda algun cabo suelto

Hola Daniel, gracias por responder.

En realidad el error en el programa no me preocupa, sé que hay cambios en las clases. Lo que sí me preocupa es el "error.log", si observas tu ejemplo y el mío no son iguales. Tu pudiste determinar gracias al error.log que la linea que causa el error es la 545 de TWindow pero en mi caso esa linea no se muestra y entonces es imposible que yo pueda encontrar la causa del error.

Mi pregunta ahora es: Si ambos estamos usando la misma versión de FWH por qué tu error.log y el mío no son iguales.

Estoy usando el Buildx.bat que viene en FWH\Samples.

Saludos.

Manuel Mercado

manuelmercado at prodigy dot net dot mx

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: ErrSysW y Rebars
Posted: Fri Feb 20, 2009 07:19 AM

Manuel,

Son dos errores que se han colado en los últimos cambios:

1) En la Clase TPanel en la línea 53 el código debe quedar así:

Code (fw): Select all Collapse

   if ! Empty( ::oWnd:hWnd )
      ::Create()
      ::oWnd:AddControl( Self )
      if ::oWnd:oBrush != nil
         ::SetBrush( ::oWnd:oBrush )
      endif   
   else
      ::oWnd:DefControl( Self )
   endif

2) En la Clase TFolder en la línea 193 hay que añadir esta línea:

Code (fw): Select all Collapse

   ::lTransparent = .F.

Con esos dos cambios, FWH\samples\ReBars.prg funciona correctamente. Gracias,

Respecto a que se muestre cero en el gestor de errores, se debe a que no habíamos compilado FWH con información de números de linea. Arreglado, gracias