Discussion :

[simoryl]

Salut,

Voilà, je cherche à faire un seek sur un gros fichier depuis la fin dans le but de récupérer les 5 derniers Mo d'un fichier de 6Go.
Quand je fais un seek avec soFromEnd, il me met en position 0 et donc me recopie le fichier...
J'ai essayé de faire des seek successif depuis le début du fichier pour arriver à la position souhaitée mais j'arrive au mieux à une position de -294967296 octets et donc loin de mes 5Mo.

Est-ce que quelqu'un connait une solution à mon problème?

Merci

Simo'

[simoryl]

j'en ai trouvé une bonne qui coince tous le monde lol

[ALWEBER]

La limite théorique d'un processus sous MS-Windows n'est-elle pas de 4Go ?

[ShaiLeTroll]

As-tu géré la taille avec une variable de type "Int64", si ce n'est pas le cas, c'est normal, le Integer se limite à 2 milliards environ puisse pas en négatif ...

Les histoires de limite c'est à l'époque de Win95, non ?

[simoryl]

j'utilise cette ligne de code pour me placer à environ 5Mo de la fin :
fs.Seek(tailleEnd,soFromEnd);
tailleEnd est égale à -5000000 et la variable est déclarée en Int64, c'est pour cela que je ne pige pas où est le problème...

[ShaiLeTroll]

Si tu commence par la fin, il semble effectivement mettre en négatif, tu veux être positionné à 5Mo,

Code :

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

fs.Seek(-5242880, soFromEnd);

cela ne devrait pas poser de problème ... c'est en accord avec l'API Windows

comme j'utilise souvent les API, je ne gère que rarement le déplacement depuis la fin, tient un code qui permet d'écrire une chaine à la toute fin d'un fichier via API

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
16
17
procedure WriteStringAtEnd(const FileName: string; const NewValue: string);
var
  FileHandle: THandle;
  AmtTransferred: Cardinal;
  StartPosition: Int64;
begin
  FileHandle := CreateFile(PChar(FileName), GENERIC_WRITE, 0, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0);
  try
    Int64Rec(StartPosition).Lo := GetFileSize(FileHandle, @Int64Rec(StartPosition).Hi);
    Dec(StartPosition); // La Dernière Position
    Dec(StartPosition, Length(NewValue)); // La Position
    SetFilePointer(FileHandle, Int64Rec(StartPosition).Lo, @Int64Rec(StartPosition).Hi, FILE_BEGIN);
    WriteFile(FileHandle, NewValue[1], Length(NewValue), AmtTransferred, nil);
  finally
    CloseHandle(FileHandle);
  end;
end;

SetFilePointer c'est un seek, mais tu noteras, que je préfère calculer moi même la position depuis FILE_BEGIN ...

tu peux faire donc

Code :

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

fs.Seek(fs.size - 5242880, soFromBeginning);