[Débutant] Variable pointant sur partie variable d'enregistrement

Bonjour,

voilà, j'essaie de convertir un type faisant partie d'un entête C sous Linux que j'ai convertit avec H2Pas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

typedef struct { SANE_String_Const name; /* name of this option (command-line name) */ SANE_String_Const title; /* title of this option (single-line) */ SANE_String_Const desc; /* description of this option (multi-line) */ SANE_Value_Type type; /* how are values interpreted? */ SANE_Unit unit; /* what is the (physical) unit? */ SANE_Int size; SANE_Int cap; /* capabilities */   SANE_Constraint_Type constraint_type; union { const SANE_String_Const *string_list; /* NULL-terminated list */ const SANE_Word *word_list; /* first element is list-length */ const SANE_Range *range; } constraint; } SANE_Option_Descriptor;

---

ce qui me pose problème c'est l'union. H2Pas l'a convertit en :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

SANE_Option_Descriptor = record name : SANE_String_Const; title : SANE_String_Const; desc : SANE_String_Const; option_type : SANE_Value_Type; option_unit : SANE_Unit; size : SANE_Int; cap : SANE_Int; constraint_type : SANE_Constraint_Type; constraint : record case longint of 0 : ( string_list : ^SANE_String_Const ); 1 : ( word_list : ^SANE_Word ); 2 : ( range : ^SANE_Range ); end; end;

---

Ailleurs dans le code je n'arrive pas à récupérer 'constraint' quand je sais qu'il contient ^SANE_Range :

Code:

---

1 2 3 4 5

PSANE_Option_Descriptor = ^SANE_Option_Descriptor; saneoption: PSANE_Option_Descriptor; range: ^SANE_Range;   range := saneoption^.constraint;

---

me donne :

Citation:

---

demomain.pas(167,63) Error: Incompatible types: got "<record type>" expected "^SANE_Range"

---

Dans le record, j'ai modifié contraint par :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

SANE_Option_Descriptor = record name : SANE_String_Const; title : SANE_String_Const; desc : SANE_String_Const; option_type : SANE_Value_Type; option_unit : SANE_Unit; size : SANE_Int; cap : SANE_Int; constraint_type : SANE_Constraint_Type; case constraint: longint of 0 : ( string_list : ^SANE_String_Const ); 1 : ( word_list : ^SANE_Word ); 2 : ( range : ^SANE_Range ); end;

---

et j'obtiens :

Code:

---

demomain.pas(167,63) Error: Incompatible types: got "LongInt" expected "^SANE_Range"

---

Maintenant il me renvoie un Longint au lieu d'un Record. Comment faire pour récupérer la valeur de 'contraint' dans le record ?:cry:

Qeul type

Salut

Apparemment, tu ne récupères pas constraint, mais, suivant sa valeur, ton enregistrement aura une des trois structures proposées (instruction case).

Pour le reste, je ne sais même pas de quoi il s'agit ! :aie:
:cry:

Salut,

le problème c'est que je ne sais pas comment affecter une valeur à constraint. j'ai contourné le problème en définissant contraint: Pointer.

range := saneoption^.constraint.range;


constraint est un record qui possede les champs suivant :

string_list
word_list
range


donc

Code:

---

1 2 3 4 5 6

case SaneOD^.constraint_type of {string list} : ptrSaneSL := SaneOD^.constraint.string_list; {word list} : ptrSaneWL := SaneOD^.constraint.word_list; {range} : ptrSaneRG := SaneOD^.constraint.range; end;

---

quand on inclus un CASE dans une record, les champs sont "supperposés".
c'est a dire que la modification d'un champ affecte les autres.

exemple :

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

TColor = record case integer of 0: (Color: integer); 1: (R,G,B,A: byte); end;   var Color : TColor;   begin Color.Color := 0; // Color.Color = $00000000 = noir   Color.Red := $FF; // Color.Color = $000000FF = rouge   Color.Green := $99; // Color.Color = $000099FF = orange   Color.Color := 0; // Color.Color = $00000000 = noir   Color.Blue := $FF; // Color.Color = $00FF0000 = bleu   Color.Red := $FF; Color.Green := $FF; // Color.Color = $00FFFFFF = blanc end;

---

dans ton code, string_list, word_list et range sont de type pointeur donc tous de la même taille (pointeur = 4 octets)
il permet donc de recuperer selon le type fournis un pointeur sur le bon type.
on peu egalement remplacer constraint par un pointeur.
sauf qu'il faudrat transtyper le pointeur dans le bon type.

si tu comprend, c'est que je me suis mal exprimé.

merci,

ça marche.