SEEK (file, offset): l'offset est un Intéger 32b. Comment pointer directement plus loin?

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!

Utilise un TFileStream capable de travailler sur des Int64.

Un code du type:

Code:

---

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.

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

Bonjour,

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

Citation:

---

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

---

A+. :D

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

Citation:

---

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:

---

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

---

par

Code:

---

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

---

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