topic-28731

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Migrando a Harbour
Posted: Mon Jun 23, 2014 09:00 PM

Hola amigos

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

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 (fw): Select all Collapse

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

Saludos,

Adhemar C.

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Migrando a Harbour
Posted: Mon Jun 23, 2014 09:12 PM

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 :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Migrando a Harbour
Posted: Mon Jun 23, 2014 09:22 PM

Perfecto.

Gracias Antonio

Saludos,

Adhemar

Saludos,

Adhemar C.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Migrando a Harbour
Posted: Tue Jun 24, 2014 04:24 PM

Amigos

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

Code (fw): Select all Collapse

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 (fw): Select all Collapse

 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

Saludos,

Adhemar C.

hmpaquito

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Migrando a Harbour
Posted: Tue Jun 24, 2014 04:33 PM

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

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Migrando a Harbour
Posted: Tue Jun 24, 2014 05:52 PM

Gracias Distinguido

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

Code (fw): Select all Collapse

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

Enlace estos programas

Code (fw): Select all Collapse

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

Saludos,

Adhemar C.

postinelli

Posts: 150

Joined: Tue Jul 15, 2008 07:12 PM

Re: Migrando a Harbour
Posted: Tue Jun 24, 2014 06:22 PM

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

Posts: 1515

Joined: Thu Oct 30, 2008 02:37 PM

Re: Migrando a Harbour
Posted: Wed Jun 25, 2014 07:32 AM

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

Code (fw): Select all Collapse

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

Antonio Linares

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Migrando a Harbour
Posted: Wed Jun 25, 2014 10:20 AM

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

regards, saludos

Antonio Linares
www.fivetechsoft.com

postinelli

Posts: 150

Joined: Tue Jul 15, 2008 07:12 PM

Re: Migrando a Harbour
Posted: Wed Jun 25, 2014 12:06 PM

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

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Re: Migrando a Harbour
Posted: Wed Jun 25, 2014 12:13 PM

Muy bien !!! :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion