FiveTech Software tech support forums

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

Presentando fivedit de FiveTech

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

Page 9 of 11

Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 8:51 am
by Antonio Linares
Joao,

karinha wrote:[url]Image[/url]


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

Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 11:09 am
by karinha
Master, yo compilo el mismo proyecto via prompt de comando(msdos) com un COMP.BAT y COMP.LNK e funciona perfecto.

Gracias, saludos.

Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 12:13 pm
by karinha
Master ahora, ni TUTOR04.PRG compila, estoy haciendo corrcto?

Image

Saludos.

Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 12:32 pm
by karinha
master, FIVEDIT.BAT, codepage.lib está visible, mas mismo por el prompt de comando(msdos) no encuentra CODEPAGE.LIB

Code: Select all  Expand view

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

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


Gracias, saludos.

Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 12:43 pm
by karinha
Master, mira que aca tien un error

Code: Select all  Expand view

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.


Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 12:57 pm
by karinha
master, revisa esto porfa:

Code: Select all  Expand view

   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.

Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 3:12 pm
by karinha
Master, compile porfa: compare con el código original.

Code: Select all  Expand view

#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



Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 5:53 pm
by Antonio Linares
Joao,

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

Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 6:23 pm
by karinha
Master,

Code: Select all  Expand view

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

Re: Presentando fivedit de FiveTech

PostPosted: Wed Feb 11, 2015 10:35 pm
by cnavarro
Antonio, por qué Harbour me dice que el Error/Warning está en una linea que no es la que le corresponde?, me trae loco

Image

Code: Select all  Expand view

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


 

Re: Presentando fivedit de FiveTech

PostPosted: Thu Feb 12, 2015 4:46 am
by Antonio Linares
Joao,

karinha wrote:Master,

Code: Select all  Expand view

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.

Re: Presentando fivedit de FiveTech

PostPosted: Thu Feb 12, 2015 4:48 am
by Antonio Linares
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

Image

Code: Select all  Expand view

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á :-)

Re: Presentando fivedit de FiveTech

PostPosted: Thu Feb 12, 2015 4:50 am
by Antonio Linares
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 :-)

Re: Presentando fivedit de FiveTech

PostPosted: Thu Feb 12, 2015 7:24 am
by Antonio Linares
Versión mejorada:

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

Re: Presentando fivedit de FiveTech

PostPosted: Thu Feb 12, 2015 12:31 pm
by karinha
Master,

Image

Saludos.
All times are UTC
Page 9 of 11
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group
http://www.phpbb.com/