FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Presentando fivedit de FiveTech
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 08:51 AM
Joao,

karinha wrote:" rel="noopener">


Parece que tienes un error en FiveWin.ch. Intenta compilar desde una ventana de MsDos.
regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 11:09 AM

Master, yo compilo el mismo proyecto via prompt de comando(msdos) com un COMP.BAT y COMP.LNK e funciona perfecto.

Gracias, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 12:13 PM
Master ahora, ni TUTOR04.PRG compila, estoy haciendo corrcto?



Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 12:32 PM
master, FIVEDIT.BAT, codepage.lib está visible, mas mismo por el prompt de comando(msdos) no encuentra CODEPAGE.LIB

Code (fw): Select all Collapse
c:\xhb280714\bin\harbour TUTOR04 /ic:\xhb280714\include;c:\fwh1306\include /n /w > comp1.log 2> comp2.log
if errorlevel 0 c:\bcc582\bin\bcc32 -c -Ic:\xhb280714\include TUTOR04.c
if errorlevel 0 c:\bcc582\bin\ilink32 -Gn -aa -Tpe -s c:\bcc582\lib\c0w32.obj TUTOR04.obj, TUTOR04.exe, TUTOR04.map, c:\fwh1306\lib\fivehx.lib c:\fwh1306\lib\fivehc.lib c:\fwh1306\lib\C:\XHB280714\lib\codepage.lib c:\xhb280714\lib\gtgui.lib c:\xhb280714\lib\rtl.lib c:\xhb280714\lib\vm.lib c:\xhb280714\lib\lang.lib c:\xhb280714\lib\macro.lib c:\xhb280714\lib\rdd.lib c:\xhb280714\lib\dbfntx.lib c:\xhb280714\lib\dbfcdx.lib c:\xhb280714\lib\dbffpt.lib c:\xhb280714\lib\hbsix.lib c:\xhb280714\lib\debug.lib c:\xhb280714\lib\common.lib c:\xhb280714\lib\pp.lib c:\xhb280714\lib\ct.lib c:\xhb280714\lib\pcrepos.lib c:\xhb280714\lib\hbzip.lib c:\xhb280714\lib\zlib.lib c:\xhb280714\lib\png.lib c:\bcc582\lib\cw32.lib c:\bcc582\lib\uuid.lib c:\bcc582\lib\import32.lib c:\bcc582\lib\psdk\odbc32.lib c:\bcc582\lib\psdk\nddeapi.lib c:\bcc582\lib\psdk\msimg32.lib c:\bcc582\lib\psdk\psapi.lib c:\bcc582\lib\psdk\rasapi32.lib c:\bcc582\lib\psdk\gdiplus.lib c:\bcc582\lib\psdk\shell32.lib  > link.log


Link.log - compilando por el prompt de comando(msdos)

Code (fw): Select all Collapse
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'CODEPAGE.LIB'


Gracias, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 12:43 PM
Master, mira que aca tien un error

Code (fw): Select all Collapse
c:\fwh1306\lib\fivehx.lib c:\fwh1306\lib\fivehc.lib c:\fwh1306\lib\C:\XHB280714\lib\codepage.lib


Esto esta a+ ???

c:\fwh1306\lib\C:\XHB280714\lib\codepage.lib ???

???

Gracias, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 12:57 PM
master, revisa esto porfa:

Code (fw): Select all Collapse
   cLibs = AllTrim( ::cFWHPath ) + "\lib\" + ;
           If( lHarbour, "fiveh.lib ", "fivehx.lib " ) + ;
           AllTrim( ::cFWHPath ) + "\lib\" + "fivehc.lib " + ;
           cFWHExtraLibs + ;
           If( lHarbour, AllTrim( ::cHarbPath ) + "\lib\" + "hbwin.lib ", "" ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + "gtgui.lib " + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbrtl.lib ", "rtl.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbvm.lib ", "vm.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hblang.lib ", "lang.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbmacro.lib ", "macro.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbrdd.lib ", "rdd.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "rddntx.lib ", "dbfntx.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "rddcdx.lib ", "dbfcdx.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "rddfpt.lib ", "dbffpt.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + "hbsix.lib " + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbdebug.lib ", "debug.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbcommon.lib ", "common.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbpp.lib ", "pp.lib " ) + ;
           If( lHarbour, AllTrim( ::cHarbPath ) + "\lib\" + ;
           "hbcpage.lib ", "" ) + ;
           If( lHarbour, AllTrim( ::cHarbPath ) + "\lib\" + ;
           "hbcplr.lib ", "" ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbct.lib ", "ct.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbpcre.lib ", "pcrepos.lib " ) + ;
           If( lHarbour, AllTrim( ::cHarbPath ) + "\lib\" + ;
           "xhb.lib ", "" ) + ;
           If( lHarbour, AllTrim( ::cHarbPath ) + "\lib\" + ;
           "hbziparc.lib ", "" ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbmzip.lib ", "hbzip.lib " ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbzlib.lib ", "zlib.lib " ) + ;
           If( lHarbour, AllTrim( ::cHarbPath ) + "\lib\" + ;
           "minizip.lib ", "" ) + ;
           AllTrim( ::cHarbPath ) + "\lib\" + "png.lib " + ;
           If( lHarbour, AllTrim( ::cHarbPath ) + "\lib\" + "hbcurl.lib ", "" ) + ;
           If( lHarbour, AllTrim( ::cHarbPath ) + "\lib\" + "hbusrrdd.lib ", "" ) + ;
           cHarbExtraLibs


Gracias, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 03:12 PM
Master, compile porfa: compare con el código original.

Code (fw): Select all Collapse
#include "FiveWin.ch"

FUNCTION MAIN()

   PRIVATE cHarbPath := "C:\XHARBOUR"
   PRIVATE cFWHPath  := "C:\FWH1306"

   AddHarbourLibs()

RETURN NIL


//METHOD AddHarbourLibs() CLASS TFivedit

FUNCTION AddHarbourLibs()

   local lHarbour := .F. //AllTrim( ::cHarbComp ) == "Harbour"
   local cLibs, cFWHExtraLibs := "", cHarbExtraLibs := ""
   LOCAL cLib

   if ! Empty( cFWHExtraLibs )


      AEval( hb_aTokens( StrTran( AllTrim( cFWHExtraLibs ), ",", "" ) ),;
             { | cLib | cFWHExtraLibs += AllTrim( cFWHPath ) + "\lib\" + ;
                        cLib + " " } )
   endif                     

   if ! Empty( cHarbExtraLibs )

      AEval( hb_aTokens( StrTran( AllTrim( cHarbExtraLibs ), ",", "" ) ),;
             { | cLib | cHarbExtraLibs += AllTrim( cHarbPath ) + "\lib\" + ;
                        cLib + " " } )
   endif

   cLibs = AllTrim( cFWHPath ) + "\lib\" + ;
           If( lHarbour, "fiveh.lib ", "fivehx.lib " ) + ;
           AllTrim( cFWHPath ) + "\lib\" + "fivehc.lib " + ;
           cFWHExtraLibs + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + "hbwin.lib ", "" ) + ;
           AllTrim( cHarbPath ) + "\lib\" + "gtgui.lib " + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbrtl.lib ", "rtl.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbvm.lib ", "vm.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hblang.lib ", "lang.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbmacro.lib ", "macro.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbrdd.lib ", "rdd.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "rddntx.lib ", "dbfntx.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "rddcdx.lib ", "dbfcdx.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "rddfpt.lib ", "dbffpt.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + "hbsix.lib " + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbdebug.lib ", "debug.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbcommon.lib ", "common.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
           "hbpp.lib ", "pp.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
           "hbcpage.lib ", "CODEPAGE.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
           "hbcplr.lib ", "" ) + ;
           If( lHarbour, "hbct.lib ", "ct.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbpcre.lib ", "pcrepos.lib " ) + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
           "xhb.lib ", "" ) + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
           "hbziparc.lib ", "" ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbmzip.lib ", "hbzip.lib " ) + ;
           AllTrim( cHarbPath ) + "\lib\" + ;
           If( lHarbour, "hbzlib.lib ", "zlib.lib " ) + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + ;
           "minizip.lib ", "" ) + ;
           AllTrim( cHarbPath ) + "\lib\" + "png.lib " + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + "hbcurl.lib ", "" ) + ;
           If( lHarbour, AllTrim( cHarbPath ) + "\lib\" + "hbusrrdd.lib ", "" ) + ;
           cHarbExtraLibs

? cLibs

return cLibs


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 05:53 PM

Joao,

Escríbela sin path y en la pestaña de Harbour, no de FWH

regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 06:23 PM
Master,

Code (fw): Select all Collapse
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'GERAPNFE.OBJ'
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
cnavarro
Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: Presentando fivedit de FiveTech
Posted: Wed Feb 11, 2015 10:35 PM
Antonio, por qué Harbour me dice que el Error/Warning está en una linea que no es la que le corresponde?, me trae loco



Code (fw): Select all Collapse
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TFiveditWnd
                                                                                             ---->Linea 2070
   if nMsg == FM_OPENFILE                                                                       ---->Linea 2071
      OpenClipboard( ::hWnd )
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
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Presentando fivedit de FiveTech
Posted: Thu Feb 12, 2015 04:46 AM
Joao,

karinha wrote:Master,

Code (fw): Select all Collapse
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'GERAPNFE.OBJ'


Se corresponde a un PRG tuyo ?

Ha compilado los demás PRGs ?

Intenta compilarlo desde una ventana MsDos, tal vez tenga algún error y por eso no se ha generado.
En la ventana de resultados de Fivedit debe aparecer el resultado de haberlo intentado compilar.
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Presentando fivedit de FiveTech
Posted: Thu Feb 12, 2015 04:48 AM
Cristobal,

cnavarro wrote:Antonio, por qué Harbour me dice que el Error/Warning está en una linea que no es la que le corresponde?, me trae loco



Code (fw): Select all Collapse
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TFiveditWnd
                                                                                             ---->Linea 2070
   if nMsg == FM_OPENFILE                                                                       ---->Linea 2071
      OpenClipboard( ::hWnd )


Puede ser un error de Harbour. A veces está relacionado con el preprocesador, ya que este altera las líneas de código.

Pero mas ó menos te ha dicho donde está :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Presentando fivedit de FiveTech
Posted: Thu Feb 12, 2015 04:50 AM
Antonio Linares wrote:Nueva version que permite copiar la lista de funciones y métodos al portapapeles:

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip


Esto es especialmente útil para documentar vuestras aplicaciones :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: Presentando fivedit de FiveTech
Posted: Thu Feb 12, 2015 07:24 AM
Versión mejorada:

https://bitbucket.org/fivetech/fivewin-contributions/downloads/fivedit.zip
regards, saludos

Antonio Linares
www.fivetechsoft.com
karinha
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: Presentando fivedit de FiveTech
Posted: Thu Feb 12, 2015 12:31 PM
Master,



Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Static archive · New replies & topics via GitHub Discussions