Discussion :

[Jipété]

Mais ReadByte... Mon "vieux D7" ne le connait pas !

Exact, désolé.

Bon, comme de toute façon ReadByte et les autres s'appuient tous sur Read, yakà s'adapter :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  ...
  B: Byte;
begin
  ...
    with LFileStream do begin
      Position := 0;
      for i := 0 to Size -1 do begin
        Read(B, 1); // LE truc! Read lit et avance tout seul : bonheur
        sum := sum + B;
      end;
      Free;
   end;

[Andnotor]

@Atheus

Tu ne peux pas mélanger les deux techniques.

Soit tu te travailles sur le pointeur interne du stream seek(7, soFromEnd), soit sur le pointeur externe inc(P, Size -7).
Dans le premier cas, tu devras passer par Read(B, 1); Inc(Sum, B); comme le propose Jipété, sinon comme mon exemple (Inc(Sum, P^); Inc(P);.

Oui l'écriture est possible mais mieux vaut utiliser write (pointeur interne) qui va s'assurer que la taille mémoire allouée est suffisante. Par pointeur externe serait possible aussi mais il faudra gérer soit-même la taille du stream.

[Atheus]

Super intéressant, merci.

Remarque tout de même, le code de Jipété parait super optimisé, mais dans les faits... Ça met une 30aine de sec pour obtenir le résultat.
Avec le code d'Andnotor, c'est instantané !
Étrange non ?

[Lung]

Ça met une 30aine de sec pour obtenir le résultat.
Avec le code d'Andnotor, c'est instantané !
Étrange non ?

Incrémenter un pointeur est plus rapide que le for (plus d'instruction à exécuter).

[Atheus]

@Atheus
pointeur externe inc(P, Size -7).

Ok, j'ai compris qu'on incrémente ici avec les 6 derniers caractères, mais comment je lis ce qui est incrémenté ensuite ?
Je ne peux pas utiliser 2 fois le array of byte P puisqu'il aura été rempli 2 fois de différentes manières ?

[Atheus]

J'ai essayé de prendre en compte vos propositions pour continuer mon petit programme.
Le résultat de ma requête n'est pas celui escompté et pire, j'ai une erreur qui lance le débogueur.

Pour lire mon Stream, j'ai bien la boucle qui me donne le bon résultat (thème principal de ce thread) par ajout de bytes par bytes
Mais du coup, je veux profiter du Stream ouvert pour récupérer une signature de fichier, à savoir les 6 derniers octets.

Voici mon code :

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
27
28
29
30
31
32
 
var
  i : integer;
  P : pByte;
  Q : pByte;
  Result : integer;
  Last : integer;
 
  begin
  Result := 0;
  with TMemoryStream.Create do
  try
    LoadFromFile(OpenDialog1.Filename);
    P := Memory;
    Q := Memory;   // Ne voulant pas remplir le buffer avec des données différentes, j'en créé un autre ?
    inc(Q, Size -7); // J'incrémente en suivant votre méthode, donc ici, juste les 6 derniers bytes
    Last := Read(Q, 5); // Ici j'essaye de récupérer ses 6 bytes... ET C'est sûrement là que ça bloque.......
 
    for i := 0 to Size -1 do  // La boucle derrière qui elle fonctionne très bien
    begin
      inc(Result, P^);
      inc(P);
 
 
    end;
 
  finally
  Free;
  end;
 
ShowMessage('Somme des octets  : '+FloatToStr(Result));
ShowMessage('Derniers hex : '+IntToHex(Last,1););

[SergioMaster]

Bonjour,

je m'interroge sur le bien fondé du type de la variable LAST

[Atheus]

La réponse sera forcément une série de bytes... Mais même si je change le type de variable, ça ne marche pas.

[Andnotor]

Ni P ni Q ne sont des array of byte dans ton code mais de pointeurs typé byte.

Si tu veux lire 6 octets à la fin du fichier, ce sera quelque chose comme ceci.

A l'aide du pointeur interne :

Code :

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

1
2
3
4
var Buffer :array[0..5] of byte;
 
seek(5, soFromEnd);
Read(Buffer, 6);

Et par pointeur externe :

Code :

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

1
2
3
4
5
var Buffer :array[0..5] of byte;
 
P := Memory;
Inc(P, Size -6);
CopyMemory(@Buffer, P, 6);

Je te répète, tu ne peux pas mixer les deux techniques.

[Atheus]

CopyMemory ? Ouah, je ne serais jamais allé le chercher celui là !
Ok ok, je retiens, pas de mélange de techniques.

Je te remercie, je teste ça ce soir.

[Atheus]

Testé, et je confirme, la méthode avec pointeurs est juste ULTRA rapide, même sur des fichiers assez lourd.
MERCI encore vivement à tous, vous êtes vraiment géniaux ! (et tellement réactifs !)
Je suis super content et désolé d'avoir usé de votre patience.

A très vite.