FiveTech Software tech support forums

www.FiveTechSoft.com

Skip to content

Ayuda con Errores con Harbour

Post a reply

Ayuda con Errores con Harbour

Postby ruben Dario » Sun Jan 11, 2015 4: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: 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

 
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
ruben Dario
 
Posts: 1064
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia
Top

Re: Ayuda con Errores con Harbour

Postby cnavarro » Sun Jan 11, 2015 5:38 pm

viewtopic.php?f=3&t=28666&p=161821&hilit=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
User avatar
cnavarro
 
Posts: 6504
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Top

Re: Ayuda con Errores con Harbour

Postby ruben Dario » Sun Jan 11, 2015 9: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
User avatar
ruben Dario
 
Posts: 1064
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia
Top

Re: Ayuda con Errores con Harbour

Postby cnavarro » Sun Jan 11, 2015 9: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: Select all  Expand view

lSw  := .T.
Do While lSw

lSw := MENUMODAL( ....

Enddo
 
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
User avatar
cnavarro
 
Posts: 6504
Joined: Wed Feb 15, 2012 8:25 pm
Location: España
Top

Re: Ayuda con Errores con Harbour

Postby ruben Dario » 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: 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]
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com
User avatar
ruben Dario
 
Posts: 1064
Joined: Thu Sep 27, 2007 3:47 pm
Location: Colombia
Top
Post a reply

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 114 guests

Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group