[VB6] Lettura files di grandi dimensioni

[FM01967]

Salve a tutti,

ho un problema con la gestione di files di grandi dimensioni, oltre 2GB.

Il programma riportato di seguito funziona per files di piccole dimensioni, ma non riesce a leggere neanche un carattere di un file di grandi dimensioni, restituendomi tutti blanks. C'è un errore? E se si dove?

Grazie per l'aiuto.

************************************************** ********

Dim sBuffer As String
Dim iBytesRead As Long
Const kCharToRead = 10
Const kStartPos = 10

hFile = CreateFile("c:\a\a.txt", GENERIC_READ, FILE_SHARE_READ, 0&, OPEN_EXISTING, 0&, 0)
Call SetFilePointer(hFile, kStartPos, 0, FILE_BEGIN) ' low, high
'
sBuffer = Space(kCharToRead) ' buffer in cui vanno i bytes letti
Call ReadFile(hFile, ByVal sBuffer, kCharToRead, iBytesRead, ByVal CLng(0))
'
CloseHandle hFile

[oregon]

Cioe' ? Se il file e' grande non riesci a leggere nulla ?

La seek prevede la parte bassa del puntatore (che e' limitata a 2 G) e la parte alta (che se e' NULL non viene presa in considerazione).

[FM01967]

Si, esatto. Se il file è oltre i 2GB le medesime istruzioni mi tornano una stringa con tutti blank. Lo stesso non accade per file minori di 2GB.

Sulla base di come è scritto il programma dovrei, come minimo, riuscire a leggere i caratteri della prima parte del file, ma questo non avviene.

[oregon]

Ma quando fai la prova (che non ha successo) con i file grandi, dove posizioni il puntatore e quanti byte leggi?

Cioè, con precisione, quali sono i valori esatti dei parametri che passi quando hai il problema ?

Non quelli che pensi debbano essere, ma quelli che hai visto durante il debug ...

[FM01967]

Sono quelli riportati nel listato a video (che èun esempio per capire dove sbaglio) e definiti tramite costanti: posiziono al 10^ carattere del file e leggo i 10 caratteri successivi

[oregon]

Per replicare il problema dovresti postare le dichiarazioni delle API e delle costanti che hai usato.

[FM01967]

Di seguito il programma completo

Declare Function ReadFile Lib "kernel32" _
(ByVal hFile As Long, _
lpBuffer As Any, _
ByVal nNumberOfBytesToRead As Long, _
lpNumberOfBytesRead As Long, _
ByVal lpOverlapped As Long) As Long
Declare Function CloseHandle Lib "kernel32" _
(ByVal hObject As Long) As Long
Declare Function CreateFile Lib "kernel32" _
Alias "CreateFileA" (ByVal lpFileName As String, _
ByVal dwDesiredAccess As Long, _
ByVal dwShareMode As Long, _
ByVal lpSecurityAttributes As Long, _
ByVal dwCreationDisposition As Long, _
ByVal dwFlagsAndAttributes As Long, _
ByVal hTemplateFile As Long) As Long
Declare Function SetFilePointer Lib "kernel32" _
(ByVal hFile As Long, _
ByVal lDistanceToMove As Long, _
lpDistanceToMoveHigh As Long, _
ByVal dwMoveMethod As Long) As Long
Global hFile As Long
Global Const FILE_BEGIN = 0, FILE_CURRENT = 1, FILE_END = 2



Const GENERIC_READ = &H80000000
Const FILE_SHARE_READ As Long = &H1&
Const OPEN_EXISTING As Long = 3&

Dim sBuffer As String
Dim iBytesRead As Long
Const kCharToRead = 10
Const kStartPos = 10

hFile = CreateFile("c:\a\a.txt", GENERIC_READ, FILE_SHARE_READ, 0&, OPEN_EXISTING, 0&, 0)
Call SetFilePointer(hFile, kStartPos, 0, FILE_BEGIN) ' low, high
'
sBuffer = Space(kCharToRead) ' buffer in cui vanno i bytes letti
Call ReadFile(hFile, ByVal sBuffer, kCharToRead, iBytesRead, ByVal CLng(0))
'
CloseHandle hFile

In sBuffer dovrei avere la stringa, ma in realtà mi ritrovo una sequela di "?".

[oregon]

Allora ... ho provato il tuo codice con un file da 1 k e con file da piu' di 2 G e funziona ugualmente ...

Dai maggiori indicazioni sul problema ...

(Naturalmente ho provato con file di testo ... )

[FM01967]

Allora,
dopo questo scambio di email ho fatto delle prove ulteriori e sono riuscito a farlo funzionare in parte esattamente nel modo riportato nel listato. In parte in quanto mi funziona solo con la prima parte del file, ossia mi legge i caratteri dei primi due giga. Il problema nasce quando cerco di accedere ai restanti due giga, imposto ad 1 il parametro della parte alta, invece di 0,

Call SetFilePointer(hFile, kStartPos, 1, FILE_BEGIN) ' low, high

ma mi legge solo spazi bianchi.
Come devo valorizzare il parametro?

[oregon]

Originariamente inviato da FM01967
Allora,
dopo questo scambio di email ho fatto delle prove ulteriori e sono riuscito a farlo funzionare in parte esattamente nel modo riportato nel listato. In parte in quanto mi funziona solo con la prima parte del file, ossia mi legge i caratteri dei primi due giga.

Cosa che quel programma aveva sempre fatto. E infatti, mi stavo scervellando su come non ti funzionasse ... a questo punto, tu non l'avevi mai provato ...

Il problema nasce quando cerco di accedere ai restanti due giga, imposto ad 1 il parametro della parte alta, invece di 0,

Call SetFilePointer(hFile, kStartPos, 1, FILE_BEGIN) ' low, high

ma mi legge solo spazi bianchi.
Come devo valorizzare il parametro?

Ecco ... e' questo il problema vero ... ma se leggi la documentazione su MSDN

SetFilePointer
http://msdn.microsoft.com/en-us/library/aa365541(VS.85).aspx

vedi facilmente che il parametro

__inout_opt PLONG lpDistanceToMoveHigh,

e' un puntatore a long, quindi dovresti usare una variabile

Dim ha As Long

ha = 1

e usare la variabile che sarà passata per riferimento

Call SetFilePointer(hFile, kStartPos, ha, FILE_BEGIN) ' low, high