FWH64 + bcc64 + hbmk2 example

[Antonio Linares]

Get Harbour 64 for bcc64 from here:
https://github.com/FiveTechSoft/harbour_and_xharbour_builds/blob/master/harbour_bcc64_20230615.zip

go64.bat

Code: Select all  Expand view  RUN

set bcc=bcc7164
set path=c:\%bcc%\bin
set HB_USER_CFLAGS=-Ic:\%bcc%\INCLUDE\windows\crtl -Ic:\%bcc%\INCLUDE\windows\sdk -Lc:\%bcc%\LIB
set HB_USER_LDFLAGS=-Lc:\%bcc%\LIB;c:\%bcc%\LIB\psdk
c:\harbour\bin\win\bcc64\hbmk2.exe test.hbp -comp=bcc64

test.hbp

Code: Select all  Expand view  RUN

test.prg

-optim-
-ldflag+=-aa
-Ic:\fwh64\include
-Lc:\fwh64\lib

-lfive64
-lfivec64

hbct.hbc
xhb.hbc
hbziparc.hbc

test.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

    MsgInfo( hb_compiler() )

return nil

Included in next FWH build, "makes" folder, file hbmk2_bcc64.zip

[carlos vargas]

Antonio que versión del compilador bcc64 estás usando?

[carlos vargas]

Ha, ya observé en las ruta de conf que es la 7.1, disculpa.

[alvaro533]

Good afternoon,

I just finished migrating from fwh32 to fwh64. It's up and running now. I wanted to take this opportunity to thank Antonio for his excellent support and assistance during the installation, as I am not an expert in compilers, resources, etc.

Best regards,

Alvaro

[mauri.menabue]

Hi all,
What are the advantages over the 32-bit version?
Is the Embarcadero - Borland C compiler bcc64 free ? if not what is its cost.
One of the advantages is being able to export large tables to excel from xbrowse without errors?
Tia

[Antonio Linares]

Dear Mauri,

> What are the advantages over the 32-bit version?

Much larger memory amount management:
128 GB for Windows 10 Home, 256 GB for Windows 10 Pro, and much higher limits for Windows Server editions

> Is the Embarcadero - Borland C compiler bcc64 free ? if not what is its cost.

Please check your email for instructions

[Antonio Linares]

32 bits app are around 15% slower than 64 bits apps

https://groups.google.com/g/harbour-users/c/INKBYSN3DEE

[alvaro533]

if you use resources in a *.rc file add this line in the .hpb file

Code: Select all  Expand view  RUN

-resflag=-IC:\bcc7164\INCLUDE\windows\sdk -IC:\bcc7164\INCLUDE\windows\crtl

and in the .rc file

Code: Select all  Expand view  RUN

#include <windows.h>
#include <commctrl.h>
// #include <richedit.h> // comment this line
 

Regards,

[mauri.menabue]

Hi Antonio,
I haven't received anything in the mail as you told me in a previous message,
can you try again using this address ? maurizio.menabue@alice.it ,
sorry for the inconvenience.

TIA

[Antonio Linares]

already sent

[Horizon]

Hi Antonio,

Can you prepare for FWH64 + msvc 2022 + hbmk2 example please.

Thanks.

[Antonio Linares]

Dear Hakan,

It is already included in FWH(32/64) in "makes" folder: hbmk2.zip

go64.bat

Code: Select all  Expand view  RUN

call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
c:\harbour\bin\hbmk2 test64.hbp -comp=msvc64
test.exe

test64.hbp

Code: Select all  Expand view  RUN

-gui

-Ic:\fwh\include

test.prg

-Lc:\fwh\lib

-lFiveH64
-lFiveHC64

-lgdiplus
-lole32
-lOleDlg
-lversion

xhb.hbc
hbct.hbc
hbwin.hbc
hbmzip.hbc
hbziparc.hbc
hbfoxpro.hbc

-ldflag=/NODEFAULTLIB:msvcrt

test.rc

 

test.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oBmpTiled, oWnd, oMsgBar

   DEFINE BITMAP oBmpTiled RESOURCE "background"

   DEFINE WINDOW oWnd MENU BuildMenu() TITLE "My app"

   BuildBar( oWnd )

   DEFINE MSGBAR oMsgBar OF oWnd PROMPT "My app" NOINSET

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON PAINT DrawTiled( hDC, oWnd, oBmpTiled )

   oBmpTiled:End()

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Files"
   ENDMENU

return oMenu  

function BuildBar( oWnd )

   local oBar

   DEFINE BUTTONBAR oBar OF oWnd 3D SIZE 70, 70

return nil 

test.rc

Code: Select all  Expand view  RUN

background BITMAP c:\fwh\bitmaps\backgrnd\iosbg.bmp

[Horizon]

Dear Hakan,

It is already included in FWH(32/64) in "makes" folder: hbmk2.zip

go64.bat

Code: Select all  Expand view  RUN

call "%ProgramFiles%\Microsoft Visual Studio\2022\Community\VC\Auxiliary\Build\vcvarsall.bat" amd64
c:\harbour\bin\hbmk2 test64.hbp -comp=msvc64
test.exe

test64.hbp

Code: Select all  Expand view  RUN

-gui

-Ic:\fwh\include

test.prg

-Lc:\fwh\lib

-lFiveH64
-lFiveHC64

-lgdiplus
-lole32
-lOleDlg
-lversion

xhb.hbc
hbct.hbc
hbwin.hbc
hbmzip.hbc
hbziparc.hbc
hbfoxpro.hbc

-ldflag=/NODEFAULTLIB:msvcrt

test.rc

 

test.prg

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

function Main()

   local oBmpTiled, oWnd, oMsgBar

   DEFINE BITMAP oBmpTiled RESOURCE "background"

   DEFINE WINDOW oWnd MENU BuildMenu() TITLE "My app"

   BuildBar( oWnd )

   DEFINE MSGBAR oMsgBar OF oWnd PROMPT "My app" NOINSET

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON PAINT DrawTiled( hDC, oWnd, oBmpTiled )

   oBmpTiled:End()

return nil

function BuildMenu()

   local oMenu

   MENU oMenu
      MENUITEM "&Files"
   ENDMENU

return oMenu  

function BuildBar( oWnd )

   local oBar

   DEFINE BUTTONBAR oBar OF oWnd 3D SIZE 70, 70

return nil 

test.rc

Code: Select all  Expand view  RUN

background BITMAP c:\fwh\bitmaps\backgrnd\iosbg.bmp

Thank you Antonio.

[shrifw]

Dear Antonio ,

There was issue in Harbour 64 bit bcc as given old issue link. I am not sure currently it is working fine ?
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=37051&start=0&hilit=multiply&sid=3214644f0d13f5bc95cbc2262ba18227


Thanks
Shridhar