FWH64 y Memoread()

[George]

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]

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

[Antonio Linares]

Dear George,

Este ejemplo funciona correctamente:

Code: Select all  Expand view

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.

[jnavas]

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

[Antonio Linares]

Juan,

Usar la función hb_MemoWrit() es mucho más rápido que hacerlo como muestras

Tu sistema es correcto, pero si buscamos la máxima velocidad de ejecución entonces hb_MemoRead() es el camino a tomar

[jnavas]

Antonio
Gracias por las recomendaciones.
Actualmente estamos migrando, tengo una experiencia actual (Donde memoread() devuelve vacio, xharbour .82).

[Antonio Linares]

Juan,

Olvídate de xHarbour y usa Harbour. Es mi mejor consejo

hb_MemoRead() de Harbour funciona de maravilla.