comment chercher une valeur hex dans un fichier binaire "file of byte"

Question

salut pour tous je cherche une fonction qui cherche une valeur hexa (par ex:longword $FFE6ABC9) dans un fichier binaire, jai trouver des fontions pour chercher des strings mes ce n'est pas fiable.
j'attends votre aide et merci bcp @+

Bacterius · Answer

Des sources existent à propos de ça ... au fait n'utilises plus "file of", c'est obsolète. Passe aux TFileStream 

Cordialement, Bacterius !

f0xi · Answer

function FindOffsetOf(const FileName: string; const Value: LongWord): Int64;
var RV : LongWord;
    N : int64;
begin
  result := 0;
  with TFileStream.Create(FileName, fmOpenRead) do
  try
    for N := 0 to Size-1 do
    begin
      position := N;
      if read(RV, 4) = 4 then
        if RV = Value then
        begin
          result := N;
          break;
        end;
    end;
  finally
    Free;
  end;
end;

Smith4400 · Answer

f0xi
-------------
Il y a une faute dans la fonction..
Ici...
for N := 0 to Size-1 do



Smith

Bacterius · Answer

Nop il n'y a pas de faute.

Cordialement, Bacterius !

fartotodz2004 · Answer

MERCI bcp f0xi vraiment c gentil de ta part ... tu m'aide à chaque fois merciiiiiiiii

cs_cantador · Answer

bonsoir,
N : int64;

cantador

Bacterius · Answer

Rhoh la la ...

N := 0;
while N < Size - 1 do

mais bien vu Cantador, pas fait attention  (f0xi a des versions récentes de Delphi, on doit pouvoir faire du for-do en 64-bits)

Cordialement, Bacterius !

cs_cantador · Answer

[i]
f0xi a des versions récentes de Delphi, on doit pouvoir faire du for-do en 64-bits/i

C'est un détail mais f0xi, pourrait nous le confirmer

cantador

Comment chercher une valeur hex dans un fichier binaire "file of byte"

8 réponses

Votre réponse

Discussions similaires