FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour [OT] Problemas con Harbour.
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 11:59 AM
Tengo un problema muy extra帽o y que no puedo reproducir en un ejemplo sencillo. Resulta que una parte de una aplicaci贸n que ha funcionado bien desde hace mucho ha empezado a fallar. Fue programada en base a FWH2.4 con su Harbour y en Julio'07 se actualiz贸 a FWH 7.07, y la ultima actualizaci贸n fue la incorporaci贸n del Harbour para FWH 7.10 que provee FiveTech.

Resulta que hay una funci贸n que genera un listado en una variable del tipo char. Normalmente el informe no supera los 150 Kb, y se va generando con sucesivas asignaciones del tipo:

cTexto+= "<lo que sea>"
....

// Al final lo guardo en un fichero

   MemoWrit( cText:= TempFile( 'TXT' ), cTexto )


Esto siempre funcion贸 bien, pero ahora eventualmente en uno de los procedimientos se produce algun error o algo asi que cierra la aplicaci贸n sin mediar mensaje de error ni nada. Ni siquiera una se帽al de GPF ni nada parecido. Tampoco puedo reproducir exactamente el error, ya que ejecutando el proceso nuevemente puede o no fallar.
He descartado problemas de harware ya que se produce en diferentes ordenadores de una red.

He tratado de recompilar con el ultimo harbour disponible en fivetech (en el foro) que es de diciembre del 2007, pero no me compilan los programas porque da error de cantidad de par谩metros en la funci贸n AT al recompilar xbrowse.prg.

Alguna sugerencia?

Un saludo,

Carlos.
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:03 PM

Carlos,

Prueba a recompilar con xHarbour y comprueba si tambien se produce el error.

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:09 PM

Hola Antonio,

gracias por responder. No, no he probado con xHarbour, pero es algo que preferir铆a evitar porque sino tengo recompilar muchas librer铆as y es bastante complicado. Adem谩s tendr铆a que instalarlo en los clientes que es donde se producen los problemas, y hacer ese cambio en un programa en producci贸n es un poco complicado.

驴Que build usan en FiveTech para producir 8.04? Te pregunto porque me falla la compilaci贸n de xBrowse, y eso ya lo debes haber resuelto probablemente con otra versi贸n de harbour.

Un saludo,

Carlos.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:12 PM

Carlos,

Diciembre 2007. Puedes descargarla desde aqui:

www.fivetechsoft.com/files/harbour.exe

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:14 PM

Carlos,

Aqui xbrowse.prg compila perfectamente sin errores (FWH 8.04)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:15 PM
Esa es la primera que prob茅 y que no me funcion贸 porque me d谩 el error de los par谩metros de la funcion AT:

MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
	c:\harbour712\bin\harbour.exe -i.;c:\fwh707\include;c:\harbour712\include -n -m -q -es2 -gc0 .\XBrowse.prg -oobj\XBrowse.hrb
Harbour devel build 1.1-1 Intl.
Copyright (c) 1999-2007, http://www.harbour-project.org/

.\XBrowse.prg(4550) Error E0021  Incorrect number of arguments: AT 
Passed: 3, expected: 2

1 error

No code generated
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:18 PM
Antonio Linares wrote:
Aqui xbrowse.prg compila perfectamente sin errores (FWH 8.04)


No me cabe ninguna duda :-)

El punto ser谩 que probablemente hayas cambiado el c贸digo el c贸digo en
STATIC FUNCTION ExtractLine(cText, nFrom)

  local cLine, nAt

  nAt := At(CRLF, cText, nFrom)  // <------------- ACA!

  if nAt > 0
    cLine := Substr(cText, nFrom, nAt - nFrom )
    nFrom := nAt + 2
  else
    cLine := Substr(cText, nFrom)
    nFrom := len(cText) + 1
  endif

Return cLine
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:20 PM
Carlos,

C谩mbialo as铆:
function ExtractLine( cText, nFrom )

  local cLine, nAt

  nAt := At( CRLF, SubStr( cText, nFrom ) )

  if nAt > 0
    cLine := Substr( cText, nFrom, nAt - 1 )
    nFrom += nAt + 1
  else
    cLine := Substr( cText, nFrom )
    nFrom := Len( cText ) + 1
  endif

return cLine
regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:22 PM

Listo. Gracias. Vamos a ver que pasa, arreglo un par de cuestiones de enlazado (hboleaut.lib) y veo a ver si podemos superar el tema.

A prop贸sito... la 煤nica forma de obtener una versi贸n actualizada de Harbour es ped铆rsela a Juan Palomo (compilarla uno mismo), no? de la p谩gina oficial y/o sourceforge solo esta la beta 3 de julio.

Un saludo y gracias.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:30 PM

hboleauto x hbwin32 y listo! Bien, ahora a ver si se cura ;)

Gracias.

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:33 PM

uPS! Un problemita: necesita hb_gtwin, pero me muestra una ventana de DOS al ejecutar el programa. COmo se puede evitar?

Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 12:52 PM
Cambia para:

\xHarbour\lib\gtgui.Lib
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 989
Joined: Thu Nov 24, 2005 03:01 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 02:05 PM
Hola Karinha

es que si pongo gtgui me aparece:

MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
	c:\bcc55\bin\ilink32.exe -Gn -aa -Tpe -s -Iobj -x @make.tmp
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_HB_GT_WIN' referenced from C:\HARBOUR712\LIB\RTL.LIB|gtsys
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 02:36 PM
Carlos Mora wrote:Hola Karinha

es que si pongo gtgui me aparece:

MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
	c:\bcc55\bin\ilink32.exe -Gn -aa -Tpe -s -Iobj -x @make.tmp
Turbo Incremental Link 5.00 Copyright (c) 1997, 2000 Borland
Error: Unresolved external '_HB_FUN_HB_GT_WIN' referenced from C:\HARBOUR712\LIB\RTL.LIB|gtsys


HACES LLAMADA A ESTA LIB?? EXCLUA LA LLAMADA. ????
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
[OT] Problemas con Harbour.
Posted: Thu Apr 24, 2008 02:38 PM
//-> Como hago y funciona perfecto:

c0w32.Obj                               +
VENDAS.Obj                              +
BTNGET.Obj                              +
BTNDOWN.Obj                             +
GETBTN.Obj                              +
TSBROWSE.Obj                            +
SBMSGPOR.Obj                            +
TSCOLUMN.Obj                            +
TSBTNGET.Obj                            +
TSGET.Obj                               +
TSCOMBO.Obj                             +
TSMULTI.Obj                             +
SCRLLBAR.Obj                            +
TMETAFIL.Obj                            +
TSBFUNCS.Obj                            +
SCROLL.Obj                              +
TSBUTTON.Obj                            +
TSBAR.Obj                               +
TSLINES.Obj                             +
BPAINT.Obj                              +
ROUNDREC.Obj                            +
DBMANT.Obj                              +
REDE.Obj                                +
SSAY.Obj                                +
BMP_RAND.Obj                            +
REINICIA.Obj                            +
TSHUT.Obj                               +
REINICIA.Obj                            +
REINDEXA.Obj                            +
DSAY.Obj                                +
ANIMABMP.Obj                            +
EMPRESAS.Obj                            +
CRIARDBF.Obj                            +
MSGMETER.Obj                            +
CALEND.Obj                              +
TCALENDA.ObJ                            +
DIREITOS.Obj                            +
BMPVIEW.Obj                             +
CORGET.Obj                              +
IMAGE.Obj                               +
MSGGETCP                                +
MSGGET.Obj                              +
WBROWSE.Obj                             +
TGET.Obj                                +
CONTROL.Obj                             +
WINDOW.Obj                              +
RPREVIEW.Obj                            +
FOLDER.Obj                              +
ERRSYSW.Obj                             +
FWERROR.Obj                             +
CLIENTES.Obj                            +
CADFORNE.Obj                            +
ESTOQUE.Obj                             +
INCFITAS.Obj                            +
FUNCOES.Obj                             +
OPERADOR.Obj                            +
REPASSA.Obj                             +
REPASSA2.Obj                            +
DEL_COMP.Obj                            +
DELPEDID.Obj                            +
CBREAJPR.Obj                            +
CBREAJGL.Obj                            +
REPMARCA.Obj                            +
REPNOMES.Obj                            +
REPCONTA.Obj                            +
FOTOS.Obj                               +
UTIL.Obj                                +
WAGENDA.Obj                             +
VERFITAS.Obj                            +
VERFICOD.Obj                            +
TCBFITAS.Obj                            +
BROWFITA.Obj                            +
RECIBO.Obj                              +
XBLITE.Obj                              +
BOXGET.Obj                              +
APAGADIS.Obj                            +
BROWSEFA.Obj                            +
TCBCADFO.Obj                            +
CADFORN2.Obj                            +
CALCULAD.Obj                            +
RELOGIO.Obj                             +
TIPOEMPR.Obj                            +
ENTREGAD.Obj                            +
ALTTICKT.Obj                            +
CONTATO.Obj                             +
DISPLAY.Obj                             +
CLIEIMOB.Obj                            +
CAPTADOR.Obj                            +
TIPOCLIE.Obj                            +
OPERACAO.Obj                            +
CONTRATO.Obj                            +
TIPOIMOV.Obj                            +
TIPOZONA.Obj                            +
IMOVEIS.Obj                             +
FIADORES.Obj                            +
INQUILIN.Obj                            +
PROPRIET.Obj                            +
FUNCIONA.Obj                            +
SERVICOS.Obj                            +
CLIESTAC.Obj                            +
CORES.Obj                               +
MODELOS.Obj                             +
VEICULOS.Obj                            +
MENSAGEM.Obj                            +
CONTROLE.Obj,                           +
VENDAS.exe,                             +
VENDAS.map,                             +
\FwH27\lib\FiveHX.Lib                   +
\FwH27\lib\FiveHC.Lib                   +
\FwH27\lib\FoldBmp32.lib                +
\xHarbour\Lib\Ace32.Lib                 +
\xHarbour\Lib\RddAds.Lib                +
\xHarbour\lib\hbzip.Lib                 +
\xHarbour\lib\rtl.Lib                   +
\xHarbour\lib\vm.Lib                    +
\xHarbour\lib\gtgui.Lib                 +
\xHarbour\lib\lang.Lib                  +
\xHarbour\lib\macro.Lib                 +
\xHarbour\lib\rdd.Lib                   +
\xHarbour\lib\dbfntx.Lib                +
\xHarbour\lib\dbfcdx.Lib                +
\xHarbour\lib\dbfdbt.Lib                +
\xHarbour\lib\debug.Lib                 +
\xHarbour\lib\common.Lib                +
\xHarbour\lib\tip.Lib                   +
\xHarbour\lib\pp.Lib                    +
\xHarbour\lib\dbffpt.Lib                +
\xHarbour\lib\codepage.Lib              +
\xHarbour\lib\libmisc.Lib               +
\xHarbour\lib\HbCt.Lib                  +
\xHarbour\lib\HbSix.Lib                 +
\xHarbour\lib\HbComm.Lib                +
\xHarbour\lib\PcRepos.Lib               +
\xHarbour\Lib\ct.Lib                    +
\Borland\Bcc55\lib\cw32.Lib             +
\Borland\Bcc55\lib\psdk\msimg32.Lib     +
\Borland\Bcc55\lib\psdk\odbc32.Lib      +
\Borland\Bcc55\lib\psdk\rasapi32.Lib    +
\Borland\Bcc55\lib\psdk\nddeapi.Lib     +
\Borland\Bcc55\lib\psdk\iphlpapi.Lib    +
\Borland\Bcc55\lib\import32.Lib,
PIZZAS.RES                              +
IMOBILIA.RES                            +
ESTACION.RES                            +
IMAGENS.RES                             +
XBLITE.RES
Jo茫o Santos - S茫o Paulo - Brasil - Phone: +55(11)95150-7341