Discussion :

[ChPr]

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 :

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

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

[BeanzMaster]

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+

[ChPr]

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 :

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

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