FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexActive topicsAll discussionsLogin (GitHub)
Board index FiveWin for Harbour/xHarbour problems with the FWH 32 release 25.09
mauri.menabue
Posts: 181
Joined: Thu Apr 17, 2008 02:38 PM

problems with the FWH 32 release 25.09

Posted: Fri Oct 10, 2025 09:32 PM
Hi all,
Today I bought the latest release 25.09 of FWH e BCC77, but unfortunately this error occurs to me:

Compiling...
Harbour 3.2.0dev (r2503251254)
Copyright (c) 1999-2024, https://harbour.github.io/
Compiling 'xlsx01.prg' and generating preprocessed output to 'xlsx01.ppo'...
Lines 5304, Functions/Procedures 4
Generating C source output to 'xlsx01.c'... Done.
Embarcadero C++ 7.70 for Win32 Copyright (c) 1993-2023 Embarcadero Technologies, Inc.
xlsx01.c:
Turbo Incremental Link 6.97 Copyright (c) 1997-2022 Embarcadero Technologies, Inc.
Error: Unresolved external '__streams' referenced from D:\FWH\LIB\XLSXLIBHBBCC.LIB|drawing
Error: Unable to perform link
* Linking errors *

d:\fwh\samples\misc>

To perform this test I used the batch: Buildh, where I activated the library: D:\FWH\LIB\XLSXLIBHBBCC.LIB
the version of BCC is 770,
the Harbour compiler used I suppose is NOT cLANG since it is named: Harbour_bcc770_32_2025.05.15 (there is NO letter C following bcc770)

iLink32.cfg
-Gn
-Ld:\bcc77\lib;d:\bcc77\lib\psdk
-aa
-x

bcc32.cfg
-I@\..\include\windows\crtl;@\..\include\windows\sdk;@\..\include\dinkumware


-O
-O1
-OS
-Ob
-Oc
-Ov
-c
-d
-g0
-k-
-v-
-w
-w!

I am asking you for help, thank you
alerchster
Posts: 137
Joined: Mon Oct 22, 2012 04:43 PM

Re: problems with the FWH 32 release 25.09

Posted: Sat Oct 11, 2025 04:24 AM

Here you have a tip to solve it:

pragma BEGINDUMP

int _streams;

pragma ENDDUMP

Add this code to the bottom of the example PRG

Regards



Ing. Anton Lerchster
mauri.menabue
Posts: 181
Joined: Thu Apr 17, 2008 02:38 PM

Re: problems with the FWH 32 release 25.09

Posted: Sat Oct 11, 2025 08:17 AM

HI Anton,

Now the program starts because _streams is defined, but it must be an integer ?

then the program crashes :

Application

===========

Path and name: D:\fwh\samples\misc\xlsx01.exe (32 bits)

Size: 5,465,600 bytes

Compiler version: Harbour 3.2.0dev (r2503251254)

FiveWin version: FWH 25.09

C compiler version: Borland/Embarcadero C++ 7.7 (32-bit)

Windows 11 64 Bits, version: 6.2, Build 9200

Time from start: 4 sec

Error occurred at: 11-10-2025, 09:55:00

Error description: Error BASE/3104 Argument error: SWITCH

Args:

 [   1] = H   { "x_scale" => 0.20, "y_scale" => 0.20, "x_offset" => 0, "y_offset" => 25 }

Stack Calls

===========

Called from: source\hblibxlsxwriter.prg => LXW_PREPARE_IMAGE_OPTIONS( 0 )

Called from: .\source\function\fwxlsxlb.prg => TWORKSHEET:SAYIMAGE( 206 )

Called from: .\source\function\fwxlsxlb.prg => TWORKSHEET:SAY( 260 )

Called from: .\source\function\fwxlsxlb.prg => TWORKSHEET:_B17( 601 )

Called from: xlsx01.prg => TESTFONTS( 81 )

Called from: xlsx01.prg => MAIN( 25 )

System

======

CPU type: Intel(R) Core(TM) i7-10750H CPU @ 2.60GHz 2592 Mhz

Hardware memory: 16221 megs

Free System resources: 90 %

    GDI    resources: 90 %

    User   resources: 90 %

Windows total applications running: 1

  1 GDI+ Window (AsusOSD.exe), C:\WINDOWS\WinSxS\x86_microsoft.windows.gdiplus_6595b64144ccf1df_1.1.26100.6725_none_b6a081e5524313

  etc ....

TIA

mauri.menabue
Posts: 181
Joined: Thu Apr 17, 2008 02:38 PM

Re: problems with the FWH 32 release 25.09

Posted: Sat Oct 11, 2025 08:24 AM

hi,

Furthermore, I forgot to mention earlier that the sequence of program steps reported in the log is not correct.

Called from: source\hblibxlsxwriter.prg => LXW_PREPARE_IMAGE_OPTIONS( 0 ) <---------------source\hblibxlsxwriter.prg do not esist

Called from: .\source\function\fwxlsxlb.prg => TWORKSHEET:SAYIMAGE( 206 )

Called from: .\source\function\fwxlsxlb.prg => TWORKSHEET:SAY( 260 )

Called from: .\source\function\fwxlsxlb.prg => TWORKSHEET:_B17( 601 )

Called from: xlsx01.prg => TESTFONTS( 81 )

Called from: xlsx01.prg => MAIN( 25 )

TIA

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: problems with the FWH 32 release 25.09

Posted: Sat Oct 11, 2025 03:12 PM
Dear Mauri,

Here xlsx01.prg is working fine just with some minor fixes and wwonder.fpt moved to samples/data folder

xlsx01.prg
Code: Select all Collapse
#include "fivewin.ch"

REQUEST DBFCDX

//

//REQUEST DRXLSX
REQUEST XLSXLIB

//----------------------------------------------------------------------------//

function Main()

   SET DATE ITALIAN
   SET CENTURY ON
   SET TIME FORMAT TO "HH:MM:SS"

   SetBalloon( .t. )
   SetGetColorFocus()

//  UseDrXlsx( .t. )
   UseXlsxLib( .t. )

   ? "start"

   xBrowseXlsx()
   TestFonts()
   DbfToXlsx01()

return nil

//----------------------------------------------------------------------------//

function XbrowseXlsx()

   XBROWSER "CUSTOMER.DBF"

return nil

function TestFonts()

   local cFile, oXlsx, oFormat

   if !XlsxLibLinked()
      ? "Requires XLSXLIB"
      return nil
   endif

   cFile    := "testfont.xlsx"
   oXlsx    := XlsxLibObj( cFile )

   ? "start"

   WITH OBJECT oXlsx

      WITH OBJECT( oFormat := :Format() )
         :SetFont( "IMPACT", 50, NARGB(0,CLR_HRED), "BO" )
         :SetColor( nil, NARGB( CLR_YELLOW ) )
         :FontRotate( 90 )
         :Align( 2, 10 )
      END

      :MergeRange( 0,0,15,0, "MERGED", oFormat )
      :SetColumnSize( 1, 1, 40 )

      WITH OBJECT( oFormat := :Format() )
         :SetFont( "Times New Roman", 20, 0, "B" );
         :Align( 2 )
      END

      :Say( "B1", "Times New Roman", oFormat )
      :Say( 1, 1, "������",  :Format():SetFont( "tahoma", 16, 0xff0000 ):SetBorder( 2, 0x0000ff ) )
      :B3    := "THIRD ROW"
      WITH OBJECT ( oFormat := :Format() )
         :Picture( 4 )
         :SetFont( "Lucida Console", 14, 0x0000ff, "bold" )
         :Underline( 4 )
      END
      :Say( 4, 1, 3456789.2, oFormat )

      // Image
      :aImageSize( 1000, 700 )
      :B17 := MEMOREAD( "..\..\bitmaps\sea.bmp" )

      :Close()

   END

   ? "Written " + cFile

   ShellExecute( 0, "Open", cFile )

return nil

//----------------------------------------------------------------------------//

function DbfToXlsx01

   local oXlsx, cFile

   if !XlsxLibLinked()
      ? "Requires XLSXLIB"
      return nil
   endif

   cFile    := "ww.xlsx"
   oXlsx    := XlsxLibObj( cFile, "WWonders" )

   USE ..\data\WWONDERS SHARED NEW VIA "DBFCDX"
   WITH OBJECT oXlsx
      :CreateFrom()
      :Close()
   END

   ? "Created " + oXlsx:cFile

   ShellExecute( 0, "Open", cFile )

return nil

#pragma BEGINDUMP
int _streams;
#pragma ENDDUMP
regards, saludos

Antonio Linares
www.fivetechsoft.com
mauri.menabue
Posts: 181
Joined: Thu Apr 17, 2008 02:38 PM

Re: problems with the FWH 32 release 25.09

Posted: Sat Oct 11, 2025 04:42 PM

Hi Antonio,

I started again from a clean situation and now I confirm what you are saying, Antonio,

sorry for my mistake! I would like confirmation: we need to use a bcc77 and Harbour, NOT CLANG.

If so, what is lost in terms of performance?

TIA Maurizio Menabue

Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: problems with the FWH 32 release 25.09

Posted: Sat Oct 11, 2025 05:27 PM
Dear Mauri,

We have not tested it ourselves but according to Google Gemini info:
The resulting executable from the Borland LLVM-Clang compiler generally runs faster than one compiled with the classic Borland compiler (bcc77/bcc32), though the exact amount varies by application:

Benchmark Example: A small test that required algorithmic optimization showed the code compiled with LLVM-Clang ran in 47 milliseconds compared to 203 milliseconds for the code compiled with the classic bcc32. 1  
C++Builder: classic compiler vs clang - Mechanics of software

blog.arbinada.com


Speed Difference: This represents a runtime speed increase of approximately 330% (i.e., the Clang-compiled code was over four times faster).

This superior runtime performance is due to the LLVM backend's advanced and aggressive optimization passes, which are far more sophisticated than those in the older compiler.
So, yes, we should consider to use it :idea:
regards, saludos

Antonio Linares
www.fivetechsoft.com
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: problems with the FWH 32 release 25.09

Posted: Mon Oct 13, 2025 01:49 PM
We already have a working FWH 25.09 32 bits using Borland bcc77 llvm-clang version :wink: :idea:

Many thanks to Enrico Maria Giordano for his great help :!:
regards, saludos

Antonio Linares
www.fivetechsoft.com
CARLOS ATUNCAR
Posts: 230
Joined: Thu Sep 17, 2015 11:40 PM

Re: problems with the FWH 32 release 25.09

Posted: Thu Oct 23, 2025 03:36 PM

Saludos Antonio, solo se puede usar con la version 25.09 , no se puede con la 25.04 ?. Gracias

Carlos Atuncar - CaSoftSystem
Chincha - Perú
+51983478218
carlosalbatun@gmail.com
Antonio Linares
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM

Re: problems with the FWH 32 release 25.09

Posted: Thu Oct 23, 2025 06:33 PM

Estimado Carlos,

De momento solo funciona con la versión 25.09 y aun no lo hemos preparado para su distribución.

Posiblemente estará disponible a partir de la versión 25.12

regards, saludos

Antonio Linares
www.fivetechsoft.com

Continue the discussion

Static archive · New replies & topics via GitHub Discussions