Discussion :

[ChPr]

Bonjour à toutes et à tous,

Dans un programme que j'ai écrit et qui fonctionnait bien en 32 bits, le transfert de message ne fonctionne plus en 64 bits. Voici le passage concerné :

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
19
20
21
22
        begin
          with CoordZoom^ do
          begin
            if Pt0.X > Pt1.X then
            begin
              Left:= Pt1.X; Right:= Pt0.X;
            end
            else
            begin
              Left:= Pt0.X; Right:= Pt1.X;
            end;
            if Pt0.Y > Pt1.Y then
            begin
              Top:= Pt1.Y; Bottom:= Pt0.Y;
            end
            else
            begin
              Top:= Pt0.Y; Bottom:= Pt1.Y;
            end;
          end;
          PostMessage(Parent.Handle, cp_ZoomDemande, 0, LongInt(CoordZoom));
        end;

avec :

Code :

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

  CoordZoom: ^TRect;

Quand j'en arrive à la ligne "PostMessage", aussi bien en 32 bits qu'en 64 bits, lorsque je pointe la souris sur "CoordZoom", un affichage me décrit son contenu de la même manière en donnant les valeur Left, Top, Right, Bottom de CoordZoom. C'est OK.

Voici le passage traitant le message :

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
procedure TCadreAff.Zoomer(var message: TMsgZoom);
var
  i: Integer;
begin
  with message do
  begin
    Zooming.Down:= False;
    Zooming.Enabled:= False;
    for i:= 1 to NbEcransAff do
      EcranActif[i].ZoomPermis:= False;
    with Coord^ do
    begin
      if (Right-Left > 4) and (Bottom-Top > 4) then
        AffZoom(Left, Top, Right, Bottom);
    end;
  end;
end;

Avec :

Code :

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

1
2
3
4
5
  TMsgZoom = record    {Type de message pour passer les coordonnées de zooming}
    Msg: Cardinal;
    Prm: Word;
    Coord: ^TRect;
  end;

En 32 bits, lorsque j'arrive à la ligne "with Coord^ do", et que je pointe la souris sur "Coord", en 32 bits, je retrouve le valeurs postées alors qu'en 64 bits, j'obtiens :

Code :

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

message.Coord = <TRECT> = nil

Je n'arrive pas à trouver ce qu'il faut faire pour corriger ce problème.

Merci de votre aide.

Cordialement.

Pierre.

[Andnotor]

Tu as deux problèmes.

Le premier est que la taille des arguments de Send/PostMessage dépend de la plateforme et sont soit 32 soit 64 bits. Avec LongInt(CoordZoom) tu te limites au 32 bits. LPARAM(CoordZoom) pour supporter les deux.

Le deuxième est lié ; la structure reçue est également dépendante de la plateforme et les données sont alignées sur 32 bits ou 64 bits (tu m'étonnes lorsque tu dis avoir des données corrects en 32 bits puisque l'alignement est faux aussi !).

Pour supporter les deux plateformes, la structure devrait se présenter plus ou moins 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
TMsgZoom = record
  Msg: Cardinal;                    // 32 bits
  {$IFDEF CPUX64}
    Unused1: array[1..4] of Byte;   // 32 bits en complément en 64 bits
  {$ENDIF}
  Prm: Word;                        // 16 bits
  {$IFDEF CPUX86}
    Unused2: array[1..2] of Byte;   // 16 bits en complément en 32 bits
  {$ENDIF}
  {$IFDEF CPUX64}
    Unused2: array[1..6] of Byte;   // 48 bits en complément en 64 bits
  {$ENDIF}
  Coord: ^TRect;                    // 32 ou 64 bits
  Result: LRESULT;                  // 32 ou 64 bits
end;

En Delphi, ces alignements sont faits à travers TWordFiller et TDWordFiller qui sont eux-mêmes des records conditionnés. Peut-être existent-ils sous Lazarus ?

J'attire encore ton attention sur le fait que PostMessage est asynchrone et que CoordZoom (un pointeur) doit être valide jusqu'au vidage de la pile. Donc attention où tu le déclares et surtout le libères

[ChPr]

Merci Andnotor pour cette proposition qui donne entière satisfaction en 32 et 64 bits.

Je me doutais bien qu'il s'agissait d'un problème de taille de pointeur, mais je ne voyais pas comment le résoudre.

LongInt que me proposes de remplacer par LPARAM, ne pose pas de problème car en CPU 32 bits, LongInt fait 32 bits et fait 64 bits en CPU 64 bits.

Le problème était donc bien au niveau de TMsgZoom.

Par ailleurs, une chose que je fais et qui ne doit certainement pas être orthodoxe est de déclarer : CoordZoom: ^TRect; sans autre forme de procès. Apparemment, dans les faits, cette manière de faire fait que ce pointeur existe en permanence (je n'utilise ni New ni Dispose).

Cordialement.

Pierre.

[Andnotor]

LongInt que me proposes de remplacer par LPARAM, ne pose pas de problème car en CPU 32 bits, LongInt fait 32 bits et fait 64 bits en CPU 64 bits.

Une spécialité Lazarus alors ? Ca mériterait un petit contrôle par SizeOf(LongInt). Dans les faits, la taille d'un LongInt est toujours 32 bits sous Windows mais 32 ou 64 sous Linux.

[ChPr]

Une spécialité Lazarus alors ? Ca mériterait un petit contrôle par SizeOf(LongInt). Dans les faits, la taille d'un LongInt est toujours 32 bits sous Windows mais 32 ou 64 sous Linux.

Tu as raison, en CPU 64 bits, SizeOf(LongInt) renvoie 32 bits. Pour autant, comment expliquer que si je laisse LongInt au lieu de LPARAM, cela fonctionne ?

Cordialement.

Pierre.

[Andnotor]

Le transtypage en LongInt va tronquer la valeur. Donc tant que l'adressage ne dépasse pas la limite de 2³² -1 ça fonctionnera.

Mais autant le faire correctement sous peine d'erreurs sporadiques difficile à trouver suivant les besoins (en mémoire) du projet