Discussion :

[phoenixgreg]

Bonjour tout le monde,

est-ce que quelqu'un a une méthode propre pour remplir au fur et à mesure de la venue des données un tableau de byte dynamique (TByteArray)

Je sais juste pour le moment le remplir une première fois, après j'ai du mal à savoir récupérer la dernière valeur du tableau pour continuer à le remplir comme il faut:

Code :

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

1
2
 
move(t_typeMsg.c_getDataZone[GetRepInfoList.dw_getAddressBuff], GetRepInfoList.aby_getDataZone[GetRepInfoList.dw_getAddressBuff], dw_sizePackBuffer);

GetRepInfoList.dw_getAddressBuff = à l'adresse de départ, qui augmente de 64 byte à chaque itération
dw_sizePackBuffer = 64

J'espère être assez clair et merci pour votre soutient.

[phoenixgreg]

En plus simple cela fait:

Code :

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

1
2
3
4
5
6
7
 
var
ByteBuffer: array of Byte;
Buffer: PAnsiChar;
begin
SetLength(ByteBuffer, ByteLengthOfData);
Move(Buffer[0], ByteBuffer[0], ByteLengthOfData);

Sauf que moi la variable Buffer se remplit au fur et à mesure, donc je pense qu'il faut que je passe la fin de mon tableau de byte mais sans effacer ce qu'il y a comme données.

Help

[phoenixgreg]

Vu que ça à l'air de parler à personne, je me demandais si je devais pas partir plutôt sur un TMemoryStream style :

Code :

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

1
2
3
4
5
6
7
 
procedure test(data: PAnsiChar);
begin
  ms_DataStream := TMemoryStream.Create();
  ms_DataStream.Write(t_typeMsg.c_getDataZone[0], Length(t_typeMsg.c_getDataZone));
  ms_DataStream.Free;
end;

Donc le but c'est que je remplisse le TMemoryStream avec ce que me renvoie la callback (la variable "data"), est-ce que quelqu'un sait comment faire ?

Merci ^^

[tourlourou]

Il y a sûrement plein de méthodes. On croit dorénavant savoir que ça doit se passer dans une CallBack qui reçoit des paquets de 64 octets qu'il s'agit de conserver.
Si c'est bien ça, revoir le principe du tableau dynamique : Length pour avoir son nombre d'éléments, SetLength pour le redimensionner, Low et High pour les indices.
A chaque appel de la fonction, augmenter la taille du tableau de manière à loger dans ce nouvel élément le nouveau tampon.
Ou utiliser un flux (TMemoryStream par exemple), comme dans ton exemple, mais avec une variable globale, s'il s'agit d'agréger les données reçues.

[anapurna]

Vu que ça à l'air de parler à personne, je me demandais si je devais pas partir plutôt sur un TMemoryStream style :

procedure test(data: PAnsiChar);
begin
ms_DataStream := TMemoryStream.Create();
ms_DataStream.Write(t_typeMsg.c_getDataZone[0], Length(t_typeMsg.c_getDataZone));
ms_DataStream.Free;
end;

Donc le but c'est que je remplisse le TMemoryStream avec ce que me renvoie la callback (la variable "data"), est-ce que quelqu'un sait comment faire ?

Merci ^^

ça doit être un truc comme ça

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure test(data: PAnsiChar);
var
  Temp : AnsiString;
begin
  Temp := data^;
  ms_DataStream := TMemoryStream.Create();
  ms_DataStream.Write(Pointer(Temp)^, Length(Temp) * SizeOf(AnsiChar));
  ms_DataStream.Position := 0; 
  ms_DataStream.Free;
end;

[phoenixgreg]

Okay donc si je reste avec mon tableau dyn. ça pourrait se passer comme ceci ? :

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
 
procedure test(t_typeMsg.c_getDataZone: PAnsiChar);
var
  i_HighBuff: integer;
  GetRepInfoList.aby_getDataZone: Array of Byte;
begin
  if (FirstItération = true) then
  begin
    move(t_typeMsg.c_getDataZone[0], GetRepInfoList.aby_getDataZone[0], 64);  
  end
  else
  begin
    HighBuff := High(GetRepInfoList.aby_getDataZone);
    move(t_typeMsg.c_getDataZone[0], GetRepInfoList.aby_getDataZone[HighBuff], 64);  
  end;
end;

Mon ordi plante (fuite mémoire sûrement) lors de la deuxième itération :s

[phoenixgreg]

J'ai essayé ta méthode anapurna mais au niveau du Write ça ne passe pas, j'ai une exception.
Pour la méthode avec le tableau, je pense qu'il faut faire un SetLength à chaque itération du coup ?

[phoenixgreg]

Faut-il que mon tableau soit dans une variable globale ?

[anapurna]

salut

c'est pas très clair
c_getDataZone est de quel type ?
aby_getDataZone est de quel type

pour etre clair

si tu avais un tableau de string par exemple

Code :

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

1
2
3
4
5
 
Tab : array of string 
...
SetLength(Tab,Length(Tab)+1);
Tab[High(Tab)] := MonString;

[phoenixgreg]

Okay c'est bon cela à l'air d'être pas mal :

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
 
var 
  aby_getDataZone: Array of Byte; // variable globale
 
procedure test(t_typeMsg.c_getDataZone: PAnsiChar);
var
  i_HighBuff: integer;
begin
  if (FirstItération = true) then
  begin
    move(t_typeMsg.c_getDataZone[0], aby_getDataZone[0], 64);  
  end
  else
  begin
    HighBuff := High(aby_getDataZone);
    move(t_typeMsg.c_getDataZone[0], aby_getDataZone[HighBuff], 64);  
  end;
end;

Merci à vous deux