topic-43643

Posts: 44162

Joined: Thu Oct 06, 2005 05:47 PM

Announcing DrXlsx 1.0 by Charles Kwon
Posted: Fri Aug 25, 2023 07:57 AM

A great contribution to Harbour/xHarbour from Master Charles Kwon:

http://www.charleskwon.com/?page_id=956

Don't miss it!

regards, saludos

Antonio Linares
www.fivetechsoft.com

Joaquim Ferrer

Posts: 105

Joined: Sat Jan 14, 2012 03:46 PM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Fri Aug 25, 2023 09:27 AM

* No Excel installation is required at all
* No XLSX ADO installation is needed either
* No special DLL installation is required to create XLSX files
* XLSX creation is self-contained, no external files needed

Many Thanks, great job master Charles Kwon !

Fivewinner desde 1.9, programador PHP y Javascript, PWA & HTML5 evangelista

mauri.menabue

Posts: 181

Joined: Thu Apr 17, 2008 02:38 PM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Fri Aug 25, 2023 11:38 AM

Hi Charles Know

Really thank you, it's a really missing tool !!!.

i already downloaded it and it worked without problems Fwh 23.07 BBC 7.0.

Today I continue with the tests

Tia Maurizio Menabue

mgsoft

Posts: 422

Joined: Mon Aug 17, 2009 12:18 PM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Fri Aug 25, 2023 04:28 PM

Thank you!!

Is source code available?

Will fwh use it for preview and xBrowse?

Saludos,

Eduardo

CharlesKwon

Posts: 28

Joined: Sun Nov 02, 2014 07:03 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Fri Aug 25, 2023 07:12 PM

mgsoft,
The distribution file contains sample source code. Additionally, there is a manual available at the link above.

Regards,
Charles KWON

mgsoft wrote:Thank you!!

Is source code available?

Will fwh use it for preview and xBrowse?

mauri.menabue

Posts: 181

Joined: Thu Apr 17, 2008 02:38 PM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Fri Aug 25, 2023 08:18 PM

Hi Charles,

the program has just been presented and I immediately ask if you have in mind

the possibility of adding two methods, one to manage the height of the lines,

the other to be able to modify the method : sayimage in order to possibly resize

the image to be printed.

TIA

Maurizio Menabue

mgsoft

Posts: 422

Joined: Mon Aug 17, 2009 12:18 PM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Fri Aug 25, 2023 08:35 PM

Thank you. Will you sell the full source code?

I do not use external libs without its full sources.

Saludos,

Eduardo

CharlesKwon

Posts: 28

Joined: Sun Nov 02, 2014 07:03 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Sat Aug 26, 2023 12:04 AM

mgsoft,

I have no intention of revealing the internal code. So, I prefer using the iPhone and Windows, which don't have their internal code disclosed. This is human free will
Please, by your own free will, find and use another 'OPEN' SOURCE.

Regards,
Charles KWON

mgsoft wrote:Thank you. Will you sell the full source code?

I do not use external libs without its full sources.

CharlesKwon

Posts: 28

Joined: Sun Nov 02, 2014 07:03 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Sat Aug 26, 2023 12:14 AM

Maurizio,

DrXlsx supports many versions of harbour(32/64)/xHarbour(32/64) and VC/BCC/Clang under the same protocol.
It's a time-consuming task and some versions can cause unexpected issues due to their unique characteristics.
I am also testing the desired features for each version, and I will announce them once it is complete.
Thank you.

Regards,
Charles KWON

mauri.menabue wrote:Hi Charles,
the program has just been presented and I immediately ask if you have in mind
the possibility of adding two methods, one to manage the height of the lines,
the other to be able to modify the method : sayimage in order to possibly resize
the image to be printed.

TIA
Maurizio Menabue

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Sat Aug 26, 2023 05:54 PM

hi,

i open OEM DBF and try to use oXlsx:Say() or oXlsx:WriteString()

but i have Problem with DrXlsx32.lib and German Umlaute ( äöüÄÖÜß )

have try FW_SetUnicode( .T./.F. ) and hb_cdpSelect( "DE850" / "DEWIN" )

need a Tip what else i can try

greeting,

Jimmy

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Sat Aug 26, 2023 11:51 PM

Code (fw): Select all Collapse

#include "fivewin.ch"

function Main()

   local oXlsx, cFile, cUmlaut

   FW_SetUnicode( .F. )

   cFile    := "uml.xlsx"
   cUmlaut := "üüüüü"
   ? cUmlaut

   oXlsx    := TDrXlsx():New()
   WITH OBJECT oXlsx
      :CreateFile( cFile )
      :Say( 1, 0, "UMLAUT" )
      :Say( 1, 1, cUmlaut )
      :Close()
   END

   ShellExecute( 0, "Open", cFile )

return nil

Regards

G. N. Rao.

Hyderabad, India

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Sun Aug 27, 2023 04:33 AM

In continuation:

German Umlauts (also all accented characters of West European languages) are encoded differently in ANSI and UTF8. I posted more details in your other posting.

All English characters and also all non-accented characters of other languages are encoded as same single byte both in ANSI and UTF8, so there is no problem there.

I noticed that this library requires utf8 encoding. If our string containing Umlauts is encoded in ANSI, we need to convert into UTF8.

I propose this approach which is working satisfactory in all my tests:
It does not matter if the string is ANSI encoded or UTF8 encoded, this approach works.

Code (fw): Select all Collapse

#include "fivewin.ch"

function Main()

   local oXlsx, cFile, cUmlaut

   FW_SetUnicode( .F. )

   cFile    := "uml.xlsx"

   cUmlaut  := Space( 10 )
   MsgGet( "Enter:", "UMLAUT", @cUmlaut )
   cUmlaut  := Trim( cUmlaut )

   oXlsx    := TDrXlsx():New()
   WITH OBJECT oXlsx
      :CreateFile( cFile )
      :Say( 1, 0, "UMLAUT" )
      :Say( 1, 1, strToUtf8( cUmlaut ) )
      :Close()
   END

   ShellExecute( 0, "Open", cFile )

return nil
//-------------
static function StrToUtf8( c ); return UTF16TOUTF8( strToWide( c ) )

Please test by entering different strings and this should work well.

Regards

G. N. Rao.

Hyderabad, India

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Sun Aug 27, 2023 12:29 PM

hi,

thx for Answer.

your Sample work like expect, but i talk about "old" existing OEM DBF

i have try to explain it in this Thread
https://forums.fivetechsupport.com/viewtopic.php?f=3&t=43651

greeting,

Jimmy

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Sun Aug 27, 2023 12:43 PM

hi,

i have try to make some Sample to "test" Speed

using a 32 Bit Apps

ADO

Records = 59780 Time = 41.74 1432.23 Rec/Sec

XLSwriter

Records = 59780 Time = 8.20+ 7285.80 Rec/Sec

so XLSwriter is 500 % faster :!:

---

now use XLSwriter with > 350000 Record using 32 Bit App ...

32 Bit Aoo using XLSwriter "crash" > 109000 Record while "memory exhaust" :(
32 Bit App using ADO does create a 20 MB *.XLSB with all 351287 Record :D

ADO

Records = 351287 Time = 288.54 1217.47 Rec/Sec

XLSwriter

RECNO() = 109571 MEMORY( 3 ) = 31044 // have set Limit at 32 Kb

it is just before available Memory "crash" so leave loop

i "think" it have to do that ADO "read/write" while XLSwriter "read" all to RAM before "write"
when "break" ADO there is a *.XLSB but nothing when XLSwriter "crash"

---

using a 64 Bit Apps

ADO
it is funny that my 64 Bit MSVC App work slower that 32 Bit BCC7 App ?

cIn = "records in dbf: 351287"
cIn = "imported recs: 351287"
cIn = "Std 00:06:13"
cIn = "Rec/Sec 940.51"

XLSwriter

nReccount = 351287 nRecLast = 351288 % = 100 nTime = 71.06 4943.40 Rec/Sec
nOEM = 107712 nANSI = 17642 nELSE = 5821450

this was 32 Bit App

nReccount = 351287 nRecLast = 109571 % = 31 nTime = 50.96 2150.14 Rec/Sec
nOEM = 39715 nANSI = 4747 nELSE = 1811139

btw. when RAM decrease also APP Speed decrease using 32 Bit App

so also XLSwriter 64 Bit is 500 % faster :!:

---

Epilogue :
Benefit ADO : work under 32 Bit App. no "Umlaute" Problem using OEM DBF
Limitation : Speed like ActiveX

Benefit XLSwriter : SPEED
Limitation : need UFT8 else it "crash"

not sure : XLSwriter 32 Bit App get "slower" when use many Times include "edit"/Recompile
from 2150.14 Rec/Sec it goes < 2000 Rec/Sec ... after re-boot it start at 2300 Rec/Sec

greeting,

Jimmy

CharlesKwon

Posts: 28

Joined: Sun Nov 02, 2014 07:03 AM

Re: Announcing DrXlsx 1.0 by Charles Kwon
Posted: Sun Aug 27, 2023 04:12 PM

Jimmy,

1.
The issue occurring in 32bit is less a problem of DrXlsx and more fundamentally about the memory size limitations of 32bit. It might be more beneficial to explore other solutions than spending time trying to resolve this.
2.
If DrXlsx operates correctly in 64bit, I would recommend creating the xlsx export program in 64bit and using it as a utility.

Regards,
Chalres KWON

Jimmy wrote:hi,

i have try to make some Sample to "test" Speed

using a 32 Bit Apps

ADO
Records = 59780 Time = 41.74 1432.23 Rec/Sec
XLSwriter Records = 59780 Time = 8.20+ 7285.80 Rec/Sec

so XLSwriter is 500 % faster :!:

---

now use XLSwriter with > 350000 Record using 32 Bit App ...

32 Bit Aoo using XLSwriter "crash" > 109000 Record while "memory exhaust" :(
32 Bit App using ADO does create a 20 MB *.XLSB with all 351287 Record :D

ADO

Records = 351287 Time = 288.54 1217.47 Rec/Sec

XLSwriter

RECNO() = 109571 MEMORY( 3 ) = 31044 // have set Limit at 32 Kb

it is just before available Memory "crash" so leave loop

i "think" it have to do that ADO "read/write" while XLSwriter "read" all to RAM before "write"
when "break" ADO there is a *.XLSB but nothing when XLSwriter "crash"

---

using a 64 Bit Apps

ADO
it is funny that my 64 Bit MSVC App work slower that 32 Bit BCC7 App ?

cIn = "records in dbf: 351287"
cIn = "imported recs: 351287"
cIn = "Std 00:06:13"
cIn = "Rec/Sec 940.51"

XLSwriter

nReccount = 351287 nRecLast = 351288 % = 100 nTime = 71.06 4943.40 Rec/Sec
nOEM = 107712 nANSI = 17642 nELSE = 5821450

this was 32 Bit App

nReccount = 351287 nRecLast = 109571 % = 31 nTime = 50.96 2150.14 Rec/Sec
nOEM = 39715 nANSI = 4747 nELSE = 1811139

btw. when RAM decrease also APP Speed decrease using 32 Bit App

so also XLSwriter 64 Bit is 500 % faster :!:

---

Epilogue :
Benefit ADO : work under 32 Bit App. no "Umlaute" Problem using OEM DBF
Limitation : Speed like ActiveX

Benefit XLSwriter : SPEED
Limitation : need UFT8 else it "crash"

not sure : XLSwriter 32 Bit App get "slower" when use many Times include "edit"/Recompile
from 2150.14 Rec/Sec it goes < 2000 Rec/Sec ... after re-boot it start at 2300 Rec/Sec

FiveTech Support Forums