Discussion :

[Booster2ooo]

Salut a tous
J'essaie d'ecrire dans un string mais j'ai un chtite erreur:


InSize, Tmp: String;
RPoint: PChar;

Code :

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

1
2
          Tmp := InSize[7] + InSize[8];
          RPoint[792] := chr(StrToInt(Tmp));      //Erreur

InSize[7] = 0
InSize[8] = 0
Tmp = 00

Est-ce du au fait que ce soit un nullbyte ou serait-ce une erreur de ma part ? Vu que c'est de l'hexa, faut sans doute placé un $ mais je sais pas ou le mettre

[the_clansman]

Est-ce que tu pourrais nous donner la déclaration du type du tableau InSize ?
Est-ce bien une chaine ? Ou est-ce un tableau de char ?
En fait la définition de toutes ces variables nous serait fort utile (InSize, Tmp et RPoint)

[Booster2ooo]

Voila, dsl, j'avais oublié ce detail

edit:

Code :

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

RPoint[792] := chr(StrToInt('$' + Tmp));

J'ai essayé ca, mm chose

[Gaadek]

Quand je lis:

InSize[7] = 0
InSize[8] = 0
Tmp = 00

Déjà, je pense qu'il faudrait lire
InSize[7] := 0
InSize[8] := 0
Tmp := 00

Ensuite, vu comme ça, je dirais qu'aucune de ces variables n'est de type string, ce qui fait que :

RPoint[792] := chr(StrToInt(Tmp)); (le StrToInt)

ne peut pas fonctionner!

Je pense qu'il faudrait ça:

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
 
var
  InSize: string;
  RPoint: array [0..999] of integer; 
  Tmp: string;
begin
  // Initialisation des variables
  Tmp := '';
  InSize := '1234567890'; // représentation sous forme de chaine d'un numérique
 
  // Construction de Tmp
  if (InSize[7] in ['0'..'9']) then Tmp := Tmp + InSize[7]; // Vérifie que InSize[7] représente un numérique
  if (InSize[8] in ['0'..'9']) then Tmp := Tmp + InSize[8]; // Vérifie que InSize[8] représente un numérique
 
  if (Tmp <> '') then  // On s'assure que Tmp n'est pas vide, sinon StrToInt va planter
  begin
    RPoint[792] := chr(StrToInt(Tmp));
  end;
 
  ... (Suite de ton code)

[Booster2ooo]

Dsl mais j'ai rien compris,

Tmp et InSize sont tous les deux des strings et RPoint, un PChar

InSize contient enfait une taille en hexa et est long de 8
Tmp ca servir a prendre 2 caracteres de InSize pour formé un code ascii en hexa (dans l'exemple ici c'est 00 mais, [5] et [6] par ex, c'est 4C mais en fonction du fichier, la taille varie, et donc, le code hexa aussi)

Et le but est de replacer le caractere dans RPoint, par celui qui equivaut a l'hexa contenu dans TMP.

Pour etre plus clair, une petite explication: RPoint contient un fichier, et le but est de modifier la taille de la section ressource avec la taille contenue dans InSize.



Je suis aussi passé par un autre string (TEST := RPoint^;(avec et sans le ^)) et ensuite Delete(Test, etc) insert(etc) etc.
Il n'y a pas d'erreur mais ca ne marche pas ... Y a un pb mais je sais pas lequelle

[the_clansman]

Un PChar ne définit qu'un pointeur et non pas la mémoire qui va avec...
Quid du remplacement du PChar par un String ? Juste pour essayer...
Ci ça passe, faudra faire une allocation de mémoire pour le PChar.
M'est avis que le problème vient de là.

Si l'allocation a été faite, elle est peut être trop faible : il faut peut être ajouter un élément supplémentaire : si l'allocation a été faite avec 792, est-ce qu'une allocation de 793 génère la même erreur ? Pour moi, une définition de 792 pour un PChar réserve de la mémoire entre 0 et 791, si on touche à la 792, on peut avoir dépassement...

[Booster2ooo]

Il allait bien plus loin que 792

De toute facon, c'est resolu maintenant, j'ai contourner le probleme
Merci pour votre aide en tous cas

[the_clansman]

Peux tu nous dire comment tu as résolu ton problème ?

[Booster2ooo]

Ca va etre compliqué pck il faudrai que j'explique tout le programme ...
En gros, le prog load un 'loader' depuis ses ressouces, il le colle dans un fichier output, il prend le fichier input, il le crypte et il le colle dans le output apres le loader. Le truc, c que je voulais modifier le loader directement avant qu'il le colle dans l'output mais il y avait le problemes la. Donc j'ai laissé ca comme ca et apres le closehandle(output) j'ai reouvert l'output dans un stream, j'ai 'read' le stream dans un string, et j'ai utilisé delete et insert pour mettre ce que j'avais a mettre.