Problème de cast dans structure

Version imprimable

01/08/2007, 18h02
pdgnr

Problème de cast dans structure
Bonjour à tous,
est-ce qu'il est possible de "caster" Buffer
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Dim Buffer(5) as byte structure Struct dim p1 as byte dim p2 as uint16 dim p3 as uint16 end structure ' j ai essayé dim S as struct = CType(buffer(0), struct)
Mais bien sûr, ça ne marche pas...
Y a t-il une autre façon de faire ?

Merci d'avance,

Robert
01/08/2007, 19h03
Aspic

Tu ne peux pas convertir un type byte() en struct...

Tu veux faire quoi ?
01/08/2007, 19h19
pdgnr

Bonsoir et merci...

Je veux simplement appliquer un buffer de reception sur une structure pour recupérer des données. Dans l'exemple précédent, je voulais que le premier octet du buffer aille dans p1, les deux suivants dans p2, les deux suivants dans p3...

J'ai aussi essayé avec l'option layout explicit et le buffer à l'offset 0, p1 offset 1, p2 offset 2... Erreur à l'exécution... mauvais alignement ou bien un objet et un "non-objet" se chevauchent. J'ai essayé de mettre le buffer et les données dans deux structures séparées, puis de réunir les deux structures dans une troisième en les alignant en 0... même erreur... je ne sais plus trop quoi essayer pour éviter de faire du saucissonnage de buffer... pour l'exemple il y a 5 octets, mais avec 100, c'est déjà plus pénible...

Merci d'avance,

Robert

PS: en delphi, il y a le mot clé absolute, qui permet de placer un "truc" à la même adresse qu'un autre... c'est quand même drôlement pratique...
01/08/2007, 19h23
Aspic
Je n'ai pas compris, uint16 tu peux pas mettre un byte de dans.... 8O

Et pourquoi tu passes par une structure ?
Code:

1 2 3 4 Dim buffer(5) As Byte Dim p1 As Byte = buffer(0) Dim p2 As Byte = buffer(1) + buffer(2) ...
01/08/2007, 19h43
pdgnr
Excuse moi... j'ai dû mal m'expliquer...:oops:

Je vais reprendre à l'envers, ça sera peut-être plus clair:

L'idée vient du Pascal et de absolute. Supposons que j'ai un buffer de réception (USB, Série... peu importe). Ce buffer représente des données diverses.
Je déclare un record Toto (structure enVB) qui est l'image de ce que j'attends. Par exemple un byte, suivi de deux entiers sur 16 bit comme dans l'exemple précédent.

Si je fais:
Code:

1 2 3 4 5 6 7 8 9 Toto = record p1 : byte p2 : short p3 : short end; Totoenreg : toto Buffer[0..4] : byte absolute TotoEnreg
lorsque je reçois 5 octets dans totoEnreg, ils sont instantanément disponibles en tant que p1, p2, p3 sans faire p1 = TotoEnreg[0] , p2 = .... ce qui est commode quand on a un enregistrement qui représente beaucoup de champs différents...

J'essayais de trouver un moyen de faire cette sorte de "transfert automatique" en VB.Net...

Hum... je ne suis pas sûr d'avoir été beaucoup plus clair...:boulet:

Si j'ai bien compris, cette petite classe que je me suis bricolé il y a un moment pourrai t'être utile ( comme d'habitude, en C#, car je ne connais pas le VB.NET :aie: )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
using System;
using System.IO;
using System.Collections.Generic;
using System.Runtime.InteropServices;
 
namespace System
{
    /// <summary>
    /// Description of StructGetter.
    /// </summary>
    public static class StructGetter
    {
        public static void WriteBlock(Stream Output, object structure)
        {
            byte[] buf = new byte[SizeOf(structure)];
            GetBytes(structure, buf, 0, buf.Length);
            Output.Write(buf, 0, buf.Length);
        }
 
        public static object ReadBlock(Stream Input, Type structure_type)
        {
            byte[] buf = new byte[Marshal.SizeOf(structure_type)];
            Input.Read(buf, 0, buf.Length);
            return GetStruct(buf, 0, buf.Length, structure_type);
        }
 
        public static int SizeOf(object structure)
        {
            return Marshal.SizeOf(structure);
        }
 
        public static void GetBytes(object val,
                                      [In, Out] byte[] buffer,
                                     int offset,
                                    int bufsize)
        {
            if (val == null)
                throw new ArgumentNullException("val");
 
            int size = SizeOf(val);
            IntPtr p = Marshal.AllocHGlobal(size);
 
            try
            {
                Marshal.StructureToPtr(val, p, true);
                Marshal.Copy(p, buffer, offset, bufsize);
            }
            finally
            {
                Marshal.FreeHGlobal(p);
            }
        }
 
        public static object GetStruct(byte[] buffer,
                                       int offset,
                                       int count,
                                       Type struct_type)
        {
            IntPtr p = Marshal.AllocHGlobal(count);
            object result = null;
 
            try
            {
                Marshal.Copy(buffer, offset, p, count);
                result = Marshal.PtrToStructure(p, struct_type);
            }
            finally
            {
                Marshal.FreeHGlobal(p);
            }
 
            return result;
        }
    }
}

après il te suffit de faire GetStruct ou GetBytes ...

02/08/2007, 07h54
pdgnr

Bonjour,
ça semble très interressant en effet! Je dis semble parce que j'ai du mal à déchiffrer la syntaxe du C...
Je vais essayer de traduire ça et voir si j'arrive à le faire fonctionner. Je peux t'appeler à l'aide si je n'arrive pas comprendre ?

Merci d'avance,

Robert
02/08/2007, 15h12
smyley

Oui bien sur, je serai là :)