Équivalent de SetFilePointer sous Linux

Bonjour à toutes et à tous,

En transposant une unité sous Linux, je tombe sur un os.

Le problème vient de cette instruction nécessitant l'unité windows.

Code:

---

1 2 3 4 5 6 7

procedure Seek64(var f: File; Pos: longword); var HiDWord: DWORD; begin HiDWord := 0; SetFilePointer(TFileRec(f).Handle, Pos, @HiDWord, FILE_BEGIN); // <-- Cette instruction là end;

---

Y a-t-il un équivalent sous Linux ou une unité où cette procédure serait déclarée ou autre.

Merci pour votre aide.

Cordialement.

Pierre

Salut Pierre

Pourquoi ne pas utiliser directement les fonctions fournies par FPC ?
cf http://wiki.freepascal.org/File_Handling_In_Pascal et pour seek l'avantage tu n'auras pas à te soucier de quoi que ce soit pour la compatibilité entre OS.
Sinon une autre solution est d'utiliser un TFileStream.

A+

Merci pour cette réponse rapide.

En cherchant autour de cette idée, j'ai remplacé "SetFilePointer" par "FileSeek" de la manière suivante :

Code:

---

1 2	// SetFilePointer(TFileRec(f).Handle, Pos, @HiDWord, FILE_BEGIN); FileSeek(TFileRec(f).Handle, Pos, fsFromBeginning);

---

Après essai sous Windows et sous Linux, apparemment, ça fonctionne bien.

Cordialement.

Pierre