Presentando fivedit de FiveTech

Re: Presentando fivedit de FiveTech

Postby Antonio Linares » Wed Feb 11, 2015 8:51 am

Joao,

karinha wrote:[url]Image[/url]


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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Presentando fivedit de FiveTech

Postby karinha » 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
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Postby karinha » Wed Feb 11, 2015 12:13 pm

Master ahora, ni TUTOR04.PRG compila, estoy haciendo corrcto?

Image

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Postby karinha » 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: 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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Postby karinha » Wed Feb 11, 2015 12:43 pm

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Postby karinha » Wed Feb 11, 2015 12:57 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Postby karinha » Wed Feb 11, 2015 3:12 pm

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


João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Postby Antonio Linares » Wed Feb 11, 2015 5:53 pm

Joao,

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

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Presentando fivedit de FiveTech

Postby karinha » Wed Feb 11, 2015 6:23 pm

Master,

Code: Select all  Expand view

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
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Postby cnavarro » 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

Image

Code: Select all  Expand view

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

Re: Presentando fivedit de FiveTech

Postby Antonio Linares » Thu Feb 12, 2015 4:46 am

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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Presentando fivedit de FiveTech

Postby Antonio Linares » Thu Feb 12, 2015 4: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

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á :-)
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Presentando fivedit de FiveTech

Postby Antonio Linares » Thu Feb 12, 2015 4: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Presentando fivedit de FiveTech

Postby Antonio Linares » Thu Feb 12, 2015 7:24 am

regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42069
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: Presentando fivedit de FiveTech

Postby karinha » Thu Feb 12, 2015 12:31 pm

Master,

Image

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7795
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

PreviousNext

Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 35 guests