De Clipper a Harbour/xHarbour

[Manuel Aranda]

Estoy tratando de compilar/enlazar un sencillo prg en clipper para pasarlo a 32 bit en modo consola , con el siguiente build.bat que encontré en este foro para tal fín, he probado tanto con harbour como con xharbour y el resultado es que no se ve nada por pantalla aunque se crea el ejecutable. ¿Que estoy haciendo mal?

Code: Select all

@ECHO OFF
CLS

if A%1 == A GOTO :SINTAX
if NOT EXIST %1.prg GOTO :NOEXIST

ECHO Compiling...

set hdir=c:\harbour
set bcdir=c:\borland\bcc55\bin

%hdir%\bin\harbour %1 /n /i..\include;%hdir%\include /p %2 %3 > clip.log
@type clip.log
IF ERRORLEVEL 1 PAUSE
IF ERRORLEVEL 1 GOTO EXIT

echo -O2 -e%1.exe -I%hdir%\include %1.c > b32.bc
%bcdir%\bcc32 -M -c @b32.bc
:ENDCOMPILE

echo c0w32.obj + > b32.bc
echo %1.obj, + >> b32.bc
echo %1.exe, + >> b32.bc
echo %1.map, + >> b32.bc
echo %hdir%\lib\rtl.lib + >> b32.bc
echo %hdir%\lib\vm.lib + >> b32.bc
echo %hdir%\lib\gtwin.lib + >> b32.bc
echo %hdir%\lib\lang.lib + >> b32.bc
echo %hdir%\lib\macro.lib + >> b32.bc
echo %hdir%\lib\rdd.lib + >> b32.bc
echo %hdir%\lib\dbfntx.lib + >> b32.bc
echo %hdir%\lib\dbfcdx.lib + >> b32.bc
echo %hdir%\lib\dbffpt.lib + >> b32.bc
echo %hdir%\lib\hbsix.lib + >> b32.bc
echo %hdir%\lib\debug.lib + >> b32.bc
echo %hdir%\lib\common.lib + >> b32.bc
echo %hdir%\lib\pp.lib + >> b32.bc
echo %hdir%\lib\codepage.lib + >> b32.bc

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib + >> b32.bc  
rem echo %hdir%\lib\ace32.lib + >> b32.bc

echo %bcdir%\lib\cw32.lib + >> b32.bc
echo %bcdir%\lib\import32.lib, >> b32.bc

ECHO * 
ECHO Linking...
%bcdir%\ilink32 -Gn -Tpe -s @b32.bc

rem delete temporary files
rem @del %1.c

IF ERRORLEVEL 1 GOTO LINKERROR
ECHO * Application successfully built
%1
GOTO EXIT
ECHO

:LINKERROR
rem PAUSE * Linking errors *
GOTO EXIT

:SINTAX
ECHO    SYNTAX: Build [Program]     {-- No especifiques la extensi¢n PRG
ECHO                                {-- Don't specify .PRG extension
GOTO EXIT

:NOEXIST
ECHO The specified PRG %1 does not exist

:EXIT

[Antonio Linares]

Manuel,

En principio debería funcionar bien. Prueba con un pequeño ejemplo y recuerda hacer scroll verticalmente, por si la salida a pantalla se realiza más hacia abajo.

[Manuel Aranda]

Hola Antonio:

Ya lo probé con un pequeño ejemplo, y nada, tanto con Harbour como con xHarbour se crea el exe pero solo aparece una ventana negra al ejecutarlo. ¿Te importaría probarlo? Gracias.

Un saludo,
Manuel

[Antonio Linares]

Manuel,

Lo hemos probado con el Harbour más reciente del CVS y funciona bien. El ejemplo es harbour\tests\clasname.prg:

[Manuel Aranda]

Pues no me lo explico, pues con la misma versión de Harbour, el mismo build.bat y el mismo prg los resultados son distintos. He probado el ejecutable en dos sistemas con XP y en otro con W98 y no funciona. ¿¿¿???

[Antonio Linares]

Manuel,

Te envio por email el build que he usado.

[Manuel Aranda]

Disculpa Antonio, ¿te importaría enviarmelo de nuevo a mareli@tiscali.es ?
Tenia el e-mail desactualizado en el perfíl. Ya lo corregí.

Saludos y gracias.
Manuel

[Antonio Linares]

Manuel,

Enviado,

[goosfancito]

Disculpa Antonio, ¿te importaría enviarmelo de nuevo a mareli@tiscali.es ?
Tenia el e-mail desactualizado en el perfíl. Ya lo corregí.

Saludos y gracias.
Manuel

No probaste usar el xmate?

[Manuel Aranda]

Gracias Goosfancito, ya lo creo que he probado xMate pero tampoco. Me marcar los siguientes errores:

Code: Select all

Error: Unresolved external '_hb_sxDeCrypt' referenced from C:\HARBOUR\LIB\RDD.LIB|dbf1
Error: Unresolved external '_hb_sxPtoD' referenced from C:\HARBOUR\LIB\RDD.LIB|dbf1
Error: Unresolved external '_hb_sxDtoP' referenced from C:\HARBOUR\LIB\RDD.LIB|dbf1
Error: Unresolved external '_hb_sxEnCrypt' referenced from C:\HARBOUR\LIB\RDD.LIB|dbf1
Error: Unresolved external '_HB_FUN_DBFFPT' referenced from C:\HARBOUR\LIB\RDD.LIB|rddsys
Info: Link time = 0.36 seconds

Creo que pudiera tratarse de las lib C:\Harbour\dbffpt.lib y
C:\Harbour\hbsix.lib.
Mi pregunta es: pueden incluirse estas librerias tocando algún fichero de xMate? No he logrado encontrar el fichero de configuración.

Un saludo,
Manuel

[carlos vargas]

la forma rapida y simple es que agreges esas dos librerias a tu propyecto.
en xmate.

lo mas seguro es editar el entorno y en la pestaña del exe agregar esas librerias.



salu2
carlos vargas

[Manuel Aranda]

Gracias Carlos, no había caido en cuenta que podría hacerlo así. De cualquier manera, aunque he conseguido compilar/enlazar sin fallos los resultados siguen siendo los mismos que con el bat: Se crea el ejecutable pero no veo nada por pantalla.

Un saludo,
Manuel

[carlos vargas]

de ser posible enviame el prg para ver que pasa.

una sugerencia, cuando uses modo consola, usa

Code: Select all

#include "misincludes.ch"

/*programa principal*/
procedure Main()
  ....
  SetMode(25,80)
  Alert("Hola Mundo :-)")   /`/para comprobar
  ....
return

Ademas debes verificar que se este usando gtwin.lib y no otra lib como gtgui.lib (esta se usa soloamente en fwh y otras librerias gui)

[Manuel Aranda]

Gracias por contestar, Carlos, pero no hay manera. Te importaría compilar\enlazar\ejecutar harbour\tests\build clasname.prg a ver que resultados obtienes tú? Más arriba puedes ver un pantallazo de mi resultado y el resultado de Antonio Linares, obviamente debo tener algo mal configurado, aunque no se lo que es pues he utilizado el build de harbour que Antonio me envió. Repito que el ejecutable se crea pero sin resultados visibles al ejecutarlo.

Un saludo.
Manuel

[sildata]

recien leo tu inquietud por el problema, de programacion que te aflige, yo lo solucione modificando los flags del ILINK32 en el build*.bat
saludos rodolfo
sildata@cantv.net