Discussion :

[j.p.mignot]

Comment peut-on déplacer le pointeur dans un fichier avec SEEK (ou un équivalent) si l'offset est un INT64 > 32bits? Le problème semble assez général car des fonctions commes system.filesize ont un problème équivalent mais dans ce 2ème cas j'ai des solutions alternatives.

[Compilateur, Delphi 2010, RAD studio. OS XP SP2]

Merci pour toutes suggestions!

[Andnotor]

Utilise un TFileStream capable de travailler sur des Int64.

[j.p.mignot]

Un code du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 var   Fl_Stream  : tFileStream;
         FileSize, b : Int64;
         Buffer       : array[0..99] of byte ;
const st : string = 'MonFichier.dat';
begin
…
Fl_Stream := TFileStream.Create(st, fmOpenRead + fmShareDenyNone);
FileSize_ := Fl_Stream.Size;   // Taille OK si <= 63 bits
// b : offset INT64 < FileSize_
Fl_Stream.Seek(b,soFromBeginning); // en lieu et place de seek
Fl_Stream.ReadBuffer(Buffer,100); //en lieu et place de blockread
Fl_Stream.free();
…
end ;

semble donner satisfaction.

[ShaiLeTroll]

sinon, il y a aussi FileSeek qui existe depuis au moins D6, en D5 c'est moins sûr !

[Gilbert Geyer]

Bonjour,

Extrait de l'aide Delphi-5 : ça existe sous D5 :

function FileSeek(Handle, Offset, Origin: Integer): Integer; overload;
function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer): Int64; overload;

A+.

[j.p.mignot]

à propos de TFileStream.seek in Turbo Delphi - Delphi , J'ai trouvé l'info suivante:

soFromCurrent is an ordinal constant:

const
...
soFromCurrent = 1;

By using soFromCurrent, you are forcing the compiler to call the 32-bit
version of Seek():

function Seek(Offset: Longint; Origin: Word): Longint; overload;
virtual;

The 64-bit version of Seek() takes a TSeekOrigin enum instead of an ordinal:

type
TSeekOrigin = (soBeginning, soCurrent, soEnd);

function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64;
overload; virtual;

So, in your code, you need to specify 'soCurrent' instead of 'soFromCurrent'
so that the 64-bit version can be called:

RFile.Seek(MyRecord.JSize, soCurrent);

J'ai constaté le même problème avec le code que j'avais proposé ci-dessus mais tout semble être OK avec le substition de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Fl_Stream.Seek(b,soFromBeginning); // en lieu et place de seek

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Fl_Stream.Seek(b,soBeginning); // en lieu et place de seek

[ShaiLeTroll]

le coup du soBeginning\soFromBeginning c'est très connu, j'ai toujours trouvé cela moche que les versions Integer et Int64 soient différenciées par le type de l'Origine, Word en Integer et Enumération en Int64