karinha wrote:[url][/url]
Parece que tienes un error en FiveWin.ch. Intenta compilar desde una ventana de MsDos.
karinha wrote:[url][/url]
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
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'CODEPAGE.LIB'
c:\fwh1306\lib\fivehx.lib c:\fwh1306\lib\fivehc.lib c:\fwh1306\lib\C:\XHB280714\lib\codepage.lib
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
#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
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Fatal: Unable to open file 'GERAPNFE.OBJ'
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TFiveditWnd
---->Linea 2070
if nMsg == FM_OPENFILE ---->Linea 2071
OpenClipboard( ::hWnd )
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'
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: Select all Expand view
METHOD HandleEvent( nMsg, nWParam, nLParam ) CLASS TFiveditWnd
---->Linea 2070
if nMsg == FM_OPENFILE ---->Linea 2071
OpenClipboard( ::hWnd )
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
Return to FiveWin para Harbour/xHarbour
Users browsing this forum: Google [Bot] and 35 guests