Page 1 of 1

Errores con la Nueva Version FWPPC Octubre 2008

PostPosted: Tue Nov 04, 2008 12:57 pm
by softruz
Muy buenas Antonio, me he descargado la nueva version de FWPPC Octubre 2008 yal compilar los proyectos con dicha version me retorna los siguientes errores:

FiveCE.lib(COMBOBOX.obj) : error LNK2001: unresolved external symbol HB_FUN_ANSITOWIDE
FiveCE.lib(REG32.obj) : error LNK2001: unresolved external symbol HB_FUN_ANSITOWIDE
FiveCEC.lib(RECTS.obj) : error LNK2019: unresolved external symbol FrameRect referenced in function FrameDot
rtl.lib(gtsys.obj) : error LNK2019: unresolved external symbol HB_FUN_HB_GT_WIN referenced in function hb_gt_ForceLink_HB_GT_WIN
gtgui.lib(gtgui.obj) : error LNK2019: unresolved external symbol hb_gt_w32_tone referenced in function hb_gt_gui_Tone
gtgui.lib(gtgui.obj) : error LNK2019: unresolved external symbol hb_gt_w32_setKbdState referenced in function hb_gt_gui_Info
gtgui.lib(gtgui.obj) : error LNK2019: unresolved external symbol hb_gt_w32_getKbdState referenced in function hb_gt_gui_Info
gtgui.lib(gtgui.obj) : error LNK2019: unresolved external symbol hb_itemPutCLPtr referenced in function hb_gt_gui_Info
gtgui.lib(gtgui.obj) : error LNK2019: unresolved external symbol hb_gt_w32_getClipboard referenced in function hb_gt_gui_Info
gtgui.lib(gtgui.obj) : error LNK2019: unresolved external symbol hb_gt_w32_setClipboard referenced in function hb_gt_gui_Info
rtl.lib(seconds.obj) : error LNK2019: unresolved external symbol GetProcessTimes referenced in function hb_secondsCPU

¿Que puedo hacer para solucionar el problema?

Un Saludo.

PostPosted: Tue Nov 04, 2008 1:20 pm
by Antonio Linares
Tienes que enlazar la librería HBW32.lib de Harbour, y reemplazar GTWIN.lib con GTGUI.lib, de Harbour tambien

re:

PostPosted: Tue Nov 04, 2008 4:21 pm
by softruz
Muy buenas Antonio, me dá ma errores al añadir hbw32.lib, este es mi build.bat

set hdir=c:\harbour_CE
set vcdir=c:\vce
set include=%vcdir%\include\arm;%hdir%\include;c:\fwppc\include
set lib=%vcdir%\lib;%hdir%\lib;%lib%

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

%vcdir%\bin\clarm -TP -W3 -c /DARM /DUNICODE /I%hdir%\include /I..\..\include Almacen.c
:ENDCOMPILE

IF EXIST Almacen.rc %vcdir%\bin\rc -r -d_CE Almacen

echo Almacen.obj > msvc.tmp

echo ..\..\..\lib\FiveCE.lib ..\..\..\lib\FiveCEC.lib >> msvc.tmp
echo %hdir%\lib\rtl.lib >> msvc.tmp
echo %hdir%\lib\vm.lib >> msvc.tmp
echo %hdir%\lib\gtgui.lib >> msvc.tmp
echo %hdir%\lib\lang.lib >> msvc.tmp
echo %hdir%\lib\macro.lib >> msvc.tmp
echo %hdir%\lib\rdd.lib >> msvc.tmp
echo %hdir%\lib\dbfntx.lib >> msvc.tmp
echo %hdir%\lib\dbfcdx.lib >> msvc.tmp
echo %hdir%\lib\dbffpt.lib >> msvc.tmp
echo %hdir%\lib\hbsix.lib >> msvc.tmp
echo %hdir%\lib\debug.lib >> msvc.tmp
echo %hdir%\lib\common.lib >> msvc.tmp
echo %hdir%\lib\pp.lib >> msvc.tmp
echo %hdir%\lib\codepage.lib >> msvc.tmp
echo %hdir%\lib\HBW32.lib >> msvc.tmp

rem Uncomment these two lines to use Advantage RDD
rem echo %hdir%\lib\rddads.lib >> msvc.tmp
rem echo %hdir%\lib\ace32.lib >> msvc.tmp

echo %vcdir%\lib\arm\coredll.lib >> msvc.tmp
echo %vcdir%\lib\arm\corelibc.lib >> msvc.tmp
echo %vcdir%\lib\arm\aygshell.lib >> msvc.tmp
echo %vcdir%\lib\arm\ws2.lib >> msvc.tmp
echo %vcdir%\lib\arm\mfcce400.lib >> msvc.tmp
echo %vcdir%\lib\arm\ole32.lib >> msvc.tmp
echo %vcdir%\lib\arm\ceshell.lib >> msvc.tmp
echo %vcdir%\lib\arm\commctrl.lib >> msvc.tmp
echo %vcdir%\lib\arm\wininet.lib >> msvc.tmp

IF EXIST Almacen.res echo Almacen.res >> msvc.tmp

%vcdir%\bin\link @msvc.tmp /nologo /SUBSYSTEM:WINDOWSCE,4.20 /MACHINE:ARM

¿Que debo cambiar?

PostPosted: Tue Nov 04, 2008 5:32 pm
by Antonio Linares
> me dá ma errores al añadir hbw32.lib

Que errores son ?

Con FWPPC 8.10 ya usamos la versión más reciente de Harbour, en donde han cambiado muchos nombres de las librerías de Harbour. En tu fichero BAT sigues usando los nombres antiguos!

Por favor revisa FWPPC\samples\buildce.bat y actualiza los nombres de las librerías de Harbour que usas, gracias

Re:

PostPosted: Tue Nov 04, 2008 6:43 pm
by softruz
Muchas gracias Antonio, todo solucionado.

Un Saludo.

PostPosted: Tue Nov 04, 2008 7:00 pm
by Antonio Linares
bien! :-)

Mensaje con error GPF

PostPosted: Wed Nov 05, 2008 8:52 am
by softruz
Muy buenas Antonio, ahora cuando entro en un dialgo que funcionaba correctamente antes, ahora me sale un mensaje con el texto "GPF".

¿Que puede ser?

Un Saludo.

PostPosted: Wed Nov 05, 2008 10:03 am
by Antonio Linares
Es un diálogo de recurso ? Está creado desde código fuente ?

Que controles tiene el diálogo ?

Puedes copiar aqui su código ó una imagen del mismo ? gracias

Re:

PostPosted: Wed Nov 05, 2008 10:12 am
by softruz
Esta creado desde código, aquí tienes el código:

DEFINE FONT oFont1 NAME "Times New Roman" Size 0,12
DEFINE FONT oFont2 NAME "Times New Roman" Size 0,12 BOLD
DEFINE FONT oFont3 NAME "Times New Roman" Size 0,13

DEFINE WINDOW oWnd TITLE "Configuración" MENU BuildSinMenu()
DEFINE BITMAP oBmp FILE IMAGENES + "\fondo1.bmp"
@ 247, 190 BTNBMP FILE IMAGENES + "\aceptar.bmp" SIZE 19, 19 ACTION GuardarConf(cPrecio),oWnd:end()

@ 0.3,1 group aoGrp[1] TO 3.8,32 PROMPT "CODIGO DEL PRODUCTO" font oFont2 COLOR COLOR_FONDO
@ 0.8,2 say "Nivel 1:" OF aoGrp[1] SIZE 40, 15 font oFont2
@ 1.1,7 get aogets[1] var cdi:vNiv1 OF aoGrp[1] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,2 say "Nivel 2:" OF aoGrp[1] SIZE 40, 15 font oFont2
@ 2.4,7 get aogets[2] var cdi:vNiv2 OF aoGrp[1] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3

@ 0.8,15 say "Nivel 3:" OF aoGrp[1] SIZE 40, 15 font oFont2
@ 1.1,17 get aogets[3] var cdi:vNiv3 OF aoGrp[1] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,15 say "Nivel 4:" OF aoGrp[1] SIZE 40, 15 font oFont2
@ 2.4,17 get aogets[4] var cdi:vNiv4 OF aoGrp[1] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3

@ 4.2, 1 group aoGrp[2] TO 3.8,32 PROMPT "LONGITUD DE CÓDIGOS" font oFont2 COLOR COLOR_FONDO
@ 0.8,2 say "Cod. Barras:" OF aoGrp[2] SIZE 65, 15 font oFont2
@ 1.1,10 get aogets[5] var cdi:vCodBarras OF aoGrp[2] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,2 say "Cod. Lote:" OF aoGrp[2] SIZE 65, 15 font oFont2
@ 2.4,10 get aogets[6] var cdi:lLote OF aoGrp[2] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 0.8,18 say "C. Produc.:" OF aoGrp[2] SIZE 60, 15 font oFont2
@ 1.1,21 get aogets[7] var cdi:lPro OF aoGrp[2] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,18 say "C. Provee.:" OF aoGrp[2] SIZE 60, 15 font oFont2
@ 2.4,21 get aogets[6] var cdi:lProv OF aoGrp[2] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3

@ 8, 1 group aoGrp[3] TO 3.8,32 PROMPT "NÚMERO DE DOCUMENTOS" font oFont2 COLOR COLOR_FONDO
@ 0.8,2 say "Salidas:" of aoGrp[3] SIZE 50, 15 font oFont2
@ 1.1,8 get aogets[8] var cdi:lAlbANum OF aoGrp[3] SIZE 45,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,2 say "Entradas:" of aoGrp[3] SIZE 50, 15 font oFont2
@ 2.4,8 get aogets[9] var cdi:lFraANum OF aoGrp[3] SIZE 45,15 COLOR COLOR_GET1 CENTER font oFont3

@ 0.8,18.5 say "Compras:" of aoGrp[3] SIZE 50, 15 font oFont2
@ 1.1,21 get aogets[10] var cdi:lAlbBNum OF aoGrp[3] SIZE 45,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,18.5 say "Inventario:" of aoGrp[3] SIZE 50, 15 font oFont2
@ 2.4,21 get aogets[11] var cdi:lFraBNum OF aoGrp[3] SIZE 45,15 COLOR COLOR_GET1 CENTER font oFont3

@ 12, 1 group aoGrp[4] TO 5.5,32 PROMPT "" font oFont2 COLOR COLOR_FONDO
@ 0.8,2 say "Título:" of aoGrp[4] SIZE 50, 15 font oFont2
@ 1.1,9 get aogets[12] var cdi:vTitulo OF aoGrp[4] SIZE 142,15 COLOR COLOR_GET1 CENTER font oFont3
@ 1.95,2 say "Cod. Agt:" OF aoGrp[4] SIZE 50, 15 font oFont2
@ 2.4,9 get aogets[13] var cdi:lCodOpd OF aoGrp[4] PICTURE "99" SIZE 20,15 COLOR COLOR_GET1 CENTER font oFont3
@ 3.1,2 say "Precio:" OF aoGrp[4] SIZE 50, 15 font oFont2
@ 3.7,9 combobox aogets[14] var cPrecio of aoGrp[4] UPDATE ITEMS {"Si","No"} SIZE 40, 15 COLOR COLOR_GET1

ACTIVATE WINDOW oWnd MODAL ON PAINT (oWnd:sayBitmap( 0, 0, oBmp ),cursorwe()) ON INIT (aogets[1]:setfocus())
oBmp:End()
oFont1:End()
oFont2:End()
oFont3:End()

Un Saludo.

PostPosted: Wed Nov 05, 2008 1:34 pm
by Antonio Linares
Por favor, prueba a comentar varias secciones del código usando /* y */ hasta que localices la línea de donde viene el GPF, gracias

re:

PostPosted: Thu Nov 06, 2008 8:14 am
by softruz
Gracias Antonio lo pruebo y te comento.

Un Saludo.