Discussion :

[bvsud]

Bonjour à tous

Voici le code qui passe très bien au compilateur, mais plante à l'exécution sous l'EDI.

Code :

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

1
2
3
4
5
6
 
{ Chn_Cherchee : string;
   Ptr_Fiche_En_RAM : Pointer; 
}
 
Retour := Pos(Chn_Cherchee, Ptr_Fiche_En_RAM^);

Ptr_Fiche_En_RAM pointe sur un buffer contenant un fichier entier, concaténé à d'autres fichiers. Tout est correct : j'ai vérifié en recréant le fichier à partir du buffer.

Il me faudrait une Pos() avec indication de la surface mémoire :

Code :

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

1
2
3
 
où Longueur_Fiche désigne la surface à ne pas dépasser. 
Retour := Pos(Chn_Cherchee, Ptr_Fiche_En_RAM^, Longueur_Fiche);

Faute de quoi, j'ai cette erreur systématique faisant clairement référence à une notion de Length !

http://hfr-rehost.net/fullsize/http:...13ce58b83d.png

Auriez-vous une idée ? Mes infos tirées de l'aide de Delphi sur toutes les fonctions de traitement des chaînes ne m'amène à rien...

Merci :hello:

[ShaiLeTroll]

Tu es encore la dessus, SearchBinaryInBinary et son exemple n'était suffisant ?

ça passe le déférencement d'un pointeur non typé ?
Ptr_Fiche_En_RAM est vrai un pointeur et non un PChar ?
D'ailleurs, le résultat sera la recherche d'une chaine dans la chaine ne contenant qu'un seul char ...

Tu peux tenter de le simuler

Code :

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

1
2
3
4
5
6
type
  TFiche_En_RAM = packed record
     refCnt: Longint;
     length: Longint;
     Data: Pointer; 
  end;

Cela fonctionne en D7,
En unicode la structure contient le CodePage et la taille du char avant refCnt, mais l'unicode poserait d'autre problème de comparaison entre un String et un Buffer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
{ 
   Chn_Cherchee : string;
   Ptr_Fiche_En_RAM : Pointer; 
   Fiche_En_RAMRec: TFiche_En_RAM;
}
 
Fiche_En_RAMRec.refCnt := -1;
Fiche_En_RAMRec.length := Longueur_Fiche;
Fiche_En_RAMRec.Data := Ptr_Fiche_En_RAM;
 
Retour := Pos(Chn_Cherchee, PString(@Fiche_En_RAMRec.Data)^);
// Retour := Pos(Chn_Cherchee, string(Fiche_En_RAMRec.Data)); // syntaxe plus simple mais je trouve que la première évite tout doute de code implicite

Cela reste un gros délire !
Code rigolo a tester mais à ne pas conserver pour un projet en prod !

Faire PosMem, c'est deux boucles simples à coder !

[bvsud]

Tu es encore la dessus, SearchBinaryInBinary et son exemple n'était suffisant ?

ça passe le déférencement d'un pointeur non typé ?
Ptr_Fiche_En_RAM est vrai un pointeur et non un PChar ?
D'ailleurs, le résultat sera la recherche d'une chaine dans la chaine ne contenant qu'un seul char ...

Tu peux tenter de le simuler

Code :

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

1
2
3
4
5
6
type
  TFiche_En_RAM = packed record
     refCnt: Longint;
     length: Longint;
     Data: Pointer; 
  end;

Cela fonctionne en D7,
En unicode la structure contient le CodePage et la taille du char avant refCnt, mais l'unicode poserait d'autre problème de comparaison entre un String et un Buffer

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
{ 
   Chn_Cherchee : string;
   Ptr_Fiche_En_RAM : Pointer; 
   Fiche_En_RAMRec: TFiche_En_RAM;
}
 
Fiche_En_RAMRec.refCnt := -1;
Fiche_En_RAMRec.length := Longueur_Fiche;
Fiche_En_RAMRec.Data := Ptr_Fiche_En_RAM;
 
Retour := Pos(Chn_Cherchee, PString(@Fiche_En_RAMRec.Data)^);
// Retour := Pos(Chn_Cherchee, string(Fiche_En_RAMRec.Data)); // syntaxe plus simple mais je trouve que la première évite tout doute de code implicite

Cela reste un gros délire !
Code rigolo a tester mais à ne pas conserver pour un projet en prod !

Faire PosMem, c'est deux boucles simples à coder !

Eh voui Je n'arrivais pas à piger SearchBinary... J'y reviendrai, de tte façon.

J'étais gêné d'avoir insisté et mis les gens en colère. Je m'excuse si c'est le cas.

Je n'aurais pas pensé à cette structure (ci-dessus), mais je vais tester ça.

D'autant qu'avec Move(), je copie très bien mon buffer... mais plantage systématique à l'enregistrement 76 !! En mode trace, plantage, en mode EXE pas de plantage, mais à partir de l'enregistrement 76 (donc n° 75) , vlan !

Vraiment désolé d'avoir abusé Et merci pr cette idée