FiveTech Software tech support forums

www.FiveTechSoft.com
https://forums.fivetechsupport.com/

Ayuda con Errores con Harbour

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=29956

Page 1 of 1

Ayuda con Errores con Harbour

PostPosted: Sun Jan 11, 2015 4:03 pm
by ruben Dario
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: Select all  Expand view

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

 

Re: Ayuda con Errores con Harbour

PostPosted: Sun Jan 11, 2015 5:38 pm
by cnavarro
viewtopic.php?f=3&t=28666&p=161821&hilit=VALBLANK#p161821

Re: Ayuda con Errores con Harbour

PostPosted: Sun Jan 11, 2015 9:12 pm
by ruben Dario
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

Re: Ayuda con Errores con Harbour

PostPosted: Sun Jan 11, 2015 9:48 pm
by cnavarro
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: Select all  Expand view

lSw  := .T.
Do While lSw

lSw := MENUMODAL( ....

Enddo
 

Re: Ayuda con Errores con Harbour

PostPosted: Sun Jan 11, 2015 11:51 pm
by ruben Dario
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: Select all  Expand view

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: Select all  Expand view

#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

 



[url]
https://www.dropbox.com/s/qznjl8ak0oube ... 1.jpg?dl=0
[/url]
All times are UTC
Page 1 of 1
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/