Converting fron xharbour to harbour

[Silvio.Falconi]

Today I recompiled an old prg made with xharbour and I wanted compile it into harbour

and now I have this error

[1]:iLink32.Exe -Gn -aa -Tpe -s @Fsdi2006.bcl
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_hb_extIsNil' referenced from C:\WORK\FWH\LIB\FIVEHC.LIB|RICHEDIT

Any help ?

I add Png.lib and Psapi.lib how I saw on a message on this forum and How sad me my friend John

I use xmate to compile
These the file env

Code: Select all  Expand view  RUN

[Environment]
Description 1=Fivewin per harbour
Description 2=
Description 3=
PRG Compiler ver=
C compiler ver=
Subsystem=
Author=Falconi Silvio
Last update=01/09/2012

[Advanced]
Command types=1,1,1,1,1,1,1,1,1

[Harbour]
HB_INSTALL=c:\work\Harbour
HB_COMMAND=%HB_BIN_INSTALL%\Harbour.Exe %PRG% /m /n0 /gc1 /es2 /i%HB_INC_INSTALL% /jitaliano.HIT /iinclude;c:\work\fwh\include;%HB_INSTALL%\include
Option prefix=/

[C]
C_INSTALL=C:\Work\bcc582
C_COMP_COMMAND=%C_BIN_INSTALL%\Bcc32.Exe -M -c -O2  -tW -v- -X %CRLF%-DHB_FM_STATISTICS_OFF %CRLF%-DHB_NO_DEFAULT_API_MACROS %CRLF%-DHB_NO_DEFAULT_STACK_MACROS %CRLF%-DHB_OS_WIN_32 %CRLF%-I%C_INC_INSTALL%;%HB_INC_INSTALL%  -n%HOME%\Obj %C%%CRLF%
C_LIB_COMMAND=%C_BIN_INSTALL%\TLib.Exe %LIB% /P512 @%RSP% , %LST%
C_LINK_COMMAND=%C_BIN_INSTALL%\iLink32.Exe -Gn -aa -Tpe -s @%LNK%
C_RC_COMMAND=c:\work\PellesC\Bin\PORC.EXE  %RC%  /I c:\work\pellesc\include /I c:\work\pellesc\include\win
C_DLL_COMMAND=%C_BIN_INSTALL%\iLink32.Exe -Gn -aa -Tpd -M -L%C_LIB_INSTALL% @%LNK%
Option prefix=-

[User]
POSTEXE_COMMAND=
POSTLIB_COMMAND=
POSTDLL_COMMAND=

[Files]
%C_LIB_INSTALL%\C0W32.OBJ=1
%C_LIB_INSTALL%\CW32.LIB=2
C:\Work\FWH\lib\Fiveh.lib=3
C:\Work\FWH\lib\Fivehc.lib=4
%HB_LIB_INSTALL%\hbrtl.lib=5
%HB_LIB_INSTALL%\hbvm.lib=6
%HB_LIB_INSTALL%\hbgt.lib=7
%HB_LIB_INSTALL%\gtgui.lib=8
%HB_LIB_INSTALL%\hblang.lib=9
%HB_LIB_INSTALL%\hbmacro.lib=10
%HB_LIB_INSTALL%\hbcommon.lib=11
%HB_LIB_INSTALL%\hbpp.lib=12
%HB_LIB_INSTALL%\hbrdd.lib=13
%HB_LIB_INSTALL%\rddntx.lib=14
%HB_LIB_INSTALL%\rddcdx.lib=15
%HB_LIB_INSTALL%\rddfpt.lib=16
%HB_LIB_INSTALL%\hbwin.lib=17
%HB_LIB_INSTALL%\hbsix.lib=18
%HB_LIB_INSTALL%\hbziparc.lib=19
%HB_LIB_INSTALL%\hbcpage.lib=20
%HB_LIB_INSTALL%\hbcplr.lib=21
%HB_LIB_INSTALL%\hbmzip.lib=22
%HB_LIB_INSTALL%\minizip.lib=23
%HB_LIB_INSTALL%\xhb.lib=24
%HB_LIB_INSTALL%\hbpcre.lib=25
%HB_LIB_INSTALL%\hbct.lib=26
%HB_LIB_INSTALL%\hbzlib.lib=27
%C_LIB_INSTALL%\uuid.lib=28
%C_LIB_INSTALL%\IMPORT32.LIB=29
%C_LIB_INSTALL%\PSDK\odbc32.lib=30
%C_LIB_INSTALL%\PSDK\nddeapi.lib=31
%C_LIB_INSTALL%\PSDK\iphlpapi.lib=32
%C_LIB_INSTALL%\PSDK\msimg32.lib=33
%C_LIB_INSTALL%\PSDK\ws2_32.lib=34
%C_LIB_INSTALL%\PSDK\psapi.lib=35
%C_LIB_INSTALL%\PSDK\rasapi32.lib=36
%HB_LIB_INSTALL%\png.lib=37

[DLL Files]
%HB_LIB_INSTALL%\harbour.lib=1
%C_LIB_INSTALL%\C0W32.OBJ=2
%C_LIB_INSTALL%\CW32.LIB=3
%C_LIB_INSTALL%\IMPORT32.LIB=4
 

What I need ?

[TimStone]

Silvio,

I can't help because I don't use Borland. In fact, I never have, except for the resource compiler many years ago.

I am seeing a very steady stream of Windows updates coming out, and I believe it is important to have the very latest software for building my applications. That is why I use FWH / Harbour / Msft Visual C++ 2013. With this combination, I know that I will have the latest libraries, and compatibility should not be an issue.

Microsoft is updating windows constantly. Yes, update Tuesday is once a month, but now we are seeing updates weekly, and sometimes more often. Every Microsoft product is being updated steadily with new features, refinements and modifications.

If you decide to move forward with this latest technology, then I would be happy to answer questions. Some of us would like to see a huge movement to the latest tools because this benefits the FWH community. Antonio is certainly making every effort to keep us viable in 2014, as are the other FWH contributors.

Tim

[Antonio Linares]

Silvio,

Are you using the most recent Harbour from https://bitbucket.org/fivetech/harbour-xharbour-builds ?

Please download the most recent Harbour version from there

[Silvio.Falconi]

Antonio, I have problem to receive the message from the forum
perhaps on account there isa nother email
Do you can put my normal e-mail you Know (--- @gmail.com) thanks !!

[Silvio.Falconi]

Antonio,
on new version of xharbour (xharbour_bcc582_20140728) there is not ihbzip.lib I had on oldest version ...

[Silvio.Falconi]

Antonio,
compiling with habour I have this error now

[1]:iLink32.Exe -Gn -aa -Tpe -s @Fsdi2006.bcl
Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland
Error: Unresolved external '_HB_FUN_HB_HSETCASEMATCH' referenced from C:\WORK\FWH\LIB\FIVEH.LIB|DATABASE

[Silvio.Falconi]

Antonio,
Now it is compiled
I add
function hb_HSetCaseMatch()

return hb_HCaseMatch()

[Silvio.Falconi]

nOW i SEE THE EXE
when I open customer.dbf it crash

Code: Select all  Expand view  RUN

Application Internal Error - C:\Work\errori\fsdi2006\Fsdi2006.Exe
Terminated at: 2014-08-24 16:47:52
Unrecoverable error 6005: Exception error:

    Exception Code:C0000005 ACCESS_VIOLATION
    Exception Address:004F8992
    EAX:00000000  EBX:002C0B7C  ECX:002C073C  EDX:002BACB4
    ESI:002C0B7C  EDI:002C073C  EBP:0018EDD0
    CS:EIP:0023:004F8992  SS:ESP:002B:0018EDC4
    DS:002B  ES:002B  FS:0053  GS:002B
    Flags:00010246
    Exception Parameters: 00000000 00000001
    CS:EIP: F6 40 01 10 74 28 50 E8 AE 92 F9 FF 59 6A 01 6A
    SS:ESP: 002C073C 002C0B7C 002BACB4 0018EDE8 00500652 002C0B7C 002C073C 002BAE10 002BACB4 0018EF1C 0050146D 002BACB4 002C1604 00000000 002BACB4 54535543

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
    004F8992 0018EDD0   0018EDE8 00500652 002C0B7C 002C073C 002BAE10 002BACB4
    00500652 0018EDE8   0018EF1C 0050146D 002BACB4 002C1604 00000000 002BACB4 54535543 52454D4F 7864632E 00369B00
    0050146D 0018EF1C   0018F058 0050111D 002BACB4 0018EF38 00561E38 002BACB4 00000000 002C071C 00000000 002BABA8
    0050111D 0018F058   0018F0B4 004EA066 002BACB4 0018F074 00561E48 00000000 006DC2B0 00560001 00561E38 00561E43
    004EA066 0018F0B4   0018F0FC 004DAC0D 00561E38 00000000 00000000 00561E43 00000000 00000000 00000000 00000000
    004DAC0D 0018F0FC   0018F210 0048B9F7 00000006 005606CD 00000000 006DC2B0 00000000 0055DCD4 00000000 004A1719
    0048B9F7 0018F210   0018F238 004016D4 00561D2C 00561838 004918CC 0000003F 00000000 00000000 00000000 00000028
    004016D4 0018F238   0018F34C 0048BA7A 00000000 006DC2B0 FFFFFFFF 001CDCC4 FFFFFFFF FFFFFFFF 76966899 76966941
    0048BA7A 0018F34C   0018F384 00491C45 005606CA 0055F000 00675762 00000000 00672E74 00491A89 006DC2B0 0000003D
    00491C45 0018F384   0018F498 0048BB34 00000001 00675D50 00000000 006734C4 76966899 76966941 0018F3B8 00000001
    0048BB34 0018F498   0018F4A8 004268CC 00675707 00672B44
    004268CC 0018F4A8   0018F4C8 00491A89 006DC2B0 00000036 00000000 001EA3D4 01F30011 000001DC
    00491A89 0018F4C8   0018F5DC 0048BB34 00000000 00594F51 00000000 005907D0 0018F510 0018F4F0 004ABD52 0018F510
    0048BB34 0018F5DC   0018F5EC 0042698C 00675B3C 00672B44
    0042698C 0018F5EC   0018F60C 00491A89 006DC2B0 00000030 00000000 001EA3D4 01140011 0000029B
    00491A89 0018F60C   0018F720 0048BB34 00000003 00678161 00000000 00673D84 001F579C 002C15D4 002C15D4 0018F688
    0048BB34 0018F720   0018F730 0041B7D8 00594D83 0058FBD0
    0041B7D8 0018F730   0018F750 00491A89 006DC2B0 0000002B 00000000 001EA3D4 01090007 000006BB
    00491A89 0018F750   0018F864 0048BB34 00000003 0063E111 00000000 00635FE8 002C0224 001B65C4 001CDA44 0018F7CC
    0048BB34 0018F864   0018F874 00426A7C 006780D7 00672B44


Modules:
00400000 00304000 C:\Work\errori\fsdi2006\Fsdi2006.Exe
77770000 00180000 C:\Windows\SysWOW64\ntdll.dll
76B90000 00100000 C:\Windows\syswow64\kernel32.dll
76CF0000 00046000 C:\Windows\syswow64\KERNELBASE.dll
76D40000 000A0000 C:\Windows\syswow64\ADVAPI32.DLL
75A90000 000AC000 C:\Windows\syswow64\msvcrt.dll
75BD0000 00019000 C:\Windows\SysWOW64\sechost.dll
75400000 000F0000 C:\Windows\syswow64\RPCRT4.dll
752E0000 00060000 C:\Windows\syswow64\SspiCli.dll
752D0000 0000C000 C:\Windows\syswow64\CRYPTBASE.dll
74D80000 00009000 C:\Windows\system32\VERSION.DLL
745E0000 00051000 C:\Windows\system32\WINSPOOL.DRV
75B40000 00090000 C:\Windows\syswow64\GDI32.dll
76950000 00100000 C:\Windows\syswow64\USER32.dll
75670000 0000A000 C:\Windows\syswow64\LPK.dll
76EB0000 0009D000 C:\Windows\syswow64\USP10.dll
768C0000 00084000 C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.7600.16385_none_ebf82fc36c758ad5\COMCTL32.DLL
75BF0000 0007B000 C:\Windows\syswow64\COMDLG32.DLL
76C90000 00057000 C:\Windows\syswow64\SHLWAPI.dll
75C70000 00C49000 C:\Windows\syswow64\SHELL32.dll
702A0000 00005000 C:\Windows\system32\MSIMG32.DLL
76F50000 0015C000 C:\Windows\syswow64\OLE32.DLL
76E20000 0008F000 C:\Windows\syswow64\OLEAUT32.DLL
73100000 0001C000 C:\Windows\system32\OLEDLG.DLL
754F0000 00060000 C:\Windows\system32\IMM32.DLL
755A0000 000CC000 C:\Windows\syswow64\MSCTF.dll
724D0000 00080000 C:\Windows\system32\uxtheme.dll
71860000 00013000 C:\Windows\system32\dwmapi.dll
759A0000 00083000 C:\Windows\syswow64\CLBCatQ.DLL

Called from DBUSEAREA(0)
Called from CUSTOMER(40)
Called from (b)TAPPLICATION_BUILDBTNBAR(234)
Called from TBTNBMP:CLICK(476) in .\source\classes\BTNBMP.PRG
Called from TBTNBMP:LBUTTONUP(667) in .\source\classes\BTNBMP.PRG
Called from TCONTROL:HANDLEEVENT(1723) in .\source\classes\CONTROL.PRG
Called from TBTNBMP:HANDLEEVENT(1470) in .\source\classes\BTNBMP.PRG
Called from _FWH(3236) in .\source\classes\WINDOW.PRG
Called from WINRUN(0)
Called from TWINDOW:ACTIVATE(1003) in .\source\classes\WINDOW.PRG
Called from TAPPLICATION:ACTIVATE(194)
Called from MAIN(35)

I made only :
if ! Db_Open( "Customer", "CU" )
return NIL
endif


function Db_Open(cDbf,cAlias)

if ! File(oApp():cDbfPath+cDbf+'.CDX')
// index
endif
if file( oApp():cDbfPath + cDbf + ".dbf" ) .AND. file( oApp():cDbfPath + cDbf + ".cdx" )
USE &(oApp():cDbfPath+cDbf+".dbf") ;
INDEX &(oApp():cDbfPath+cDbf+".cdx") ;
ALIAS &(cAlias) NEW
else
MsgStop( i18n( "Non si è trovato l'archivio dei dati." ) + CRLF + ;
i18N( "Per favore controlla la configurazone")+ CRLF + ;
i18N( "e indicizza gli archivi dell'applicazione." ) )

return .f.
END if

if NetErr()
msgStop( i18n( "Errore nell'aprire un archivio" ) + CRLF + ;
i18n( "Per favore caricare di nuovo l'applicazione." ) )
dbCloseAll()
return .f.
endif

return .t.

[Silvio.Falconi]

oApp():cDbfPath := cFilePath(GetModuleFileName(GetInstance()))

on xharbour run ok
on harbour make crash

[lucasdebeltran]

Silvio,

oApp():cDbfPath := HB_DIRBASE()

[Silvio.Falconi]

I insert also this

function hb_HSetCaseMatch()
return hb_HCaseMatch()

but it crash the same