Discussion :

[simon1]

slt
je cherche une fonction ou une méthode pour faire extraire une partie d'un fichier.
Cette partie est limité par un offset du départ et un autre pour finir
et merci .

[Charly910]

Bonjour,

je pense qu'il faut que tu utilise BlockRead

Regarde l'aide

Voici un exemple tiré de l'aide

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
18
19
20
21
22
23
24
25
26
var
 
  FromF, ToF: file;
  NumRead, NumWritten: Integer;
  Buf: array[1..2048] of Char;
begin
  if OpenDialog1.Execute then { Affichage de la boîte de dialogue d'ouverture }
  begin
    AssignFile(FromF, OpenDialog1.FileName);
    Reset(FromF, 1);	{ Taille d'enregistrement = 1 }
    if SaveDialog1.Execute then      { Affichage de la boîte de dialogue d'enregistrement}
    begin
      AssignFile(ToF, SaveDialog1.FileName);	{ Ouverture du fichier de sortie }
 
      Rewrite(ToF, 1);	{ Taille d'enregistrement = 1 }
      Canvas.TextOut(10, 10, 'Copie de ' + IntToStr(FileSize(FromF))
        + ' octets...');
      repeat
        BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
        BlockWrite(ToF, Buf, NumRead, NumWritten);
      until (NumRead = 0) or (NumWritten <> NumRead);
      CloseFile(FromF);
      CloseFile(ToF);
    end;
  end;
end;

@+

Charly

[Andnotor]

Tu peux aussi passer par un TFileStream. Seek pour te positionner au début du bloc et ensuite Read ou ReadBuffer sur la différence des Offsets.

[simon1]

merci
j ai Utilisé mais la sortie de file est 0 byte
et comment je configurer une taille de fichier