topic-29956

Board index FiveWin para Harbour/xHarbour Ayuda con Errores con Harbour

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Ayuda con Errores con Harbour
Posted: Sun Jan 11, 2015 04:03 PM

Saludos a Forum
Con xHarbour Funciona Bien, Al compilarlo con Harbour me da esto errores
Anexo el LInk de compilacion con Errores
No se Que libreria me Falta

Code (fw): Select all Collapse

MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
    echo off
    echo \bcc582\lib\c0x32.obj + > b32.bc
    echo .\obj\PXPMENU.obj  .\obj\PXP0013.obj  .\obj\PXPASIG.obj  .\obj\PXPASIG1.obj  .\obj\PXPASIGa.obj  .\obj\PXPASIG1a.obj  .\obj\PXPBR27.obj  .\obj\PXPBRXX.obj  .\obj\PXPBRXXa.obj  .\obj\PXPTB04.obj  .\obj\PXPTB04a.obj  .\obj\PXPTBROW.obj  .\obj\PXPCONDI.obj  .\obj\PXPCOND1.obj  .\obj\PXPRESQL_1.obj  .\obj\PXPRESQL_1a.obj  .\obj\PXP100.obj  .\obj\PXP101.obj  .\obj\PXP102.obj  .\obj\PXP110.obj  .\obj\PXP200.obj  .\obj\PXP210.obj  .\obj\PXP300.obj  .\obj\PXP301.obj  .\obj\PXP302.obj  .\obj\PXP303.obj  .\obj\PXP304.obj  .\obj\PXP305.obj  .\obj\PXP306.obj  .\obj\PXP307.obj  .\obj\PXP308.obj  .\obj\PXP309.obj  .\obj\PXP310.obj  .\obj\PXP311.obj  .\obj\PXP312.obj  .\obj\PXP313.obj  .\obj\PXP320.obj  .\obj\PXP321.obj  .\obj\PXP322.obj  .\obj\PXP323.obj  .\obj\PXP324.obj  .\obj\PXP330.obj  .\obj\PXP400.obj  .\obj\PXP401.obj  .\obj\PXP403.obj  .\obj\PXP404.obj  .\obj\PXP405.obj  .\obj\PXP406.obj  .\obj\PXP407.obj  .\obj\PXP408.obj  .\obj\PXP409.obj  .\obj\PXP440.obj  .\obj\PXP441.obj  .\obj\PXP442.obj  .\obj\PXP450.obj  .\obj\PXP451.obj  .\obj\PXP452.obj  .\obj\PXP453.obj  .\obj\PXP454.obj  .\obj\PXP460.obj  .\obj\PXP500.obj  .\obj\PXP501.obj  .\obj\PXP502.obj  .\obj\PXP503.obj  .\obj\PXP504.obj  .\obj\PXP505.obj  .\obj\PXP510.obj  .\obj\PXP600.obj  .\obj\PXP601.obj  .\obj\PXP602.obj  .\obj\PXP603.obj  .\obj\PXP604.obj  .\obj\PXP610.obj  .\obj\PXP700.obj  .\obj\PXP701.obj  .\obj\PXP702.obj  .\obj\PXP800.obj  .\obj\PXP801.obj  .\obj\PXP802.obj  .\obj\PXP803.obj  .\obj\PXP804.obj  .\obj\PXP4000.obj  .\obj\PXP4001.obj  .\obj\PXP4002.obj  .\obj\PXP4003.obj  .\obj\PXP4003A.obj  .\obj\PXP4004.obj  .\obj\PXP5000.obj  .\obj\PXP5001.obj  .\obj\PXP5010.obj  .\obj\PXP5011.obj  .\obj\PXP7000.obj  .\obj\PXP7001.obj  .\obj\PXP7002.obj  .\obj\PXP9000.obj  .\obj\PXP9001.obj  .\obj\PXP1065.obj  .\obj\PXP1071.obj  .\obj\PXP3010.obj  .\obj\PXP3011.obj  .\obj\PXPCARGA.obj  .\obj\CXCASIG.obj  .\obj\CXCASIG1.obj  .\obj\CXCASIGa.obj  .\obj\CXCASIG1a.obj  .\obj\CXC1431.obj  .\obj\CXC403.obj  .\obj\CXC404.obj  .\obj\CXC405.obj  .\obj\CXC406.obj  .\obj\CXC407.obj  .\obj\CXC408.obj  .\obj\CXC501.obj  .\obj\CXC602.obj  .\obj\CXCTBR27.obj  .\obj\NXNASIG.obj  .\obj\NXNASIG1.obj  .\obj\NXNASIGa.obj  .\obj\NXNASIG1a.obj  .\obj\NXNTBRO.obj  .\obj\NXN400.obj  .\obj\NXN500.obj  .\obj\NXN501.obj  .\obj\NXN600.obj  .\obj\NXN610.obj  .\obj\NXN611.obj  .\obj\NXN612.obj  .\obj\NXN613.obj  .\obj\NXN614.obj  .\obj\NXN615.obj  .\obj\NXN700.obj  .\obj\NXN1000.obj  .\obj\NXN1001.obj  .\obj\NXN1002.obj  .\obj\NXN1003.obj  .\obj\NXN1004.obj  .\obj\NXN1005.obj  .\obj\NXN1050.obj  .\obj\NXN1051.obj  .\obj\NXN1431.obj  .\obj\NXN2040.obj  .\obj\NXNTBROW.obj  .\obj\NXNTBR21.obj  .\obj\CONASIG.obj  .\obj\CONASIG1.obj  .\obj\CONASIGa.obj  .\obj\CONASIG1a.obj  .\obj\CONTBR28.obj  .\obj\CONT502.obj  .\obj\CONT503.obj  .\obj\CONT510.obj  .\obj\CONT1050.obj  .\obj\CONT1080.obj  .\obj\CONT1081.obj  .\obj\PXPFunc_1.obj  .\obj\PXPFunc_2.obj  .\obj\PXPFunc_3.obj  .\obj\PXPFunc_4.obj  .\obj\PXPClases.obj  .\obj\PXPClavag.obj  .\obj\s3meta2.obj  .\obj\PXPFASTR_1.obj  .\obj\PXPEYSAREP_1.obj  .\obj\PXPFUNCIONES.obj  .\obj\PXP_CLASE.obj  .\obj\PXP1030.obj  .\obj\TEST_DAT.obj  .\obj\CALENDAR.obj  .\obj\PPOR_1.obj  .\obj\PDOS_1.obj  .\obj\PDOSCLI_1.obj  .\obj\CLASERUB_DOS.obj  .\obj\CLIPRT.obj  .\obj\TXTVIEW.obj  .\obj\PCLASRPV.obj , + >> b32.bc
    echo plasmenu.exe, + >> b32.bc
    echo plasmenu.map, + >> b32.bc
    echo \fwh\lib\FiveH.lib \fwh\lib\FiveHC.lib + >> b32.bc
    echo \harbour\lib\hblang.lib + >> b32.bc
    echo \harbour\lib\hbvm.lib + >> b32.bc
    echo \harbour\lib\hbrtl.lib + >> b32.bc
    echo \harbour\lib\hbrdd.lib + >> b32.bc
    echo \harbour\lib\hbmacro.lib + >> b32.bc
    echo \harbour\lib\hbpp.lib + >> b32.bc
    echo \harbour\lib\rddntx.lib + >> b32.bc
    echo \harbour\lib\rddcdx.lib + >> b32.bc
    echo \harbour\lib\rddfpt.lib + >> b32.bc
    echo \harbour\lib\hbcommon.lib + >> b32.bc
    echo \harbour\lib\gtwin.lib + >> b32.bc 
    echo \harbour\lib\hbcpage.lib + >> b32.bc
    echo \harbour\lib\hbct.lib + >> b32.bc
    echo \harbour\lib\hbtip.lib + >> b32.bc 
    echo \harbour\lib\hbpcre.lib + >> b32.bc
    echo \harbour\lib\hbhsx.lib + >> b32.bc 
    echo \harbour\lib\hbsix.lib + >> b32.bc 
    echo \harbour\lib\hbdebug.lib + >> b32.bc
    echo \harbour\lib\hbhpdf.lib + >> b32.bc 
    echo \harbour\lib\png.lib + >> b32.bc
    echo \harbour\lib\hbzlib.lib + >> b32.bc
    echo \harbour\lib\hbnf-bcc.lib + >> b32.bc
    echo \bcc582\lib\cw32.lib + >> b32.bc
    echo \bcc582\lib\import32.lib + >> b32.bc
    echo \bcc582\lib\psdk\odbc32.lib + >> b32.bc
    echo \bcc582\lib\psdk\nddeapi.lib + >> b32.bc
    echo \bcc582\lib\psdk\iphlpapi.lib + >> b32.bc
    echo \bcc582\lib\psdk\msimg32.lib + >> b32.bc
    echo \bcc582\lib\psdk\rasapi32.lib + >> b32.bc
    echo \bcc582\lib\psdk\psapi.lib + >> b32.bc
    echo \v_xharb\lib\Harb\librub_h.lib + >> b32.bc
    echo \v_xharb\lib\Harb\librub1_h.lib + >> b32.bc
    echo \v_xharb\lib\Harb\grump_h.lib + >> b32.bc
    echo \v_xharb\lib\Harb\libsuper_h.lib + >> b32.bc
    echo \v_xharb\lib\Harb\librepo_h.lib + >> b32.bc
    echo \v_xharb\lib\Harb\filexls_h.lib + >> b32.bc
    echo \v_xharb\lib\Harb\librxls_h.lib + >> b32.bc
    echo \v_xharb\lib\Harb\dolphin_h.lib + >> b32.bc
    echo \v_xharb\lib\Harb\libmysql.lib + >> b32.bc
    echo \v_xharb\lib\Harb\EasyRep_h.lib >> b32.bc
    \bcc582\bin\ilink32 -Gn -M -m -s -Tpe -x -ap @b32.bc
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_CTOT' referenced from K:\FWH\LIB\FIVEH.LIB|VALBLANK
Error: Unresolved external '_HB_FUN_HHASKEY' referenced from K:\FWH\LIB\FIVEH.LIB|FWDECODE
Error: Unresolved external '_HB_FUN_ANSITOWIDE' referenced from K:\FWH\LIB\FIVEH.LIB|TGET
Error: Unresolved external '_HB_FUN_TTOS' referenced from K:\FWH\LIB\FIVEH.LIB|PRV2PDF
Error: Unresolved external '_HB_FUN_DATETIME' referenced from K:\FWH\LIB\FIVEH.LIB|PRV2PDF
Error: Unresolved external '_HB_FUN_GETACTIVEOBJECT' referenced from K:\FWH\LIB\FIVEH.LIB|OLEFUNCS
Error: Unresolved external '_HB_FUN_CREATEOBJECT' referenced from K:\FWH\LIB\FIVEH.LIB|OLEFUNCS
Error: Unresolved external '_HB_FUN_TOLEAUTO' referenced from K:\FWH\LIB\FIVEH.LIB|OLEFUNCS
Error: Unresolved external '_HB_FUN___OLEVARIANTNEW' referenced from K:\FWH\LIB\FIVEH.LIB|OLEFUNCS
Error: Unresolved external '_HB_FUN_HB_DECODE' referenced from K:\FWH\LIB\FIVEH.LIB|XBROWSE
Error: Unresolved external '_HB_FUN_WILDMATCH' referenced from K:\FWH\LIB\FIVEH.LIB|XBROWSE
Error: Unresolved external '_HB_FUN_NUMTOHEX' referenced from K:\FWH\LIB\FIVEH.LIB|XBROWSE
Error: Unresolved external '_HB_FUN_STRTOHEX' referenced from K:\FWH\LIB\FIVEH.LIB|XBROWSE
Error: Unresolved external '_HB_FUN_HEXTOSTR' referenced from K:\FWH\LIB\FIVEH.LIB|XBROWSE
Error: Unresolved external '_HB_FUN___OLEGETACTIVEOBJECT' referenced from K:\V_XHARB\LIB\HARB\DOLPHIN_H.LIB|tdolpexp
Error: Unresolved external '_HB_FUN___OLECREATEOBJECT' referenced from K:\V_XHARB\LIB\HARB\DOLPHIN_H.LIB|tdolpexp
Error: Unresolved external '_HB_FUN_HB_DUMPVAR' referenced from K:\V_XHARB\LIB\HARB\DOLPHIN_H.LIB|tdolpqry
Error: Unresolved external '_HB_FUN_HB_COMPILEFROMBUF' referenced from K:\FWH\LIB\FIVEH.LIB|HARBOUR
Error: Unresolved external '_HB_FUN_NOTIFY' referenced from K:\FWH\LIB\FIVEH.LIB|WINDOW
Error: Unresolved external '_HB_FUN_HB_GT_GUI_DEFAULT' referenced from K:\FWH\LIB\FIVEH.LIB|ERRSYSW

** error 2 ** deleting plasmenu.exe

K:\v_xharb>if errorlevel 0 plasmenu.exe

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Ayuda con Errores con Harbour
Posted: Sun Jan 11, 2015 05:38 PM

viewtopic.php?f=3t=28666p=161821hilit=VALBLANK#p161821

&&&

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Ayuda con Errores con Harbour
Posted: Sun Jan 11, 2015 09:12 PM

cnavarro wrote:http://forums.fivetechsupport.com/viewtopic.php?f=3&t=28666&p=161821&hilit=VALBLANK#p161821

Gracias por Su Informacion
Ya Construyo el Ejecutable
Amumente estas Librerias
xhb.lib
hbcplr.lib
hbwin.lib
gtgui.lib
Pero Se cuelga y no Muestra nada
Se cuelga con este codigo
WHILE .T.
@ MAXROW(),00 SAY CENTER( MESAG_MENU ) COLOR "W+/B"
MENUMODAL( oPmen, 1, MAXROW(), 0, MAXCOL()+1,"W+/B")
END

Con xHarbour si funciona

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: Ayuda con Errores con Harbour
Posted: Sun Jan 11, 2015 09:48 PM

Ruben, que hace la funcion MENUMODAL?
Lo tienes en un bucle sin fin, si retorna una variable logica, esa seria la condicion del Do While

Code (fw): Select all Collapse

lSw  := .T.
Do While lSw

lSw := MENUMODAL( ....

Enddo

ruben Dario

Posts: 1078

Joined: Thu Sep 27, 2007 03:47 PM

Re: Ayuda con Errores con Harbour
Posted: Sun Jan 11, 2015 11:51 PM

cnavarro wrote:Ruben, que hace la funcion MENUMODAL?
Lo tienes en un bucle sin fin, si retorna una variable logica, esa seria la condicion del Do While
Code (fw): Select all Collapse
lSw  := .T.
Do While lSw

lSw := MENUMODAL( ....

Enddo

Saludos
Es para mostrar un Menu, Tipo texto como en clipper, Tengo una plaicacion en xHarbour y Lo estoy pasando a Harbour , volverla Grafica,
Te anexo Imagen, como lo ejecuta con xHarbour, con Harbour debe ser lo mismo
Lo que he visto tengo que hacer cambios, ya que hay ciertas instrucicones que cambian de nombre.
Te anexo imagen como muestra el menum se gusta te doy el codigo como funciona

Code (fw): Select all Collapse

#include "Button.ch"
   #include "Inkey.ch"

   PROCEDURE Main
      LOCAL oTopBar := CreateMainMenu()

      CLS

      DO WHILE .T.
         MenuModal( oTopBar , 1, ;
                    MaxRow(), 0, MaxCol(), ;
                    oTopBar:colorSpec )
      ENDDO
   RETURN


   FUNCTION CreateMainMenu()
      LOCAL oMainMenu  := TopBarMenu():new( 0, 0, MaxCol() )
      LOCAL bMenuBlock := {|o| MenuSelect(o) }
      LOCAL cMenuColor := "N/BG,W+/R,GR+/BG,GR+/R,N+/BG,N/BG"
      LOCAL aItems

      oMainMenu:colorSpec := cMenuColor

      aItems := { ;
         { " &Open "     , K_ALT_O   , "Open routine"  , 11 }, ;
         { " &Save "     , K_ALT_S   , "Save routine"  , 12 }, ;
         { MENU_SEPARATOR,           ,                 , 13 }, ;
         { " E&xit "     , K_ALT_X   , "Exit program"  , 14 }  ;
      }

      CreateSubMenu( oMainMenu, " &File ", bMenuBlock, aItems )

      aItems := { ;
         { " Cop&y   "   , K_CTRL_INS, "Copy routine"  , 21 }, ;
         { " &Paste  "   , K_SH_INS  , "Paste routine" , 22 }, ;
         { MENU_SEPARATOR,           ,                 , 23 }, ;
         { " C&ut    "   , K_SH_DEL  , "Cut routine"   , 24 }, ;
         { " &Delete "   , K_DEL     , "Delete routine", 25 }  ;
      }

      CreateSubMenu( oMainMenu, " &Edit ", bMenuBlock, aItems )

      aItems := { ;
         { " &Info   "   , K_F1      , "Help routine"  , 31 }, ;
         { " &About  "   ,           , "About program" , 32 }  ;
      }

      CreateSubMenu( oMainMenu, " &Help ", bMenuBlock, aItems )

   RETURN oMainMenu


   FUNCTION CreateSubMenu( oMenu, cMenuItem, bBlock, aItems )
      LOCAL aItem, oItem, oSubMenu

      oSubMenu           := PopUp():new()
      oSubMenu:colorSpec := oMenu:colorSpec

      FOR EACH aItem IN aItems
         oItem := MenuItem():new( aItem[1], ;
                                  bBlock  , ;
                                  aItem[2], ;
                                  aItem[3], ;
                                  aitem[4]  )
         oSubMenu:addItem ( oItem )
      NEXT

      oItem := MenuItem():new( cMenuItem, oSubMenu )
      oMenu:addItem( oItem )
   RETURN


   PROCEDURE MenuSelect( oMenuItem )
      @ 1, 0 CLEAR TO MaxRow(), MaxCol()

      SWITCH oMenuItem:ID
      CASE 14
         ExitRoutine() ; EXIT
      DEFAULT
         Alert( oMenuItem:message )
      END
   RETURN


   PROCEDURE ExitRoutine
      IF Alert( "Exit program?", { "Yes", "No" } ) == 1
         QUIT
      ENDIF
   RETURN

https://www.dropbox.com/s/qznjl8ak0oube ... 1.jpg?dl=0
" rel="noopener">
https://www.dropbox.com/s/qznjl8ak0oube ... 1.jpg?dl=0

Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

FiveTech Support Forums

Continue the discussion