mgsoft wrote:Thank you!!
Is source code available?
Will fwh use it for preview and xBrowse?
mgsoft wrote:Thank you. Will you sell the full source code?
I do not use external libs without its full sources.
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
#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
#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 ) )
Records = 59780 Time = 41.74 1432.23 Rec/Sec
Records = 59780 Time = 8.20+ 7285.80 Rec/Sec
Records = 351287 Time = 288.54 1217.47 Rec/Sec
RECNO() = 109571 MEMORY( 3 ) = 31044 // have set Limit at 32 Kb
cIn = "records in dbf: 351287"
cIn = "imported recs: 351287"
cIn = "Std 00:06:13"
cIn = "Rec/Sec 940.51"
nReccount = 351287 nRecLast = 351288 % = 100 nTime = 71.06 4943.40 Rec/Sec
nOEM = 107712 nANSI = 17642 nELSE = 5821450
nReccount = 351287 nRecLast = 109571 % = 31 nTime = 50.96 2150.14 Rec/Sec
nOEM = 39715 nANSI = 4747 nELSE = 1811139
Jimmy wrote:hi,
i have try to make some Sample to "test" Speed
using a 32 Bit Apps
ADORecords = 59780 Time = 41.74 1432.23 Rec/Sec
XLSwriterRecords = 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
ADORecords = 351287 Time = 288.54 1217.47 Rec/Sec
XLSwriterRECNO() = 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"
XLSwriternReccount = 351287 nRecLast = 351288 % = 100 nTime = 71.06 4943.40 Rec/Sec
nOEM = 107712 nANSI = 17642 nELSE = 5821450
this was 32 Bit AppnReccount = 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
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 87 guests