topic-28002

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

FWH64 y Memoread()
Posted: Mon Jan 27, 2014 06:09 PM

Hola foro y Fivetechsoft,
He estado haciendo pruebas con Memoread() y FWH64 version 13.08 para leer archivos de texto.
Esta funcion es bien rapida; por ejemplo lee un archivo de 3,837,926KB en solo 85.2 segundos en mi Windows 7 - 64 bits desktop.

El problema es que cuando el archivo pasa de 4 giga esta funcion no se ejecuta.

Puesto que en Windows 7 - 64 Bits y FWH64 se debe sobrepasar el limite de los 4 gigs, es posible que la limitacion la tengamos en la funcion Memoread().
Mi pregunta es si se puede modificar el codigo fuente de Memoread() para evitar este limite cuando se usa FWH64?

Saludos,

George

jnavas

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

Re: FWH64 y Memoread()
Posted: Fri Nov 19, 2021 09:01 AM

Saludos
Estoy experimentando resultado de Memoread() devuelve vacío en archivos de extensión TXT,
estoy evaluando utilizar la clase TFile

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: FWH64 y Memoread()
Posted: Sat Nov 20, 2021 06:05 AM

Dear George,

Este ejemplo funciona correctamente:

Code (fw): Select all Collapse

function Main()

   local cOver4GB := Space( 5 * ( 1024 ^ 3 ) )

   ? Len( cOver4GB )
   hb_MemoWrit( "over4GB", cOver4GB )
   
   ? Len( hb_MemoRead( "over4GB" ) )  // comenta esto la primera vez y la segunda comenta todo menos esta línea

return nil

Comenta la última línea la primera vez que lo ejecutes para que se cree el fichero de 5GB "over4GB".
Ahora modifica el código y usa solo esto: ? Len( hb_MemoRead( "over4GB" ) )

Aqui se está comportando correctamente. Si tienes la limitación de 4GB es que estas usando 32 bits en vez de 64 bits.

regards, saludos

Antonio Linares
www.fivetechsoft.com

jnavas

Posts: 492

Joined: Wed Nov 16, 2005 12:03 PM

Re: FWH64 y Memoread()
Posted: Sun Nov 21, 2021 01:34 AM

Saludos
Logré resolver mediante
FUNCTION MEMOREADX(cFile)
LOCAL oFile,cLinea,cMemo:=""

DEFAULT cFile:="DATAPRO.INI"

oFile:= TTxtFile():New(cFile, 0)

WHILE !oFile:Eof()
cLinea:=oFile:ReadLine()
cMemo :=cMemo+IF(Empty(cMemo),"",CRLF)+cLinea
oFile:Skip()
ENDDO

oFile:Close()

RETURN cMemo

Saludos
Juan Navas
www.datapronet.com
www.adaptapro.com
jnavas@adaptapro.com