[OT] Problemas con Harbour.

[OT] Problemas con Harbour.

Postby Carlos Mora » 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:

Code: Select all  Expand view  RUN
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.
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Carlos Mora » 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.
Last edited by Carlos Mora on Thu Apr 24, 2008 12:13 pm, edited 1 time in total.
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Antonio Linares » 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
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Carlos Mora » 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:

Code: Select all  Expand view  RUN
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
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby Carlos Mora » 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
Code: Select all  Expand view  RUN
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
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby Antonio Linares » Thu Apr 24, 2008 12:20 pm

Carlos,

Cámbialo así:
Code: Select all  Expand view  RUN
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
User avatar
Antonio Linares
Site Admin
 
Posts: 42160
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby Carlos Mora » 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.
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby Carlos Mora » Thu Apr 24, 2008 12:30 pm

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

Gracias.
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby Carlos Mora » 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?
Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby karinha » Thu Apr 24, 2008 12:52 pm

Cambia para:

Code: Select all  Expand view  RUN
\xHarbour\lib\gtgui.Lib
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7860
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby Carlos Mora » Thu Apr 24, 2008 2:05 pm

Hola Karinha

es que si pongo gtgui me aparece:

Code: Select all  Expand view  RUN
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

Carlos Mora
 
Posts: 989
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Postby karinha » Thu Apr 24, 2008 2:36 pm

Carlos Mora wrote:Hola Karinha

es que si pongo gtgui me aparece:

Code: Select all  Expand view  RUN
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
User avatar
karinha
 
Posts: 7860
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Postby karinha » Thu Apr 24, 2008 2:38 pm

//-> Como hago y funciona perfecto:

Code: Select all  Expand view  RUN
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
User avatar
karinha
 
Posts: 7860
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Next

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 35 guests