Discussion :

[phoenixgreg]

Bonjour all,

avez-vous connaissance d'une correspondance de la méthode memmove() (en C) en Delphi ?

Car je veux faire une manipulation avec mon buffer (un tableau de byte), il faut que je rajoute au début de celui-ci des valeurs qui proviennent d'un type record:

Code :

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

1
2
3
4
5
6
7
 
/*
stSTR_MEM_HEADER c'est mon record 
byNewCfg c'est mon buffer (array of byte)
dwNewZoneSize // taille total des données car la taille est inconnue d'avance 
*/
memmove (&byNewCfg[sizeof (STR_MEM_HEADER)], &byNewCfg[0], dwNewZoneSize);

j'ai pensé à cela :

Code :

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

1
2
 
Move(stSTR_MEM_HEADER, c_getDataZone[0], dwNewZoneSize);

cela me rajoute bien mon record mais me fausse mes byte par la suite :s

[Andnotor]

Si tu veux insérer des données, tu devras avoir deux Move : Le premier va décaler les données existantes de offset [0] à [sizeof (STR_MEM_HEADER)] et le deuxième copier les nouvelles données à offset [0].
Bien sûr penser à augmenter la taille du tableau avant cela s'il est dynamique

[phoenixgreg]

Ah oui ok,
donc :

Code :

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

1
2
3
 
 Move(c_getDataZone, c_getDataZone[0], sizeof(stSTR_MEM_HEADER));
 Move(stSTR_MEM_HEADER, c_getDataZone[0], dwNewZoneSize);

C'est ça ? ^^

[Andnotor]

Quelque chose comme ç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
//Ancienne taille
OldSize := Length(c_getDataZone);
 
//Agrandir le tableau de SizeOf()
SetLength(c_getDataZone, OldSize +SizeOf(stSTR_MEM_HEADER));
 
//Pointeur décalé de SizeOf()
DestPtr := pointer(integer(c_getDataZone) +SizeOf(stSTR_MEM_HEADER)); 
 
//Décalle l'ancienne donnée complète (OldSize)
Move(c_getDataZone[0], DestPtr^, OldSize);
 
//Insère la nouvelle
Move(stSTR_MEM_HEADER, c_getDataZone[0], SizeOf(stSTR_MEM_HEADER));

[Paul TOTH]

c'est le code d'origine qui est faux...

Code :

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

1
2
 
memmove (&byNewCfg[sizeof (STR_MEM_HEADER)], &byNewCfg[0], sizeof (STR_MEM_HEADER));

ce qui pourrait s'écrire comme ceci sous Delphi

Code :

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

1
2
3
4
5
6
 
var
  t: array[0..1] of STR_MEM_HEADER;
begin
  t[1] := t[0];
end;

[Andnotor]

S'il s'agissait d'un tableau de STR_MEM_HEADER oui mais ça ne semble pas être le cas (enfin on ne sait pas).
Par contre la taille du bloc à déplacer était mal calculée. Elle aurait dû être de dwNewZoneSize -SizeOf(STR_MEM_HEADER)

[phoenixgreg]

Je vous confirme le code est juste, pour rappel STR_MEM_HEADER est un type record :

Code :

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

1
2
3
4
5
6
 
tSTR_MEM_HEADER = Packed record
    byMemMagic
    ...
    abyReserve: Array[0..4 - 1] of Byte; // reserve for future
  end;

je vais essayer ton code Andnotor c'est la bonne piste de toute façon.

[phoenixgreg]

Ok c'est bon ça me décale bien mon buffer, j'ai la même taille que sur mon programme en C ça à l'air bon, merci à vous !

[phoenixgreg]

voici la solution que j'ai tirée en vue de ce que Andnotor a donné :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
OldSize := Length(c_getDataZone);
 
SetLength(c_getDataZone, OldSize + SizeOf(stSTR_MEM_HEADER));
 
DestPtr := pointer(integer(c_getDataZone) + SizeOf(stSTR_MEM_HEADER));
 
Move(c_getDataZone[0], DestPtr^, OldSize);
 
Move(stSTR_MEM_HEADER, c_getDataZone[0], SizeOf(stSTR_MEM_HEADER));

si ça peut aider quelqu'un d'autre !

Bonne journée

[guillemouze]

Petite astuce pour l'incrémentation de pointeurs, pour remplacer la ligne DestPtr := pointer(integer(c_getDataZone) + SizeOf(stSTR_MEM_HEADER)); :

Code :

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

1
2
3
4
5
var
  DestPtr : ^tSTR_MEM_HEADER;
...
  DestPtr := @c_getDataZone[0];
  Inc(DestPtr); //va avancer le pointeur de la taille d'un tSTR_MEM_HEADER

ou aussi

Code :

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

1
2
3
4
5
var
  DestPtr : PByte;
...
  DestPtr := @c_getDataZone[0];
  Inc(DestPtr, SizeOf(tSTR_MEM_HEADER));

[Paul TOTH]

ou encore

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  c_getDataZone: array of tSTR_MEM_HEADER;
begin
  OldSize := Length(c_getDataZone);
  SetLength(c_getDataZone, OldSize + 1);
  Move(c_getDataZone[0], c_getDataZone[1], OldSize * SizeOf(tSTR_MEM_HEADER));
  c_getDataZone[0] := stSTR_MEM_HEADER;
end;

mais il serait peut-être plus efficace de gérer cela dans un liste

[guillemouze]

ou encore

Code :

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

1
2
3
4
var
  c_getDataZone: array of tSTR_MEM_HEADER;
begin
  OldSize := Length(c_getDataZone);

Mais comme l'a dit Andnotor,

S'il s'agissait d'un tableau de STR_MEM_HEADER oui mais ça ne semble pas être le cas (enfin on ne sait pas).

[Andnotor]

En fait, je ne sais même pas pourquoi j'ai compliqué le truc

Si c'est un array of byte : Move(c_getDataZone[0], c_getDataZone[SizeOf(stSTR_MEM_HEADER)], OldSize);... comme la source C : memmove (&byNewCfg[sizeof (STR_MEM_HEADER)], &byNewCfg[0], dwNewZoneSize);