Migrando a Harbour

[acuellar]

Hola amigos

Estoy migrando a Harbour 3.2 con FWH 12.12 y BCC630 y me da estos errores

Code: Select all  Expand view  RUN

Harbour 3.2.0dev (r1307082134)
Copyright (c) 1999-2013, http://harbour-project.org/
Embarcadero C++ 6.30 for Win32 Copyright (c) 1993-2010 Embarcadero Technologies, Inc.
Warning W8019 D:\SISTEMAS\COMPILER\BCC63\include\windows\winnt.h 14966: Code has no effect in function TpDestroyCallbackEnviron
Borland Resource Compiler  Version 5.40
Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved.
Turbo Incremental Link 6.10 Copyright (c) 1997-2010 Embarcadero Technologies, Inc.
Error: Unresolved external '_HB_FUN_HB_COMPILEFROMBUF' referenced from D:\SISTEMAS\COMPILER\FWH\LIB\FIVEH.LIB|HARBOUR
Error: Unable to perform link

MOVIES.EXE - 2 error(es), 1 advertencia(s)
 

Las librerías que enlazo son las sgtes

Code: Select all  Expand view  RUN

LIBS1 = $(FWH)\LIB\FiveH.lib $(FWH)\LIB\FiveHC.lib

LIBS2 = $(HPATHL)\hbrtl.lib $(HPATHL)\hbvm.lib $(HPATHL)\gtgui.lib $(HPATHL)\hblang.lib $(HPATHL)\hbmacro.lib $(HPATHL)\hbrdd.lib $(HPATHL)\rddntx.lib $(HPATHL)\rddcdx.lib $(HPATHL)\rddfpt.lib $(HPATHL)\hbsix.lib $(HPATHL)\hbdebug.lib $(HPATHL)\hbcommon.lib $(HPATHL)\hbpp.lib $(HPATHL)\hbcpage.lib $(HPATHL)\hbwin.lib $(HPATHL)\hbct.lib $(HPATHL)\hbziparc.lib $(HPATHL)\hbmzip.lib $(HPATHL)\hbzlib.lib $(HPATHL)\hbpcre.lib $(HPATHL)\minizip.lib $(HPATHL)\xHB.lib

LIBS3 = $(CPATHL)\cw32.lib $(CPATHL)\import32.lib $(CPATHL)\psdk\odbc32.lib $(CPATHL)\psdk\msimg32.lib $(CPATHL)\psdk\nddeapi.lib $(CPATHL)\psdk\iphlpapi.lib $(CPATHL)\psdk\psapi.lib $(CPATHL)\ws2_32.lib
 

Una ayudita porfa

Saludos,

Adhemar

[Antonio Linares]

Adhemar,

Tienes que enlazar la librería hbcplr.lib de Harbour y listo

Ya verás que maravilla es la capacidad que tiene Harbour de compilar y ejecutar desde él mismo. Esto se debe a que el compilador Harbour completo está dentro de esa librería con lo que puedes compilar y ejecutar desde tu propio EXE.

Si revisas nuestro ejemplo samples\FiveDBU.prg veras que hay una opción (al abrir las DBFs) que se llama "procesos". Desde ahí puedes escribir código en Harbour, compilarlo en tiempo de ejecución de tu EXE y ejecutarlo (sin usar nada externo). Esto permite unas posibilidades realmente increibles y para los que conozcais el concepto de los "ERPs" esto es lo mejor del mundo, puesto que la aplicación puede crecer tanto como se quiera, sencillamente permitiendo al usuario escribir código y asi ampliar la funcionalidad del EXE sin tener que construir un nuevo EXE

Es decir, un EXE construido con Harbour, tiene "dentro de él" al propio harbour.exe. Esto es genial

[acuellar]

Perfecto.

Gracias Antonio

Saludos,

Adhemar

[acuellar]

Amigos

Compilando otro sistema donde uso la Lib. TSBUTTON de Manuel Mercado me da éste error.

Code: Select all  Expand view  RUN

Error: Unresolved external '_HB_FUN___CLSACTIVE' referenced from D:\SISTEMAS\COMPILER\FWH\LIB\SBUTTONX.LIB|TSBUTTON
 

Antes ya he intentado reemplazar el SBUTTON x BTNBMP de FWH y no he tenido los mismo resultado.
Este código es el que quiero reemplazar, cómo seria con BTNBMP

Code: Select all  Expand view  RUN

 If lPuede
       REDEFINE SBUTTON oBtn ID xI+100 OF oDlgMnu RESOURCE "Boton","Boton2",,"Boton2","Boton1" PROMPT Menue->Item ACTION (&aAct,oDlgMnu:SetFocus());
       COLOR {|oBtn| If(oBtn:lPressed,CLR_GREEN,If(oBtn:lMouseOver,(BusFoto(vTab,xI),cMsg:=vMsg,oMsg:Refresh(),CLR_HBLUE),CLR_BLACK))}
       oBtn:SetText( Nil, 3,14,.T.)            
    Else
       REDEFINE SBUTTON oBtn ID xI+100 OF oDlgMnu RESOURCE "Boton","Boton2",,"Boton2","Boton1" PROMPT Menue->Item ;
       COLOR {|oBtn| If(oBtn:lPressed,CLR_GRAY,If(oBtn:lMouseOver,(BusFoto(vTab,xI),cMsg:=vMsg,oMsg:Refresh(),CLR_GRAY),CLR_GRAY))}
       oBtn:SetText( Nil, 3,14,.F.)
    ENDif
    oBtn:bGotFocus:= {|| cMsg:=vMsg,BusFoto(vTab,xI), oMsg:Refresh(), oBtn:Refresh() }
 

Gracias por la ayuda

Saludos,

Adhemar

[hmpaquito]

Me parece que no has recompilado con Harbour la libreria TSButton.Lib. Asegurate que esta recompilada. El unresolved __clsactive creo que es porque la TSButton.lib o alguno de sus modulos la tienes creada con xHarbour. Fijate especialmente en los modulos (fuentes) .c que se hayan recompilado.

[acuellar]

Gracias Distinguido

Ya compilé la Lib con Harbour pero me da éste error

Code: Select all  Expand view  RUN

Error: Unresolved external '_HB_FUN_SBTNPAINT' referenced from D:\SISTEMAS\COMPILER\FWH\LIB\SBUTTON.LIB|TSBUTTON
 

Enlace estos programas

Code: Select all  Expand view  RUN

0=D:\SISTEMAS\LIBRARY\TSBUTTON.PRG
1=D:\SISTEMAS\LIBRARY\TSBAR.PRG
2=D:\SISTEMAS\LIBRARY\TSRADIO.PRG
3=D:\SISTEMAS\LIBRARY\TSLINES.PRG
4=D:\SISTEMAS\LIBRARY\TSTSAY.PRG
5=D:\SISTEMAS\LIBRARY\BPAINT.C
 

Si alguien tiene la SBUTTON.LIB compilada con Harbour para que me la pase acuellar@lostajiboshotel.com
Seguiré intentando cambiar el SBUTTON x BTNBMP

Gracias

Saludos,

Adhemar

[postinelli]

Intenté migrar de xHarbour a Harbour, sin tocar nada y me dio los siguientes errores

programo y compilo con xEdit
FWH1312
BCC582


Enlazando Creditos.exe...
Error: Unresolved external '_hb_itemPutDTD' referenced from C:\HARBOUR2014\LIB\RDDADS.LIB|ads1
Error: Unresolved external '_hb_itemGetDTD' referenced from C:\HARBOUR2014\LIB\RDDADS.LIB|ads1
Error: Unresolved external '_hb_itemPutDTL' referenced from C:\HARBOUR2014\LIB\RDDADS.LIB|ads1
Error: Unresolved external '_hb_itemGetDTL' referenced from C:\HARBOUR2014\LIB\RDDADS.LIB|ads1
Error: Unresolved external '_HB_FUN_HB_SENDMAIL' referenced from Error: Unresolved external '_HB_FUN_TURL' referenced Error: Unresolved external '_HB_FUN_TIPCLIENTFTP' referenced from Error: Unresolved external '_HB_FUN_HB_GT_GUI_DEFAULT' referenced from C:\FWH1312\LIB\FIVEH.LIB|ERRSYSW
24 Files, 2850 Warnings, 8 Errors
Tiempo de compilación: 16.88s Tiempo de enlazado: 1.03s Tiempo total: 17.92s

[hmpaquito]

En BPaint.c esta la funcion que falta. Haz lo siguiente en esa funcion/ modulo:

Code: Select all  Expand view  RUN

#ifndef __HARBOUR__
       CLIPPER SBtnPaint( PARAMS )
#else
       HARBOUR HB_FUN_SBTNPAINT( PARAMS )
#endif

[Antonio Linares]

Postinelli,

Necesitas RDDADS.LIB construida para Harbour.

Seguro que algún usuario de ADS + Harbour podrá ayudarte, sino la encuentras yo la construiré

Enlaza tambien gtgui.lib de Harbour

[postinelli]

gracias por el dato

descargada la libreria rddads.lib desde aquí

https://code.google.com/p/harbour-and-x ... loads/list

ya compiló perfectamente

resumiendo, sin ningún cambio en mi código logré migrar de xHarbour a Harbour 3.2.0

la aplicación se ejecuta bien, por ahora ningún problema detectado

[Antonio Linares]

Muy bien !!!