bb.donnay-software.com

Victorio wrote: ↑Wed Jun 19, 2024 6:29 am It is possible that it is caused by an older version of Xbase++, I have a release 554 of Xbase++ Foundation edition 2.0.
It is possible that this is caused by an older version of Xbase++, I have a release ,
I didn't buy a newer update because I only maintain my old programs and it's not worth it to me to invest almost 1000 Euros in a new version, even if Alaska released a 64bit version it would help me, but because of the RAM usage limitations of 2GB it wouldn't help me much.

For PACK it would be something that is part of "topdown" library FUNCTION tdPack (there is full source available). It does pack with copying data to new file and later renaming it into original while original is left as backup.

k-insis wrote: ↑Thu Jun 20, 2024 12:34 am > even if Alaska released a 64bit version it would help me
If that will happen at all.

Victorio wrote: ↑Thu Jun 20, 2024 5:22 am

Jimmy : thanks, I know about Harbour, also have downloaded it, but I haven't gotten around to trying it yet.

you just need

Code: Select all

SET DBFLOCKSCHEME TO DB_DBFLOCK_HB64

to use DBF > 2 GB under Harbour

Sample for Harbour 64 BIt

Code: Select all

#include "dbinfo.ch"
REQUEST HB_GT_WIN_DEFAULT  // Console Output

proc main()
local i, n := int(2^22) + 10, nStep := int ( n / 50 )

   SET DBFLOCKSCHEME TO DB_DBFLOCK_HB64

   if !file("tst4GB.dbf")
      ? "Building tst4GB.dbf..., be patient ..."
      ? REPLICATE ( Chr ( 177 ), 50 )
      DevPos( ROW(), COL()-50 )
      // Note : Harbour 64 Bit can use Type C > 256 Length
      dbcreate("tst4GB.dbf",{{"F1","C",1023,0}, {"id","+",4,0}})
      use tst4GB exclusive
      for i:=1 to n
         dbappend()
         replace F1 with str(i,10)
         IF i%nStep = 0 
	      ?? Chr ( 219 )
         endif
      next i
      close
      ?? " 100% done"
   endif
   use tst4GB shared alias tst1 new
   use tst4GB shared alias tst2 new
   ? "records:", tst1->(lastrec()), ;
      ", size:", tst1->(header())+tst1->(lastrec())*tst1->(recsize())

   ? "tst1 goto:", lastrec()-1, tst1->(dbgoto(lastrec()-1))
   ? "tst1 recno():", tst1->(recno()), "->", alltrim(tst1->(fieldget(1))), "->" , tst1->(fieldget(2))
   ? "tst2 goto:", lastrec()-1, tst2->(dbgoto(lastrec()-1))
   ? "tst2 recno():", tst2->(recno()), "->", alltrim(tst2->(fieldget(1))), "->" , tst2->(fieldget(2))
   ? "FLOCK tst1: ", tst1->(flock())

   n := int(2^20+10)

   ? "tst2 goto:", n-1, tst2->(dbgoto(n-1))
   ? "tst2 recno():", tst2->(recno()), "->", alltrim(tst2->(fieldget(1))), "->" , tst2->(fieldget(2))

   ? "tst2 goto:", n-2, tst2->(dbgoto(n-2))
   ? "tst2 recno():", tst2->(recno()), "->", alltrim(tst2->(fieldget(1))), "->" , tst2->(fieldget(2))


   n := int(2^21+10)

   ? "tst2 goto:", n-1, tst2->(dbgoto(n-1))
   ? "tst2 recno():", tst2->(recno()), "->", alltrim(tst2->(fieldget(1))), "->" , tst2->(fieldget(2))

   ? "tst2 goto:", n-2, tst2->(dbgoto(n-2))
   ? "tst2 recno():", tst2->(recno()), "->", alltrim(tst2->(fieldget(1))), "->" , tst2->(fieldget(2))

   n := lastrec()

   ? "tst2 goto:", n-1, tst2->(dbgoto(n-1))
   ? "tst2 recno():", tst2->(recno()), "->", alltrim(tst2->(fieldget(1))), "->" , tst2->(fieldget(2))

   ? "tst2 goto:", n-2, tst2->(dbgoto(n-2))
   ? "tst2 recno():", tst2->(recno()), "->", alltrim(tst2->(fieldget(1))), "->" , tst2->(fieldget(2))

   close all
   inkey ( 0 )
return

Victorio wrote: ↑Tue Jun 25, 2024 5:35 am ok, Jimmy, thanks for advice, but I have not problem with 2GB DBF but with more than 2GB use of memory , for arrays and also variables.
because I read large TXT files and store its content to variable or array, and processing it in memory for maximal speed.
now I have on server 24 CPU, and 48GB RAM, this is enough for multiprocessing , on every CPU running separate process, but can not use more than 2GB RAM.
Because this I must processed TXT file divide to smallest parts and processing it invidiually. Works fine when parts are about 100MB.
After processing I must join results.
Modify system to use 3GB RAM solve anything.

Without this 2GB limit source code wound be simplier.
But my application work on 80 offices around country more than 30 years, I mean it is enough, and prospectively, I don't want to invest a lot of effort and money into it
I considered converting it to C++ again, where it used to be, and reworked it into Xbase++, while it was very, very fast in C++, I just don't know what the limits are in C++, moreover, I would only make external modules demanding processing speed in C++