Caster en array of Byte

Version imprimable

14/11/2006, 09h45
the big ben 5

Caster en array of Byte

Bonjour,

Je voudrais juste savoir comment on peut caster un TObject en "Array of Byte"

D'avance merci

Ben
14/11/2006, 14h17
tourlourou

ça n'a pas de sens !!!

que veux-tu faire avec ?

Salut

A titre d'exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
type
  PArr = ^TArr;
  TArr = array of Byte;
var
  i: Integer;
  S1, S2: String;
begin
  S1 := '';
  S2 := '';
  for i := 1 to UserLogon.ClassType.InstanceSize do
  begin
    S1 := S1 + Format('$%2.2d ',[PArr(UserLogon)^[I]]);
    if PArr(UserLogon)^[I] in [32..255] then
      S2 := S2 + Chr(PArr(UserLogon)^[I])
    else
      S2 := S2 + '.';
  end;
  ShowMessageFmt('Size = %d'#10'Caract: %s'#10'Binaire: %s',[UserLogon.ClassType.InstanceSize,S2,S1]);

UserLogon est un objet quelconque.
Fais des tests et fais signe s'il y a un problème.

cdlt

e-ric

14/11/2006, 15h00
slimjoe

En fait ce que tu veux c'est mettre dans un tableau les octets de l'instance d'un objet, c'est ça ? C'est pour faire quoi au juste ?

Je pose la question parce que peut-être est que c'est de la sérialisation que tu cherches à faire. Dans ce cas c'est dans TRemotable que tu devrais orienter tes recherches.

Peut-être aussi est-ce que ton objectif est de stocker l'objet (son instance) dans une base de donnée. Dans ce cas, il est possible d'utiliser la méthode WriteComponentRes de TStream qui permet de passer un composant dans un stream. Voici un exemple : http://www.scalabium.com/faq/dct0065.htm

Enfin, si t'es d'humeur à jouer dans la mémoire directement j'imagine qu'il t'est possible de lire l'octet à l'adresse de l'objet et de lire tous les octets suivants sur une longueur de InstanceSize. Une fois fait, je ne sais pas ce que tu pourrais en faire toutefois.

Je n'ai pas énormément d'expérience sur ces forums mais une chose est certaine : les personnes qui donnent beaucoup de détails sur leurs intentions relativement au problème qu'ils rencontrent profitent généralement de l'expertise de ceux qui ont rencontré le même problème et qui ont trouvé la solution. En d'autres mots : non seulement c'est une bonne idée d'être précis dans ta question mais aussi sois le dans ton objectif final. Tes chances d'avoir une réponse fiable ne peuvent que décupler ;).

Bon dev!