Discussion :

[Bernard B]

Bonjour,
J'ai besoin de traiter avec un pointeur et je n'y arrive pas !
J'ai un objet bâti ainsi pour la partie qui m'interpelle :

Code :

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

1
2
3
4
5
6
7
  private
    FData: array of byte;
    function GetData: pointer;
    function GetDataLength: integer;
  public
    property Data: pointer read GetData;
    property DataLength: integer read GetDataLength;

J'ai besoin de traiter les données contenues dans FData.
Data est donc un pointeur sur FData et il a la valeur @FData[0].

Pour traiter les données j'ai essayé unbyte:=Profile.Data^[0]; pour aller récupérer le x ième byte du tableau, ou unbyte:=Profile.Data[x] il parait que le ^ est implicite.
Mais à la compilation j'ai l'erreur E2016 Type tableau requis.
Comment je peux récupérer le contenu de FData pour le mettre dans un tableau local voir un TmemoryStream ?
Merci

[Andnotor]

Data est donc un pointeur sur FData et il a la valeur @FData[0].

Ce qui est en soi inutile. FData est déclaré en tableau dynamique. FData est donc déjà un pointeur sur le premier élément.

Code :

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

1
2
3
4
5
function TForm1.GetData: pointer;
begin
  //Result := @FData[0];
  Result := FData;
end;

Mais à la compilation j'ai l'erreur E2016 Type tableau requis.

C'est parce que Data est déclaré en pointeur non typé (pointer), le compilateur ne peut pas savoir qu'un tableau se loge à cette adresse.
Il faut pour cela transtyper le pointeur dans un type connu. Par exemple : unbyte := PByteArray(Profile.Data)[x].

Mais perso, je déclarerais plutôt un nouveau type :

Code :

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

1
2
3
4
5
6
7
8
  TDataType = array of byte;
 
  TProfil = class
  private
    FData: TDataType;
  public
    property Data: TDataType read FData;
  end;

A noter encore que Data est en lecture seule mais cela ne concerne que le pointeur (le tableau ne peut pas être redimensionné) pas le contenu qui peut toujours être altéré.

[tourlourou]

Pour traiter les données j'ai essayé unbyte:=Profile.Data^[0]; pour aller récupérer le x ième byte du tableau, ou unbyte:=Profile.Data[x]

S'il ne s'agit que de lire les octets un par un, au lieu d'accéder au tableau, autant faire un accesseur public en lecture seule au x-ième octet du tableau.

[Bernard B]

Merci Andnotor pour les explications. J'avais bien vu qu'il fallait transtyper mon pointeur, mais je ne savais pas comment le faire pour un tableau dynamique.

Tourlourou, bonne idée, je crois que je vais la mettre en pratique.

Merci à vous.

[Paul TOTH]

petit info au passage, en ajoutant {$POINTERMATH ON} dans le source il est possible d'accéder aux pointeurs typés comme si c'était des tableaux. C'est historiquement possible sur le PChar (ou PAnsiChar); avec cette directive de compilation, c'est possible avec tous les types PByte, PCardinal, PMonRecord...c'est très pratique quand on reprend un source C puisque le C ne fait pas de différence entre tableaux et pointeurs...char* et char[] c'est la même chose.