Hola a todos...
Hoy comenc茅 a dar el salto desde FW2.4+xH0993 hacia FW7.07+xH0997.
Veo que los cambios han sido bastante significativos...
El script que hace referencia a las libs de xHarbour lo fu铆 cambiando por ensayo y error hasta que el linker dejo de dar errores por ese lado...
Luego a punta de cabezazos tuve que recompilar algunos fuentes en C puro por un error de una llamada a _hb_stack que se produc铆a desde esos m贸dulos...
Logr茅 generar el m贸dulo WBrwLine.obj, el cual es un componente de la clase TWBrowse de nuestro querido compa帽ero D.Cecarrelli, pero sin que me dejara de dar un mont贸n de mensajes de precauci贸n por prototipos no definidos...
La clase tSysInfo de Patrick Mast me dio un error que no supe resolver y comente esas l铆neas (las copio al final)...
Por ultimo... luego de recompilar todo lo que son clases y componentes de terceros y los Prg's me encuentro que la aplicaci贸n de prueba no corre sino que solo abre una ventana de consola sin nada dentro...
Entonces...
Que me est谩 faltanto??? o sobrando???
Ser谩 que me pueden facilitar un script para compilar fuentes en C puro y un script para el ILink32???
Para todo esto, aparte del BCC551, he estado utilizando la distribuci贸n de xHarbour 0.997 de FiveTechSoft.
De antemano... 1GB de Gracias por los comentarios.
Giancarlo J. Sabattino S.
Valencia, Venezuela
a continuaci贸n coloco los cambios que he implementado:
c:\BCC55\bin\BCC32.cfg:
-5
-d
-k-
-O1
-O2
-v-
-WC
-w-inl-
-6
-OS
-a8
-IC:\Bcc55\include;c:\xBase\xHarbour\0.997\Include;c:\xBase\FWH\Include
-LC:\Bcc55\lib;\xBase\xHarbour\0.997\Lib
-ljC:\Bcc55\lib;C:\Bcc55\lib\psdk
script para ILink32:
-aa -Tpe -s +
-I.\Obj32 +
-Lc:\xBase\xHARBOUR\0.997\LIB;C:\BCC55\LIB +
-j.\Obj32;C:\BCC55\LIB +
C:\BCC55\LIB\C0W32.OBJ +
Matric.OBJ +
Usuario.Obj +
MmtoGen.Obj +
Nominas.Obj +
Seguro.Obj +
CtlPagos.Obj +
Estadist.Obj +
Puentes.Obj +
Utils.OBJ +
tSysInfo.Obj +
tGet.OBJ +
Eagle.OBJ +
NetMngrW.OBJ +
PrnFnFW.Obj +
c:\xBase\FW\Clases\TWBrowse.HDC\17\Obj32\WBrowse.OBJ +
c:\xBase\FW\Clases\TWBrowse.HDC\17\Obj32\WBrwLine.OBJ +
c:\xBase\FWH\ObjxH0997\ErrSysW.OBJ +
c:\xBase\FWH\Obj32\ctcrypt.OBJ, +
.\LSG32.exe, +
.\Obj32\Matricula.map, +
c:\xBase\FWH\lib\FiveHc.lib +
c:\xBase\FWH\libxH0997\FivexH.lib +
c:\xBase\Eagle1\LibxH0997\Eagle1.Lib +
c:\xBase\Eagle1\Lib\Eagle1C.Lib +
c:\xBase\Eagle1\Lib\LibMySQL.Lib +
c:\BCC55\lib\psdk\odbc32.lib +
rtl.lib +
vm.lib +
common.lib +
gtwin.lib +
lang.lib +
macro.lib +
debug.lib +
rdd.lib +
dbfntx.lib +
dbfcdx.lib +
dbffpt.lib +
pp.lib +
hbsix.lib +
c:\bcc55\lib\CW32.LIB +
c:\bcc55\lib\IMPORT32.LIB,, +
.\Obj32\Matric.RES
los m贸dulos en C puro los compil茅 asi:
c:\BCC55\bin\bcc32.exe -P- -c -tW -Ic:\xBase\FWH\include;c:\xBase\FWH\ObjxH0997\include -DHARBOUR_USE_WIN_GTAPI -DHB_COMPAT_C53 Modulo.c
Parte de la Clase tSysInfo de Pactrick Mast que tuve que comentar:
METHOD Memory( nMem ) Class TSystemInfo
Local nRetu
ifdef HARBOUR
#pragma BEGINDUMP
#include "windows.h"
#pragma ENDDUMP
/* Comienza parte comentada
nRetu := HB_INLINE( nMem )
{
MEMORYSTATUS mst;
long nMem = hb_parnl(1);
mst.dwLength = sizeof( MEMORYSTATUS );
GlobalMemoryStatus( &mst );
switch( nMem )
{
case 1: hb_retnl( mst.dwTotalPhys / (1024*1024) ) ; break;
case 2: hb_retnl( mst.dwAvailPhys / (1024*1024) ) ; break;
case 3: hb_retnl( mst.dwTotalPageFile / (1024*1024) ) ; break;
case 4: hb_retnl( mst.dwAvailPageFile / (1024*1024) ) ; break;
case 5: hb_retnl( mst.dwTotalVirtual / (1024*1024) ) ; break;
case 6: hb_retnl( mst.dwAvailVirtual / (1024*1024) ) ; break;
default: hb_retnl( 0 ) ;
}
}
Finaliza parte comentada */
nRetu :=0
