Presentando fivedit de FiveTech

Post Reply
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Presentando fivedit de FiveTech

Post by Antonio Linares »

Joao,
karinha wrote:Image
Parece que tienes un error en FiveWin.ch. Intenta compilar desde una ventana de MsDos.
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Post 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.
João Santos - São Paulo - Brasil
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Post by karinha »

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

Image

Saludos.
João Santos - São Paulo - Brasil
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Post by karinha »

master, FIVEDIT.BAT, codepage.lib está visible, mas mismo por el prompt de comando(msdos) no encuentra CODEPAGE.LIB

Code: Select all

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

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

Re: Presentando fivedit de FiveTech

Post by karinha »

Master, mira que aca tien un error

Code: Select all

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

Re: Presentando fivedit de FiveTech

Post by karinha »

master, revisa esto porfa:

Code: Select all

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

Re: Presentando fivedit de FiveTech

Post by karinha »

Master, compile porfa: compare con el código original.

Code: Select all

#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
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Presentando fivedit de FiveTech

Post by Antonio Linares »

Joao,

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

Antonio Linares
www.fivetechsoft.com
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Post by karinha »

Master,

Code: Select all

Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'GERAPNFE.OBJ'
 
João Santos - São Paulo - Brasil
Top
User avatar
cnavarro
Posts: 5792
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: Presentando fivedit de FiveTech

Post 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

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


 
C. Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
Si alguien te dice que algo no se puede hacer, recuerda que esta hablando de sus limitaciones, no de las tuyas.
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Presentando fivedit de FiveTech

Post by Antonio Linares »

Joao,
karinha wrote:Master,

Code: Select all

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
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Presentando fivedit de FiveTech

Post 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

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
Top
User avatar
Antonio Linares
Site Admin
Posts: 37481
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Contact:
Contact Antonio Linares

Re: Presentando fivedit de FiveTech

Post 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- ... ivedit.zip
Esto es especialmente útil para documentar vuestras aplicaciones :-)
regards, saludos

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

Re: Presentando fivedit de FiveTech

Post by Antonio Linares »

Versión mejorada:

https://bitbucket.org/fivetech/fivewin- ... ivedit.zip
regards, saludos

Antonio Linares
www.fivetechsoft.com
Top
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Presentando fivedit de FiveTech

Post by karinha »

Master,

Image

Saludos.
João Santos - São Paulo - Brasil
Top
Post Reply

Return to “FiveWin para Harbour/xHarbour”