Discussion :

[bvsud]

Bonjour à tous

La fonction SearchBinaryInFile me pose un problème de syntaxe tout bête. La chaîne de caractère (string) à rechercher dans le fichier : comment la copier dans un TByteDynArray ?

Rien ne passe : ni StrCopy(), ni := , ni quoi que ce soit. Comment faire cette copie d'un string ds un TByteDynArray (donc un tableau de bytes, si je comprends bien) ?

Illustration :

Code :

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

1
2
3
4
5
6
7
8
9
// Var passées en paramètres à SerchBinary -------
 
Nom_F_SearchBinary : string;   // F où effectuer la recherche
Tab_Chn_Rech : TByteDynArray;   // Tableau de Bytes à chercher dans le fichier
Tab_Positions : TInt64DynArray;  // Tableau d'Int64 qui contiendra les positions des occurrences trouvés
Rech_Ttes_Occurrences : boolean;  // Si True,  remplit le tableau Tab_Positions des différentes occurrences
Max_Occurrences_Acceptees : integer; // Si le nombre d'occurrences trouvées atteint ce nombre, la recherche s'arrête
Accepter_Chevauchement_Occurrences : boolean;   // (exemple : on cherche coco; si le fichier contient cocococo : True = 3, False = 2)
Nb_Occurrences_Trouvees : integer;  // retourné par la fonction

La fonction est explicitée ici , mais je bloque :/ : http://www.developpez.net/forums/d78...e/#post4542214

[bvsud]

Voici ce que je fais, mais "Erreur d'étendue" à l'exécution :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Procedure Copier_String_Sur_DynArray;  // DEBUG
Var   i : integer;
      Car_Pointe : char;
 
begin
 
      For i := 1 to (Longueur_Chn -1) DO
          begin
                Car_Pointe := Chn_Recherchee[1];
                Tab_Chn_Rech[i] := Byte(Car_Pointe);
          end;
 
end;

[sjrd]

Sous Delphi < 2009, ou avec des AnsiString :

Code :

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

1
2
3
4
5
6
7
8
function StringToByteArray(const S: AnsiString): TByteDynArray;
var
  Len: Integer;
begin
  Len := Length(S);
  SetLength(Result, Len);
  Move(S[1], Result[0], Len);
end;

Sous Delphi >= 2009, les chaînes sont Unicode. Donc il faut savoir dans quel encodage tu veux transformer ta chaîne avant de rechercher la chaîne de bytes dans le fichier. Puis tu as la méthode GetBytes de TEncoding.

Donc si tu veux travailler en UTF-8 :

Code :

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

Bytes := TEncoding.UTF8.GetBytes(S);

[bvsud]

Sous Delphi < 2009, ou avec des AnsiString :

Code :

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

1
2
3
4
5
6
7
8
function StringToByteArray(const S: AnsiString): TByteDynArray;
var
  Len: Integer;
begin
  Len := Length(S);
  SetLength(Result, Len);
  Move(S[1], Result[0], Len);
end;

Sous Delphi >= 2009, les chaînes sont Unicode. Donc il faut savoir dans quel encodage tu veux transformer ta chaîne avant de rechercher la chaîne de bytes dans le fichier. Puis tu as la méthode GetBytes de TEncoding.

Donc si tu veux travailler en UTF-8 :

Code :

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

Bytes := TEncoding.UTF8.GetBytes(S);

Ca, c'est une piste ! Merci Je vais tester ça tout de suite.

[bvsud]

Sous Delphi < 2009, ou avec des AnsiString :

Code :

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

1
2
3
4
5
6
7
8
function StringToByteArray(const S: AnsiString): TByteDynArray;
var
  Len: Integer;
begin
  Len := Length(S);
  SetLength(Result, Len);
  Move(S[1], Result[0], Len);
end;

Sous Delphi >= 2009, les chaînes sont Unicode. Donc il faut savoir dans quel encodage tu veux transformer ta chaîne avant de rechercher la chaîne de bytes dans le fichier. Puis tu as la méthode GetBytes de TEncoding.

Donc si tu veux travailler en UTF-8 :

Code :

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

Bytes := TEncoding.UTF8.GetBytes(S);

OK. Ca marche (je suis en D7) :je peux appeler SearchBinaryToFile(), avec ta fonction

En revanche, c'est SearchBinary elle-même qui semble foirer. Elle ne trouve systématiquement pas les chaînes de caractères que je lui passe. Aléatoirement oui, ou non . Tests effectués sur fichiers HTM et RTF . Pr les fichiers RTF, Delphi a ce qu'il faut : FindText(). Mais pour les HTM, HTML etc, là, FindText() s'égare...

[ShaiLeTroll]

Sinon, il y a le code de SearchStringInFile juste en dessous de SearchBinaryInFile dans le lien que tu as cité comment chercher une valeur hex dans un fichier binaire "file of byte"

de D4 à D2007, cela fonctione sans soucis
Après D2009, il faudra passer à AnsiString et AnsiChar dans le Code

Et donc, la fonctionne trouve pas le mot que tu recherches, cela m'intéresse, je pourrais peut-être t'aider

Attention, c'est une recherche binaire pur !
si tu cherche "toto" dans un HTML, cela ne trouve que "toto" mais pas "t<B>ot<\B>o"
Je fais cette remarque parce FindText lui cherche du Texte dans un RTF en retirant les balises de mise en forme
Evidemment FindText ne traitant que du RTF, cela ne peut pas traiter du HTML
Et vouloir utiliser FindText sur du HTML c'est que tu n'as pas compris l'aide et
que tu ne mesures par l'importance des balises de mise en forme et de la différence entre un fichier texte simple et un fichier plus évolué !

Avec TWebBrowser.Naviagate2(FichierLocal), puis OleDoc->Body->InnerHTML puis une fonction Pos, tu peux bidouiller un extracteur de Text de fichier HTML
c'est un peu moche !

[bvsud]

Sinon, il y a le code de SearchStringInFile juste en dessous de SearchBinaryInFile dans le lien que tu as cité comment chercher une valeur hex dans un fichier binaire "file of byte"

de D4 à D2007, cela fonctione sans soucis
Après D2009, il faudra passer à AnsiString et AnsiChar dans le Code

Et donc, la fonctionne trouve pas le mot que tu recherches, cela m'intéresse, je pourrais peut-être t'aider

Attention, c'est une recherche binaire pur !
si tu cherche "toto" dans un HTML, cela ne trouve que "toto" mais pas "t<B>ot<\B>o"
Je fais cette remarque parce FindText lui cherche du Texte dans un RTF en retirant les balises de mise en forme
Evidemment FindText ne traitant que du RTF, cela ne peut pas traiter du HTML
Et vouloir utiliser FindText sur du HTML c'est que tu n'as pas compris l'aide et
que tu ne mesures par l'importance des balises de mise en forme et de la différence entre un fichier texte simple et un fichier plus évolué !

Avec TWebBrowser.Naviagate2(FichierLocal), puis OleDoc->Body->InnerHTML puis une fonction Pos, tu peux bidouiller un extracteur de Text de fichier HTML
c'est un peu moche !

C'est toi l'auteur de cette fonction, non ? Elle est super... mais je dois lui passer de mauvais paramètres. Je te mets le code en ligne, attends

[bvsud]

Sinon, il y a le code de SearchStringInFile juste en dessous de SearchBinaryInFile dans le lien que tu as cité comment chercher une valeur hex dans un fichier binaire "file of byte"

de D4 à D2007, cela fonctione sans soucis
Après D2009, il faudra passer à AnsiString et AnsiChar dans le Code

Et donc, la fonctionne trouve pas le mot que tu recherches, cela m'intéresse, je pourrais peut-être t'aider

Attention, c'est une recherche binaire pur !
si tu cherche "toto" dans un HTML, cela ne trouve que "toto" mais pas "t<B>ot<\B>o"
Je fais cette remarque parce FindText lui cherche du Texte dans un RTF en retirant les balises de mise en forme
Evidemment FindText ne traitant que du RTF, cela ne peut pas traiter du HTML
Et vouloir utiliser FindText sur du HTML c'est que tu n'as pas compris l'aide et
que tu ne mesures par l'importance des balises de mise en forme et de la différence entre un fichier texte simple et un fichier plus évolué !

Avec TWebBrowser.Naviagate2(FichierLocal), puis OleDoc->Body->InnerHTML puis une fonction Pos, tu peux bidouiller un extracteur de Text de fichier HTML
c'est un peu moche !

Ca maaaaaarche !!! Fantastique !!

Dis-donc, ShaiLeTroll, on ne t'a jamais dit que tu avais du génie, toi ?