Recherche en hexadécimal dans un fichierRésolu

Question

Bonjours a tous,

J'aimerai ouvrir un fichier en hexadecimal et rechercher une chaine soit en ascii ou directement le code hexa.

Et bien sur connaitre l'offset de la chaine trouver.

Je ne trouver aucune source fesant cela, si quelqu'un a une idée sur un tel système :).

Merci D'avance,
BestPig

Rudy3212 · Accepted Answer

Merci bcp pour ton aide cantador mais je n'arrive pas a faire fonctionner ta fonction.
Par contre j'ai trouver ce que je chercher ici :
http://www.delphifaq.com/faq/delphi/strings/f86.shtml

Mais merci infiniment quand même :)

BestPig

cs_cantador · Answer

Un p'tit coup de moteur de recherche.. et hop
Il y plein d'exemples sur le forum.

cantador

Rudy3212 · Answer

Justement j'ai chercher sur le forum mais rien trouver, je veut rechercher en hexa dans un fichier pas dans une string ou un memo.

Je vait refaire une recherche mais j'avait déja fait :(

BestPig

Rudy3212 · Answer

Merci mais le code ne montre pas comment rechercher une chaine, on peut juste modifier et ouvrir un fichier mais pas faire une recherche.

BestPig

cs_cantador · Answer

Voilà une superbe fonction déposée par foxi mais comme
il est occupé à faire ses bd..

function TFAlarme.Parser(const Chaine, Separat: string; const Occurence: cardinal = 1): string;
var
  i, p1, p2, ld: integer;
begin
  Result := '';
  if (posex(Separat, Chaine[1]) = 1) and (Occurence <= 1) then exit;
  p1 := 1;
  ld := Length(Separat);
  for I := 1 to Occurence - 1 do
  begin
    p1 := posex(Separat, Chaine, p1);
    if P1 = 0 then
      exit
    else
      p1 := p1 + ld;
  end;
  p2 := posex(Separat, Chaine, p1);
  if p2 = 0 then
    p2 := length(Chaine) + 1;
  Result := copy(Chaine, p1, p2 - p1);
end;

cantador

Rudy3212 · Answer

Hum, si je comprend bien la fonction ça recherche dans une string, hors je cherche a faire une recherche hexa dans un fichier en l'ouvrant en mode binaire.

BestPig

cs_cantador · Answer

Pourquoi faire simple qd on peut faire...
bon, on va essayer de trouver qlqchose..

cantador

Rudy3212 · Answer

Merci, sa serait sympa si tu pouvait trouver quelque chose, moi j'ai pas trouver :(.

cantador on t'adore :P, la rime ...

BestPig

cs_cantador · Answer

Oui, ben, tu n'as pas du chercher bien longtemps
parceque en 3212 secondes je croule sous les infos..


Peux-tu préciser exactement ce que tu veux faire, c'est-à-dire, quelle est la nature de l'information que tu souhaites récupérer dans ce fichier binaire ?

cantador

Rudy3212 · Answer

C'est un fichier de configuration et dedans, j'ai besoin de connaitre l'offset de :
\x50\x68\x72\x61\x73\x65 soit 'Phrase' en ASCII

BestPig

cs_cantador · Answer

var 
F, F2: file; 
lus,ecrit:integer; 
Buf: array[1..1024] of Char; 
begin 
if OpenDialog.Execute then 
begin 
AssignFile(F, OpenDialog.FileName); 
Reset(F, 1); 
AssignFile(F2, SaveDialog.FileName); 
Rewrite(F2, 1);                                  // Tu peux aussi renvoyer dans un mémo
repeat 
BlockRead(F, Buf, SizeOf(Buf), lus); 
BlockWrite(F2, Buf, lus, ecrit); on 
until (lut = 0) or (ecrit <> lus ) 
CloseFile(F); 
CloseFile(F2); 
end; 
end; 







cantador

Rudy3212 · Answer

Merci, 
Je n'arrive pas a le faire marcher :S

J'ai ces erreurs :
[Error] Unit1.pas(42): Undeclared identifier: 'on'
[Error] Unit1.pas(43): Undeclared identifier: 'lut'

Pour le lut c'est une erreur de frappe cé lus je pense.
Mais pour le on :s, j'ai essayer de le viré, rajouter un ; a la ligne dessous sa compile mais sa provoque un erreur sur le blockwrite.

Et je ne voit pas ou on met les valeur a rechercher .., si tu pouvait expliquer un peu la fonction sa serait vraiment cool.

Merci bcp cantador pour ton aide.

BestPig

cs_cantador · Answer

tu vires le "on".. et le lut = lus..
le dimanche je fatigue un peu..
ok pour çà..



Ta variable de recherche c'est buf bien sûr..



@+



cantador

cs_cantador · Answer

Tu as du oublier un truc..
Enfin l'important est que tu t'en est sorti..
ça marche d'ailleurs on retrouve à peu près la même chose dans l'aide de delphi  :

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;

Salut !

cantador

Recherche en hexadécimal dans un fichier

14 réponses

Votre réponse

Discussions similaires