Consulta básica (Solucionado-bug clase twbrowse Hernán)

[metaldrummer]

Hola:
Aquí estoy de nuevo y después de dos años de para en la programación, se nota definitivamente.
A ver:
utilizo xmate+xharbour (desde cvs) y tengo algo tan simple como esto:

Code: Select all  Expand view  RUN

REQUEST DBFCDX
RddSetDefault( "DBFCDX")
aDbf:={}
Aadd(aDbf, {"PASO1", "C", 10, 0})
Aadd(aDbf, {"PASO2", "C", 10, 0})
dbCreate( "PASO.DBF", aDbf, "DBFCDX")
USE PASO EXCLUSIVE NEW VIA "DBFCDX"
SELECT PASO
dbGotop()
MsgInfo( "browse()")
Browse()
CLOSE DATABASE

La rutina llega hasta el MsgInfo() y luego se cuelga.
Esto me tiene entrampado para utilizar el browse de Hernán.
Salduos y mil gracias
David Lagos S.
Coquimbo-Chile

[Antonio Linares]

David,

Cambia Browse() por WBrowse() ó simplemente añade #include "FiveWin.ch" al principio

[metaldrummer]

Antonio:
Tengo puesto #include "fivewin.ch"

y no resultó tampoco con wbrowse().
el programa se cuelga.
Además no entiendo porqué no me aparece error alguno, ni la ventana ni genera el error.log
Saludos
David

[Antonio Linares]

David,

Porque estas llamando a la función browse para modo consola que proporciona Harbour, por eso se cuelga.

FiveWin.ch cambia Browse() por WBrowse(), y la función WBrowse() debe mostrarte un browse básico en modo Windows

Prueba a no llamar a Browse() y no debe colgarse

[metaldrummer]

David,

Porque estas llamando a la función browse para modo consola que proporciona Harbour, por eso se cuelga.

FiveWin.ch cambia Browse() por WBrowse(), y la función WBrowse() debe mostrarte un browse básico en modo Windows

Prueba a no llamar a Browse() y no debe colgarse

Antonio:
No me hice entender.
No utilizo nada en modo consola.
Sencillamente el simple hecho de hacer un "USE" a una .dbf y realizar un wbrowse() se cuelga.
Vuelvo a preguntar: ¿a qué se puede deber que al presentarse un problema no aparece la ventana de error y no genera el error.log?
Estoy utilizando xmate. Además me funciona perfectamente la twbrowse de hernán.
Saludos y muchas gracias.
David

P.D.:Adjunto imágenes.
XMate: Librerías que estoy utilizando



XMate: Como tengo definido mi proyecto


Hago algo tan simple como esto y se cuelga

[Antonio Linares]

David,

Tu código funciona aqui perfectamente. Prueba a no enlazar el Browse de Hernan.

Si no aparece error y la aplicación se cuelga, es que está en un bucle ó usando Inkey() de [x]Harbour.

[metaldrummer]

David,

Tu código funciona aqui perfectamente. Prueba a no enlazar el Browse de Hernan.

Si no aparece error y la aplicación se cuelga, es que está en un bucle ó usando Inkey() de [x]Harbour.

Efectivamente es un bug en la classe de Hernán.
Hice lo siguiente:

Code: Select all  Expand view  RUN

TRY
   WBrowse()
CATCH oError
   MsgStop( oError:Description)
END

Con la classe de Hernán arroja el CATCH oError "Undefined Function"
Sacando la classe de Hernán funciona perfecto.
Mil Gracias nuevamente
David Lagos S.
Coquimbo-Chile

[Patricio Avalos Aguirre]

Yo utilizo el browse de Hernan y no he tenido ningun problema

puede ser el orden de las librerias

en mi caso la tengo al principio...

Code: Select all  Expand view  RUN

...
TWBRW32 + //libreria de hernan...
HbTDbf +
c:\Fwh\lib\FiveHX.LIB +
c:\Fwh\lib\FiveHc.LIB +
Funlib32 +
FileXls +
vBarH +
vBoxH +
SBrowseH  +
TBtnGet32 +
c:\harbour\lib\rtl.lib    +
c:\harbour\lib\vm.lib    +
c:\harbour\lib\gtGui.lib +
c:\harbour\lib\lang.lib  +
c:\harbour\lib\macro.lib +
c:\harbour\lib\rdd.lib   +
c:\harbour\lib\dbfcdx.lib+
c:\harbour\lib\dbffpt.lib+
c:\harbour\lib\hbsix.lib +
c:\harbour\lib\common.lib+
c:\harbour\lib\pp.lib    +
c:\harbour\lib\rddads.lib+
c:\harbour\lib\Ace32.lib +
c:\borland\bcc55\lib\cw32.lib +
c:\borland\bcc55\lib\import32.lib,, +
recurso\wcta.res recurso\toolbar1.res

[carlos vargas]

Podria ser un problema de opcodes diferentes

el ejemplo que muestras es muy simple por lo que no hay probabilidad de fallos

por lo que solamente queda esa posibilidad.

salu2
carlos vargas